1715 计算面积

最新推荐文章于 2022-01-17 15:59:35 发布

yjy_aii

最新推荐文章于 2022-01-17 15:59:35 发布

阅读量299

点赞数 2

分类专栏：计算几何

本文链接：https://blog.youkuaiyun.com/yjy_aii/article/details/61413841

版权

计算几何专栏收录该内容

10 篇文章

订阅专栏

题目
题解
代码

题目

已知平面上一平行四边形的四个顶点，求这个平行四边形的面积。但粗心的呆子却只记了三个点的坐标。你能帮呆子计算一下平行四边形可能的最大面积是多少吗？

题解

平行四边形的面积即它任意3个点，以任意顺序的叉积绝对值，而且不管顺序如何叉积结果绝对值都相等

所以这题就很简单了
叉积公式
m=((x2-x0)(y1-y0))-((x1-x0)(y2-y0))

时 间 复 杂 度 O (n)

$时间复杂度O(n)$

代码

  var
  t,i,x0,y0,x1,y1,x2,y2,k:longint;

function m(x0,y0,x1,y1,x2,y2:longint):longint;
begin
  m:=((x2-x0)*(y1-y0))-((x1-x0)*(y2-y0));
end;

begin
  readln(t);
  for i:=1 to t do
    begin
      readln(x0,y0,x1,y1,x2,y2);
      k:=abs(m(x0,y0,x1,y1,x2,y2));
      if k=0 then writeln('Error') else writeln(k,'.0');
    end;
end.