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.
Создайте в системе программирования 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.
Answers & Comments
Ответ:
должно быть так
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.
Вроде так