Выведите на экран 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д