** координатной плоскости своими действительными координатами (x1, y1), (x2, y2), (x3,...

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.

Comments

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