Бегущая строка. Прямое и обратное направление. Оформить интерфейс. Диалог выбора.
Вот что есть
uses crt;
var str, str2: string;
i,k:byte;
Begin
clrscr;
str:=' Hello ';
k:=80-length(str);
for i:=1 to k-1 do
str:=str+' ';
repeat
delete(str,1,1);
gotoxy(1,10);
write(str);
delay(4000);
delline;
str2:=copy(str,1,1);
str:=str+str2;
until keypressed;
end.
Сообщение отредактировано: volvo -