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

end;

AA1:=sd[1].y-sd[n].y;

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

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

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

if Sline(sd[a].x, sd[a].y)*Sline(sd[b].x,sd[b].y)<0 then exit;

cross:=false;

end;

begin

ClrScr;

input;

Angles;

S:=0;

while n>3 do

begin

i:=1;

while (sd[i].angle>pi) or (cross(i)) do

inc(i);

if i=1 then

S:=S+St(sd[1].x,sd[1].y, sd[2].x,sd[2].y, sd[n].x,sd[n].y)

else

if i=n then

S:=S+St(sd[n].x,sd[n].y, sd[1].x,sd[1].y, sd[n-1].x,sd[n-1].y)

else S:=S+St(sd[i].x,sd[i].y, sd[i-1].x,sd[i-1].y, sd[i+1].x,sd[i+1].y);

dec(n);

for j:=i to n do sd[j]:=sd[j+1];

Angles

end;

S:=S+St(sd[1].x,sd[1].y, sd[2].x,sd[2].y, sd[3].x,sd[3].y);