Вопрос по информатике:
«Бегущая строка». Составить программу в паскале. которая изобразит в нижней части экрана строку, «бегущую» справа налево. Строка должна менять свой цвет.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.10.2015 15:31
- Информатика
- remove_red_eye 18731
- thumb_up 26
Ответы и объяснения 2
Uses CRT;
Const
Delay = 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.
- 26.10.2015 02:26
- thumb_up 32
//Pascal ABC.NET 3.1 сборка 1256
uses
GraphABC;
Const
s='Sample text';//текст
d=10;//задержка
Var
x:integer;
begin
randomize;
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.
- 28.10.2015 00:13
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.