Используя процедуры работы со строками и вывода на экран текста в заданные координаты с помощью GotoXY, написать программу «бегущая строка». Строка вводится с клавиатуры и должна двигаться справа налево — Pascal(Паскаль)

uses crt;
VAr s:string; K:integer;
begin
clrscr;
textcolor (lightgreen);
s:=('а все бегут бегут...');
k:=80;
repeat
gotoxy(k,12);
write(s);
delay(100);
clrscr;
k:=k-1;
if k=1 then k:=80
until keypressed;
end.

Похожие записи/страницы:

Leave a Comment

+ 55 = 58