составить программу на языке программирования Паскаль, которая бы в ходе работы заданного цикла периодически меняла бы цвет выведенного на экран текстового "псевдорисунка" или любой фразы (например, "Привет, МИР!").
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад