问题描述 有一平行四边形，给出三个坐标，求出这个平行四边形可能的最大面积，若不存在即面积为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
转载请注明原文地址: https://ju.6miu.com/read-24197.html
