Pascal:
Відомі координати вершин деякого чотирикутника A (x1, y1), B

Pascal:
Відомі координати вершин деякого чотирикутника A (x1, y1), B (x2, y2), C (x3, y3), D (x4, y4). Знайти довжини діагоналей цього чотирикутника.

  • Якщо вважати, що координати вершин дані послідовно, то діагоналями є прямі 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

You may also like

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

6 + 1 =