Разработать программу с использование графического режима ** паскале 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);
  System.Threading.Thread.Sleep(500);
  GraphABC.FillRect(0, 0, WindowWidth, WindowHeight);
end.