欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

(ssl1715)计算面积

程序员文章站 2022-04-01 15:33:50
...

计算面积

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:array[1..3]of longint;
 n,i:longint;
 ans:double;
begin
 read(n);
 for i:=1 to n do
  begin
   read(x[1],y[1],x[2],y[2],x[3],y[3]);
   ans:=(x[1]-x[3])*(y[2]-y[3])-(x[2]-x[3])*(y[1]-y[3]);//算叉积
   if ans=0 then writeln('Error')//三个点在一条直线上,顶多连个三角形(不是平行四边形)
            else writeln(abs(ans):0:1);
  end;
end.