ak1917qwert
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Прога представленная ниже рнисует n закрашенных случайным цветом секторов, но они все имеют разный радиус, как сделать из них окружность с N секторов, а то херня получается =((( Код: program lab10; uses crt, graph; var x,y,dr,md,r1,r2,r3,r4,max,secBegin,secEnd:integer; sec:real; sa,ea,r,n,i:word; a:array [1..4] of integer; ch:char; begin clrscr; writeln('Enter the middle of circle: x,y'); readln(x,y); writeln('Enter n fo sektor'); readln(n); dr:=detect; initgraph(dr,md,'c:\spascal\bgi'); r1:=x; r2:=y; r3:=479-r2; r4:=639-r1; a[1]:=r1; a[2]:=r2; a[3]:=r3; a[4]:=r4; max:=a[1]; for i:=2 to 4 do if a[i] > max then max := a[i]; r:=max; sec := 360/n; for i:=0 to n-1 do begin setfillstyle(solidfill,1+i); secBegin := i*round(sec); secEnd := i*round(sec)+round(sec); pieslice(x,y,r,secBegin,secEnd); end; ch:=readkey; end. |
|