• «Бегущая строка». Составить программу в паскале. которая изобразит в нижней части экрана строку, «бегущую» справа налево. Строка должна менять свой цвет.

Ответы 7

  • Для других версий вместо Sleep нужно использовать Delay
    • Автор:

      dangelo
    • 5 лет назад
    • 0
  • Pascal ABC ? А там не надо подключать библиотеку?
  • Или Crt достаточно? У меня просто нет этой версии
  • У меня тоже нет. Для работы с графическим окном достаточно CRT. А sleep вроде и в изначальных версиях pascalabc был
    • Автор:

      moody
    • 5 лет назад
    • 0
  • Вы правы, работает и в .NET.
    • Автор:

      gigiqyho
    • 5 лет назад
    • 0
  • Uses CRT;ConstDelay = 200; //Задержка в миллисекундахLine = 22; //Номер строки, на которой будет текстText = 'Бегущая строка'; //Текст бегущей строкиVar i: Integer;s: String;Begin  s := Text;  For i := 1 To 80 Do  Begin    GotoXY(1, Line);    TextColor(Random(14) + 1);     WriteLn(s);    s := ' ' + s;    Sleep(Delay);  End;End.
  • //Pascal ABC.NET 3.1 сборка 1256uses  GraphABC; Const s='Sample text';//текст d=10;//задержка Var x:integer;beginrandomize;x:=windowwidth;while x>=0 do begin  textout(x,windowheight-20,s);  setfontcolor(rgb(random(255),random(255),random(255)));  sleep(d);  dec(x);  clearwindow; end;end.
    • Автор:

      hannah53
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years