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

Эта точность вполне удовлетворительна для нашей задачи.

Приложение 1.

Блок-схема

Приложение 2. Текст программы.

Uses Crt;

const max=100;

var

n, i, j: integer;

sd: array[1..100] of

record

x,y: real;

angle: real;

end;

S: real;

procedure Angles;

var

al1,al2,

dx, dy, dxp, dyp,

s_in, s_out, a: real;

i,j: integer;

function ArcCos(a: real): real;

var res: real;

begin

if abs(a)<1.0E-30 then res:=pi/2

else res:=ArcTan(sqrt(1-a*a)/a);

if dx<0 then

if dy>=0 then res:=pi+res

else res:=-pi-res

else