На Паскаль составьте программу, которая рисует n случайных квадратов со стороной 50, затем бесконечно меняет их цвет
Ответы
Ответ:
Вот простая программа на Паскале, которая рисует n случайных квадратов со стороной 50, а затем бесконечно меняет их цвет:
Объяснение:
program DrawSquares;
uses
crt;
const
n = 10;
side = 50;
var
i: integer;
begin
randomize;
for i := 1 to n do
begin
setcolor(random(16));
rectangle(random(640), random(480), random(640), random(480)); // draw random square
end;
while true do
begin
for i := 1 to n do
begin
setcolor(random(16));
end;
end;
end.
---------
Эта программа использует функции randomize и random для генерации случайных чисел, функцию setcolor для установки цвета квадратов и функцию прямоугольника для рисования квадратов. Цикл while true в конце программы вызывает неограниченное изменение цвета квадратов.