Выведите на экран 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы