Консультация № 72416
24.01.2007, 13:24
0.00 руб.
0 1 1
Здраствуйте товарищи программисты!Помогити написать программу!Вот условие:
По заданным значениям координат центра окружностей, радиуса R самой внутренней окружности и числа окружностей N нарисовать концентрические окружности и закрасить образуемые ими кольца разными цветами.
Можете написать программу полностью!

Обсуждение

Неизвестный
24.01.2007, 17:47
общий
это ответ
Здравствуйте, SHTEP!

В приложении готовая программа!!!

Единственное немного поясню значение переменных:
<b>shirina=15;</b> - переменная в которой хранится ширина колец;
<b>xc</b> и <b>yc</b> - координаты центра окружностей;
<b>r</b> - радиус;
<b>kol</b> - количество окружностей.

<font color=blue>Рекомендую вводить такие значения:</font>
<code>
xc=200
yc=200
r=10
kol=10
</code>

Хотя в принципе можно вводить любые (но только прикиньте чтобы результат не вылез за пределы экрана).

Good Luck!!!


Приложение:
program n_circles;uses graph,crt;const shirina=15;var r,xc,yc,kol:integer; d,m,i:integer;begin clrscr; write(‘xc=‘);read(xc); write(‘yc=‘);read(yc); write(‘Rmin=‘);read(r); write(‘kol=‘);read(kol); d:=detect; initgraph(d,m,‘‘); if graphresult<>grok then begin writeln(‘Graphics Error‘);halt(1);end; i:=r+shirina*kol; setbkcolor(0); while kol<>0 do begin circle(xc,yc,i); setcolor(i mod (r+1)); setfillstyle(1,i mod (r+1)); PieSlice(xc, yc, 0, 360, i); dec(i,shirina); dec(kol); end; repeat until keypressed; closegraph;end.
Форма ответа