Разработать программу с использование графического режима на паскале abc. Реализовать программу, которая периодически выводит на экран «звездное небо» и затем гасит его.
Разработать программу с использование
графического режима на паскале abc
.
Реализовать программу, которая
периодически выводит на экран «звездное
небо» и затем гасит его.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы