Реализовать программу на паскаль 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);
end.
Не нашли ответ?
Похожие вопросы