改革春风吹满地
Time Limit: 2000/1000 MS (Java/Others) Memory Limit: 65536/32768 K (Java/Others)
Total Submission(s): 28528 Accepted Submission(s): 14620
Problem Description
“ 改革春风吹满地,
不会AC没关系;
实在不行回老家,
还有一亩三分地。
谢谢!(乐队奏乐)”
话说部分学生心态极好,每天就知道游戏,这次考试如此简单的题目,也是云里雾里,而且,还竟然来这么几句打油诗。
好呀,老师的责任就是帮你解决问题,既然想种田,那就分你一块。
这块田位于浙江省温州市苍南县灵溪镇林家铺子村,多边形形状的一块地,原本是linle 的,现在就准备送给你了。不过,任何事情都没有那么简单,你必须首先告诉我这块地到底有多少面积,如果回答正确才能真正得到这块地。
发愁了吧?就是要让你知道,种地也是需要AC知识的!以后还是好好练吧...
Input
输入数据包含多个测试实例,每个测试实例占一行,每行的开始是一个整数n(3<=n<=100),它表示多边形的边数(当然也是顶点数),然后是按照逆时针顺序给出的n个顶点的坐标(x1, y1, x2, y2... xn, yn),为了简化问题,这里的所有坐标都用整数表示。
输入数据中所有的整数都在32位整数范围内,n=0表示数据的结束,不做处理。
Output
对于每个测试实例,请输出对应的多边形面积,结果精确到小数点后一位小数。
每个实例的输出占一行。
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
题目大意:给出N个点的坐标,求围成的多边形的面积
题解:计算几何。对于一个任意的多边形,S=0.5*(x1*y2-x2*y1+x2*y3-x3*y2....+xn*y1-yn*x1);
const
maxn=100;
var
n,i,j:longint;
x,y:array[1..maxn+1]of longint;
ans:real;
begin
repeat
fillchar(x,sizeof(x),0);
fillchar(y,sizeof(y),0);
ans:=0;
read(n);
if n=0 then break;
for i:=1 to n do
read(x[i],y[i]);
readln;
x[n+1]:=x[1];y[n+1]:=y[1];
for i:=1 to n do
ans:=ans+0.5*abs(x[i]*y[i+1]-x[i+1]*y[i]);
writeln(ans:0:1);
until n=0;
end.