Задание 3. Составьте программу изображения на экране звездного
неба. Для этого на черном фоне нарисуйте 200 разноцветных кругов
радиусом от 0 до 5. Результат работы программы может быть такой,
как показано на рисунке
неба. Для этого на черном фоне нарисуйте 200 разноцветных кругов
радиусом от 0 до 5. Результат работы программы может быть такой,
как показано на рисунке
More Questions From This User See All
Answers & Comments
uses GraphABC;
var
x, y, radius: integer;
begin
Window.Title := 'Звездное небо';
FloodFill(0, 0, clBlack);
randomize;
for Radius := 1 to 5 do
begin
for var n := 1 to 40 do
begin
x := random(windowwidth);
y := random(windowheight);
SetPenColor(clRandom);
Circle(x, y, Radius);
end;
end;
end.