改革春风吹满地

Problem Description

“ 改革春风吹满地,
不会AC没关系;
实在不行回老家，
还有一亩三分地。
谢谢!（乐队奏乐）”    
首先告诉我这块地到底有多少面积，如果回答正确才能真正得到这块地。输入数据包含多个测试实例，每个测试实例占一行，每行的开始是一个整数n，它表示多边形的边数，然后是按照逆时针顺序给出的n个顶点的坐标,这里的所有坐标都用整数表示。输入数据中所有的整数都在32位整数范围内，n=0表示数据的结束。对于每个测试实例，请输出对应的多边形面积，结果精确到小数点后一位小数。

Sample Input

3 0 0 1 0 0 1
4 1 0 0 1 -1 0 0 -1
0

Sample Output

0.5
2.0

思路

O（kn）
把一个N多边形，分为n个三角形，用叉积求出N三角形的面积累加。

var
  a,b:array[1..1000] of longint;
  i,n:longint;
  s:real;
begin
  read(n);
  while 1=1 do
    begin
      s:=0;
      if n=0 then exit;
      for i:=1 to n do
        read(a[i],b[i]);
      for i:=1 to n-2 do
        s:=s+((a[i+1]-a[1])*(b[i+2]-b[1])-(a[i+2]-a[1])*(b[i+1]-b[1]));
      writeln(s*0.5:0:1);
      read(n);
    end;
end.