杭电 2036 改革春风吹满地

题目

“ 改革春风吹满地,
不会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.