Question

100 Баллов!!!

Создайте в системе программирования PascalABC.NET программу, которая заполняет прямоугольник 400 х 300 пикселей точками случайного цвета. Количество точек - 100 000

Шаблон программы:

uses ;

const n = 100000;

var x, y: ;

begin

Rectangle( );

for var i := 1 to do

begin

x := random( );

у := random( );

SetPixel ( , ,);

end;

end.

Answer 1

Ответ:

должно быть так

uses GraphABC;

const

 n = 100000;

var

 x, y: integer;

begin

 SetWindowSize(400, 300);

 for var i := 1 to n do

 begin

   x := random(400);

   y := random(300);

   SetPixel(x, y, RGB(random(256), random(256), random(256)));

 end;

end.

В начале программы мы устанавливаем размер окна 400 на 300 пикселей с помощью функции SetWindowSize. Затем мы используем цикл for для генерации 100000 случайных точек внутри прямоугольника с координатами (0, 0) и (399, 299). Для каждой точки мы используем функцию SetPixel, чтобы установить ее координаты и цвет (RGB) случайным образом с помощью функции random.

Вроде так