Как написать программу "Бегущая строка" на языке Паскаль?

Question

Информатика

Устинья

4 декабря, 19:24

Как написать программу "Бегущая строка" на языке Паскаль?

+5

Ответы (1)

Знаете ответ?

Пульхерья · Answer 1

Uses Crt;

Procedure Beg (x, y, Len : Byte; S : String) ;

Var i : Byte;

Begin

For i:=1 to Len do S:=' '+S+' ';

Repeat

GoToXY (x, y) ;

Writeln (Copy (S, 1, Len)) ;

Delete (S, 1,1) ;

Delay (100) ;

Until Length (S)
end;

Begin

Beg (10,10,20,'Внимание! Совершает посадку рейс №123 маршрут Москва-Владивосток! Просьба встречающих пройти к выходу терминала №3.') ;

end.