profile
Опубликовано 5 лет назад по предмету Информатика от Nasya27121996

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

  1. Ответ
    Ответ дан archery
    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.

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