计算面积 SSL_1715（叉积）

Description

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

Input

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

Output

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

Sample Input

2
1 2 3 4 5 6
17 28 89 67 189 25

Sample Output

   

扫描二维码关注公众号，回复： 2019954 查看本文章

Error
6924.0

var
 x,y:array[1..3] of longint;

procedure main;
 var
 r:real;
begin
 r:=abs((x[2]-x[1])*(y[3]-y[1])-(x[3]-x[1])*(y[2]-y[1]));
 if r=0 then writeln('Error')
        else writeln(r:0:1);
end;

procedure init;
 var
 n,i,j:longint;
begin
 readln(n);
 for i:=1 to n do
 begin
  for j:=1 to 3 do
   read(x[j],y[j]);
  readln;
 main;
 end;
end;

begin
 init;
end.