Выведите на экран 30 мячиков со случайным координатами - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Выведите на экран 30 мячиков со случайным координатами. Предусмотрите, чтобы мячики не касались краев, и не вылазили за них: Скриншот во вложении

Решение задачи: «Выведите на экран 30 мячиков со случайным координатами»

textual
Листинг программы
uses graphABC;
var i,x,y,r:integer;
    c:Color;
begin
r:=10;
for i:=1 to 30 do
 begin
  x:=r+1+random(windowwidth-2*r-1);
  y:=r+1+random(windowheight-2*r-1);
  c:=clRandom;
  setpencolor(c);
  setbrushcolor(c);
  circle(x,y,r);
 end;
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы