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.