Question

На Паскаль составьте программу, которая рисует n случайных квадратов со стороной 50, затем бесконечно меняет их цвет​

Answer 1

Ответ:

Вот простая программа на Паскале, которая рисует 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 в конце программы вызывает неограниченное изменение цвета квадратов.