составить программу на языке программирования Паскаль, которая бы в ходе работы заданного цикла периодически меняла бы цвет выведенного на экран
5-9 класс
|
текстового "псевдорисунка" или любой фразы (например, "Привет, МИР!").
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.
Другие вопросы из категории
кодировки текста 33 букв алфавита. Знайка быстро расшифровал сообщение, распознав количество букв в нем, и посоветовал Незнайке быть скромнее и изобретательнее. Расшифруйте слово - подпись:
001111000110001100010010000001010011010000000011
наименьшее число носков он должен взять из ящика,чтобы обеспечить себя парой одного цвета
Читайте также
(for i := 1 to ... do ...).
пользователем в градусах) значение одной из тригонометрических функций (ПО ВЫБОРУ) sin (x), cos (x), tg (X) или ctg (x).