Pascal:
Відомі координати вершин деякого чотирикутника A (x1, y1), B (x2, y2), C (x3, y3), D (x4, y4). Знайти довжини діагоналей цього чотирикутника.
- Якщо вважати, що координати вершин дані послідовно, то діагоналями є прямі AC і BD. Формула для знаходження довжини прямої, заданої координатами її кінців, відома:
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