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

@Romzan007 · Регистрация: 19.11.2016

Author24 — интернет-сервис помощи студентам

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

@Puporev · 19.11.2016, 20:37

Pascal

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.

@Romzan007 · 19.11.2016, 21:55 **[ТС]**

В 9и 10 строке пишет ошибку в слове windowwidth

@Puporev · 19.11.2016, 21:59

Не сочиняйте, скопируйте код и не лезьте в него, ни в простом АВС ни в .net ошибку не выдает, да и может выдавать.

@Romzan007 · 19.11.2016, 22:04 **[ТС]**

Извеняюсь! Все работает!!! Спасибо большое!!!!!!!!!!!!!!!!!!!!!!!!!!!

@Romzan007 0 / 0 / 0 Регистрация: 19.11.2016 Сообщений: 11
		1
	Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке 19.11.2016, 20:34. Показов 6336. Ответов 4 Метки нет (Все метки) Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке. 0

@Romzan007 0 / 0 / 0 Регистрация: 19.11.2016 Сообщений: 11
	19.11.2016, 21:55 [ТС]	3
	В 9и 10 строке пишет ошибку в слове windowwidth 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.11.2016, 21:59	4
	Не сочиняйте, скопируйте код и не лезьте в него, ни в простом АВС ни в .net ошибку не выдает, да и может выдавать. 1

@Romzan007 0 / 0 / 0 Регистрация: 19.11.2016 Сообщений: 11
	19.11.2016, 22:04 [ТС]	5
	Извеняюсь! Все работает!!! Спасибо большое!!!!!!!!!!!!!!!!!!!!!!!!!!! 0

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

Решение