Question

Pascal:
Известны координаты вершин некоторого четырехугольника A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4). Найти длины диагоналей этого четырехугольника.

Answer 1

Если считать, что координаты вершин даны последовательно, то диагоналями являются прямые AC и BD. Формула для нахождения длины прямой, заданной координатами её концов, известна:
$displaystyle L_{AB}=sqrt{(X_B-X_A)^2+(Y_B-Y_A)^2}$

var
  xa,ya,xb,yb,xc,yc,xd,yd:real;
begin
  Write('Введите координаты точки А: '); Read(xa,ya);
  Write('Введите координаты точки B: '); Read(xb,yb);
  Write('Введите координаты точки C: '); Read(xc,yc);
  Write('Введите координаты точки D: '); Read(xd,yd);
  Writeln('Длина диагонали AC равна ',sqrt(sqr(xc-xa)+sqr(yc-ya)));
  Writeln('Длина диагонали BD равна ',sqrt(sqr(xd-xb)+sqr(yd-yb)))
end.

Пример
Введите координаты точки А: -8.5 -2
Введите координаты точки B: -5 3.15
Введите координаты точки C: 1.2 5.8
Введите координаты точки D: 11 -4
Длина диагонали AC равна 12.4470880128647
Длина диагонали BD равна 17.524910841428