ak1917qwert
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите плиз с задачкой:
по заданным значениям координат центра окружности и числа N построить окружность максимального радиуса целиком помещающуюся на экране и разбить её на N закрашенных секторов
мой код -
program lab10;
uses crt, graph;
var
x,y,dr,md,r1,r2,r3,r4,max:integer;
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,'f:\tp7\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:=1 to 4 do
if max > a[i] then
max:=max
else
max:=a[i];
r:=max;
for i:=1 to n do
begin
setfillstyle(solidfill,1+i);
pieslice(x,y,r,0,90);
end;
ch:=readkey;
end.
чёто не получается то, что надо =((((( |
(линкани на картинку)