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

ArcCos:=res

end;

begin

dxp:=sd[1].x-sd[n].x;

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

a:=sqrt(dxp*dxp+dyp*dyp);

dxp:=dxp/a;

dyp:=dyp/a;

i:=1;

while i<=(n-1) do

begin

dx:=sd[i+1].x-sd[i].x;

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

a:=sqrt(dx*dx+dy*dy);

dx:=dx/a;

dy:=dy/a;

if (dx=dxp) and (dy=dyp) then

begin

dec(n);

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

end;

dxp:=dx; dyp:=dy;

inc(i)

end;

dx:=sd[1].x-sd[n].x;

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

al1:=ArcCos(dx/sqrt(dx*dx+dy*dy));

for i:=1 to n-1 do

begin