【SSLGZ 1715】计算面积

问题描述
有一平行四边形，给出三个坐标，求出这个平行四边形可能的最大面积，若不存在即面积为0则输出Error。多组数据。
样例输入
2
1 2 3 4 5 6
17 28 89 67 189 25
样例输出
Error
6924.0
算法讨论
比较简单，直接利用叉积算出面积。

const
  maxn=100;
var
  a:array[1..maxn,1..2] of longint;
  i,j,k,n:longint;
  s,max:real;
begin
  readln(n);
  while n>0 do
    begin
      for i:=1 to 3 do
        read(a[i,1],a[i,2]);
      max:=0;
      s:=abs((a[2,1]-a[1,1])*(a[3,2]-a[1,2])-(a[3,1]-a[1,1])*(a[2,2]-a[1,2]));
      if s>max
        then max:=s;
      if max=0
        then writeln('Error')
        else writeln(max:0:1);
      dec(n)
    end;
end.

Pixiv ID：61717580