Реализовать программу на паскаль abc "звездное небо" и затем гасит его

Question

Информатика

Маринуша

2 марта, 20:20

Реализовать программу на паскаль abc "звездное небо" и затем гасит его

+1

Ответы (1)

Знаете ответ на вопрос?

Вероник · Answer 1

Красота: з

uses

GraphABC;

var

i: integer;

begin

GraphABC. Brush. Color : = Color. DarkBlue;

GraphABC. FillRect (0, 0, WindowWidth, WindowHeight) ;

for i : = 1 to 1000 do

GraphABC. SetPixel (Random (WindowWidth), Random (WindowHeight), clWhite) ;

end.