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

Question

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

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.

Comments

А, да, добавьте это перед последней строкой:)
System.Threading.Thread.Sleep(500);
GraphABC.FillRect(0, 0, WindowWidth, WindowHeight);