Составить программу на языке программирования Паскаль, которая бы в ходе работы заданного цикла периодически меняла бы цвет выведенного на экран текстового "псевдорисунка" или любой фразы (например, "Привет, МИР!").
Составить программу на языке программирования Паскаль, которая бы в ходе работы заданного цикла периодически меняла бы цвет выведенного на экран текстового "псевдорисунка" или любой фразы (например, "Привет, МИР!").
Гость
Ответ(ы) на вопрос:
Гостьuses graphabc;
var i:integer;
begin
setfontsize(30);
for i:=1 to 256 do begin
setfontcolor(rgb(random(256-10),random(256-10),random(256-10)));
textout(210,200,'Hello,world!');
sleep(50);
end;
end.
Скорость мерцания можно менять значением процедуры sleep.
Не нашли ответ?
Похожие вопросы