Напишите программу, которая рисует концентрические окружности с центром в середине...

Question

Напишите программу, которая рисует концентрические окружности с центром в середине графического окна. Радиус самой маленькой окружности - 10 пикселей. Разница радиусов - 20 пикселей. Используйте изменение интенсивности какого-либо цвета ( или двух одновременно ) для заливки кругов.Пожалуйста помогите!!!​

---

Comments

как то так,нет?)

Answer 1

uses GraphABC;

begin

setwindowsize(500,500);

setbrushcolor(clrandom);

circle(250,250,230);

setbrushcolor(clrandom);

circle(250,250,210);

setbrushcolor(clrandom);

circle(250,250,190);

setbrushcolor(clrandom);

circle(250,250,170);

setbrushcolor(clrandom);

circle(250,250,150);

setbrushcolor(clrandom);

circle(250,250,130);

setbrushcolor(clrandom);

circle(250,250,110);

setbrushcolor(clrandom);

circle(250,250,90);

setbrushcolor(clrandom);

circle(250,250,70);

setbrushcolor(clrandom);

circle(250,250,50);

setbrushcolor(clrandom);

circle(250,250,30);

setbrushcolor(clrandom);

circle(250,250,10);

end.