Паскаль. , ! нужно написать программу, которая в левом верхнем углу экрана рисует прямоугольник размером ахв зеленого цвета и равномерно заполняет его 100 случайными точками белого цвета.

egorbychkov83 egorbychkov83    1   30.06.2019 15:40    1

Ответы
miaamkom1 miaamkom1  24.07.2020 08:45
Uses
    GraphABC;

var
    i, a, b: integer;

begin
    SetBrushColor(clGreen);
    a := random(500)+100;
    b := random(500)+100;
    Rectangle(0, 0, a, b);
   
    for i := 1 to 100 do
    begin
        PutPixel(random(a), random(b), clWhite);
        sleep(100);
    end;
   
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика