Fläche eines Polygons?

[dizzy]

Aber auch nur weil ich C üben wollte und nicht schlafen kann :

Delphi-Quellcode:

type
  TPointArray = array of TPoint;

.
.
.

function PolyArea(p: TPointArray): Double;
var
  n, i, j: Integer;
  a: Double;
begin
  n := Length(p);
  a := 0;
  for i := 0 to n-1 do
  begin
    j := (i+1) mod n;
    a := a + p[i].x*p[j].y - p[i].y*p[j].x;
  end;
  a := a / 2;
  result := abs(a);
end;

btw: ungetestet!