Question

На координатной плоскости своими действительными координатами (x1, y1), (x2, y2), (x3, y3), (x4, y4) задан выпуклый четырехугольник. Проверить,  является  ли он параллелограммом, если ДА – вычислите выражение |(a+b)2+| с   точностью до сотых, где а и b смежные стороны параллелограмма.

Answer 1

Type Point=record
   x: integer;
   y: integer;
end;
var p1, p2, p3, p4 : Point;
function length(p1, p2 : Point) : real;
begin
  length := sqrt(sqr(p1.x - p2.x) + sqr(p1.y - p2.y));
end;
Begin
  readln(p1.x, p1.y);
  readln(p2.x, p2.y);
  readln(p3.x, p3.y);
  readln(p4.x, p4.y);

  if (length(p1, p2) = length (p3, p4)) and (length(p3, p2) = length (p1, p4)) then
    writeln('P = ', abs(2 * (length(p1, p2) + length(p3, p2)) ))
  else writeln('No');
End.

Answer 2

Если помогла, то выбери мое решение лучшим, пожалуйста