Для увлеченных программированием. Бегущая строка. Пример программы осыпающихся букв. Строки в графическом режиме

Задание. Перед Вами две программы. Рассмотрите операторы, какова их роль?

Program AlexeyDashkin;

Uses

Crt;

Type

Stroka = string [100];

Var

Vhod, St1, InStr: Stroka;

Begin

St1:= ' Поставьте мне пятерку в зачетку!!!!';

ClrScr;

InStr:= ' ';

St1:= St1+InStr;

for i:= 1 to length(St1) do

begin

Delete(St1,1,1);

GoTo(1,10);

write(St1);

Delay(5);

Sound(1000);

Delay(90);

NoSound;

DelLine;

end;

End.

Program AkulovE;

Uses

Crt;

Var

y,i: integer;

Name, Bukva: string;

Begin

ClrScr;

write ('Введите что-нибудь ');

read (Name);

for i:= Length(Name) downto 1 do

begin

Bukva:= Name[i];

Delete(name,i,1);

for y:= 1 to 25 do

begin

Window(19,1,80,25);

GotoXY(i,y);

write(Bukva);

Delay(50);

ClrScr;

write(Name);

end;

end;

End.

Задание.

1) Наберите программы на компьютере. Проверьте их работу.

2) Усовершенствуйте одну из программ, дополните ее комментариями. Покажите результат работы учителю для оценки.

3) Решите одну из задач в графическом режиме. Покажите результат работы учителю для оценки.

Множества