Консультация № 188320
02.12.2015, 16:49
0.00 руб.
0 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:
Составить программу, которая выводит на экран бегущую строку.(BPascal)

Обсуждение

давно
Старший Модератор
31795
6196
06.12.2015, 13:58
общий
это ответ
Здравствуйте, Посетитель - 399097!

Смотрите код:
[code lang=pascal h=200]uses crt;
var
a:string;
begin
ClrScr;
write('Enter string:');
readln(a);
repeat
GotoXY(10,20);{курсор в позицию}
write(a);{выводим строку}
delay(30000);{задержка цикла}
a:=a+a[1];{сдвигаем строку}
delete(a,1,1);{удаляем сдвинутый символ}
until KeyPressed;{ждем нажатия клавиши}
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа