HDU P2036 改革春风吹满地

题目大意：
有多个N边形，给出它的N个点的坐标，求出它的面积。

题解；
叉积:
n变形的面积可用叉积求多边形面积公式，
S=0.5*abs(x1*y2-x2*y1+x2*y3-x3*y2+……+xn*y1-x1*yn)

var
       a:array [0..101,1..2] of longint;
       n,i:longint;
       ans:real;
begin
       read(n);
       while n<>0 do
             begin
                ans:=0;
                for i:=1 to n do
                    read(a[i,1],a[i,2]);
                a[0,1]:=a[n,1];
                a[0,2]:=a[n,2];
                for i:=1 to n do
                    ans:=ans+abs(a[i-1,1]*a[i,2]-a[i,1]*a[i-1,2]);
                ans:=ans/2;
                writeln(ans:0:1);
                readln;
                read(n);
             end;
end.