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.
|
|
