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

1

Ответы и объяснения

2013-11-05T15:57:44+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.

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