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

Question

Информатика

Мартьян

19 января, 23:00

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

+4

Ответы (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.