Как написать программу "Бегущая строка" на языке Паскаль?
Как написать программу "Бегущая строка" на языке Паскаль?
Гость
Ответ(ы) на вопрос:
Гость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)
Не нашли ответ?
Похожие вопросы