SSL 1715 计算面积

Description

　　呆子是一个很聪明的人但也是一个很粗心的人，因此常常会丢三落四。一次老师给呆子留了一个很简单的题目，已知平面上一平行四边形的四个顶点，求这个平行四边形的面积。但粗心的呆子却只记了三个点的坐标，因此呆子现在和郁闷。你现在能帮助呆子计算一下老师留给呆子的平行四边形可能的最大面积是多少吗？

Input

　　首先输入一个整数t表示测试数据的组数（1 =< t <= 30）,接下来的t行，每行三对整数，表示呆子已知的平行四边形的顶点坐标。每对整数x, y(0<=x, y <= 10000)中第一个数表示横坐标，第二个数表示纵坐标。每组输入保证是三个不同的点。

Output

　　共输出t行，第i行为第i组数据的最大可能面积。
输出结果保留一位小数。如果这样的平行四边形不存在，即求得的面积大小为0则输出Error。

题解

套上叉积公式：
(x[2]-x[1])*(y[3]-y[1])-(x[3]-x[1])*(y[2]-y[1])
输出判断即可。

代码

var
  n:longint;
  sum:real;
  x,y:array [1..3] of longint;
procedure init;
var
  i:longint;
begin
  for i:=1 to n do
    begin
      readln(x[1],y[1],x[2],y[2],x[3],y[3]);
      sum:=(x[2]-x[1])*(y[3]-y[1])-(x[3]-x[1])*(y[2]-y[1]);
      if sum<>0 then writeln(abs(sum):0:1)
                else writeln('Error');
    end;
end;

begin
  readln(n);
  init;
end.