Реферат: Вычисления площади произвольного многоугольника

b:=2;

end

else if c=n then

begin

a:=n-1;

b:=1;

end

else

begin

a:=c-1;

b:=c+1;

end;

cross:=true;

AA:=sd[b].y-sd[a].y;

BB:=-(sd[b].x-sd[a].x);

CC:=sd[a].y*(sd[b].x-sd[a].x)-sd[a].x*(sd[b].y-sd[a].y);

if n=4 then

begin

for i:=1 to n do

if (Mline(sd[i].x, sd[i].y)*Mline(sd[c].x, sd[c].y)>0) and (i<>c) then exit;

cross:=false;

exit

end;

for i:=1 to n-1 do

begin

AA1:=sd[i+1].y-sd[i].y;

BB1:=-(sd[i+1].x-sd[i].x);

CC1:=sd[i].y*(sd[i+1].x-sd[i].x)-sd[i].x*(sd[i+1].y-sd[i].y);

if Mline(sd[i].x, sd[i].y)*Mline(sd[i+1].x,sd[i+1].y)<0 then