算法模板——计算几何1（图形面积）

实现功能——输入N个点，求出按此顺序围成的图形的面积

原理：其实就是个向量的叉积运算（详见UASCO-nocow：计算几何），注意二维的叉积是个很逗的东西，叉积这玩意本身就来自于三维向量

（HansBug：临睡觉了，水一发呵呵哒，额。。。phile犇不在好寂寞TT）

var
   i,j,k,l,m,n:longint;
   a:array[0..100000,1..2] of longint;
function surface:extended;inline;
         var
            i,j:longint;
         begin
              j:=0;
              for i:=1 to n do
                  j:=j+(a[i,1]*a[(i mod n)+1,2])-(a[(i mod n)+1,1]*a[i,2]);
              exit(abs(j)/2);
         end;
begin
     readln(n);
     for i:=1 to n do readln(a[i,1],a[i,2]);
     writeln(surface:0:2);
     readln;
end.