题目题解代码

题目

“ 改革春风吹满地, 不会AC没关系; 实在不行回老家， 还有一亩三分地。 谢谢!（乐队奏乐）”

话说部分学生心态极好，每天就知道游戏，这次考试如此简单的题目，也是云里雾里，而且，还竟然来这么几句打油诗。 好呀，老师的责任就是帮你解决问题，既然想种田，那就分你一块。 这块田位于浙江省温州市苍南县灵溪镇林家铺子村，多边形形状的一块地，原本是linle 的，现在就准备送给你了。不过，任何事情都没有那么简单，你必须首先告诉我这块地到底有多少面积，如果回答正确才能真正得到这块地。 发愁了吧？就是要让你知道，种地也是需要AC知识的！以后还是好好练吧…

题解

用叉积公式计算，对多边形A1A2A3、、、An(顺或逆时针都可以)，设平面上有任意的一点P，则有： S(A1,A2,A3，…,An) = abs(S(P,A1,A2) + S(P,A2,A3)+…+S(P,An,A1))

代码

var n,i,j,k:longint; ans:real; a:array[1..100,1..2]of longint; function m(x1,y1,x2,y2:longint):longint; begin m:=x2*y1-x1*y2; end; begin read(n); while n<>0 do begin ans:=0; for i:=1 to n do read(a[i,1],a[i,2]); a[n+1,1]:=a[1,1];a[n+1,2]:=a[1,2]; for i:=1 to n do ans:=ans+m(a[i,1],a[i,2],a[i+1,1],a[i+1,2]); ans:=abs(ans)/2; writeln(ans:0:1); read(n); end; end.