Разработать программу с использование графического режима на паскале abc . реализовать программу, которая периодически выводит на экран «звездное небо» и затем гасит его.
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.
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.