Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке - Pascal ABC

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

Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке.

Код к задаче: «Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке - Pascal ABC»

textual
uses graphABC;
var x1,y1,x2,y2,i,n,x,y,r:integer;
begin
randomize;
write('n=');
readln(n);
x1:=20;
y1:=20;
x2:=windowwidth-20;
y2:=windowheight-20;
setbrushstyle(bsClear);
setpenwidth(5);
setpencolor(clRed);
rectangle(x1,y1,x2,y2);
setpenwidth(2);
for i:=1 to n do
 begin
  r:=5+random(46);
  x:=x1+r+5+random(x2-2*(x1+r)-10);
  y:=y1+r+5+random(y2-2*(y1+r)-10);
  setpencolor(clrandom);
  circle(x,y,r);
 end;
end.

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ