改革春风吹满地

来源：互联网发布：阿里云低价域名编辑：程序博客网时间：2024/06/09 22:00

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.

1 1