Question

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

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)<Len;
end;

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