计算面积，叉积

计算面积

Time Limit:10000MS  Memory Limit:65536K

Total Submit:97 Accepted:65 

Case Time Limit:1000MS

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

Error
6924.0

Source

elba

思路：很明显对于这个平行四边形而言，已知三点，面积就确定了。所以直接把公式一套就ＯＪＢＫ了

var
 x,y,a:array[0..6] of longint;
 t,i,j,m,k:longint;
procedure px;
var
 t1,t2,i,j:longint;
begin
 for i:=1 to 3 do
  for j:=i to 3 do
   begin
    if x[i]>x[j] then begin
                       t1:=x[j];
                       x[j]:=x[i];
                       x[i]:=t1;
                       t2:=y[j];
                       y[j]:=y[i];
                       y[i]:=t2;
                      end;
    if x[i]=x[j]then if y[i]>y[j] then
     begin
      t1:=x[j];
      x[j]:=x[i];
      x[i]:=t1;
      t2:=y[j];
      y[j]:=y[i];
      y[i]:=t2;
     end;
   end;
end;
function Smax(t:longint):double;
var
m:double;
begin
 m:=abs(0.5*((x[2]-x[1])*(y[3]-y[1])-(x[3]-x[1])*(y[2]-y[1])));
 exit(m);
end;
begin
 read(t);
 for i:=1 to t do
  begin
   k:=1;
   for j:=1 to 6 do
    begin
     read(a[j]);
     if j mod 2=0 then begin
                        x[k]:=a[j-1];
                        y[k]:=a[j];
                        inc(k);
                       end;
    end;
    px;
    if Smax(t)=0 then writeln('Error')
     else writeln(Smax(t)*2:0:1);
  end;
end.