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.