Решаем задачи Абрамян на Паскале. Param67

Param67. Используя типы TPoint, TTriangle и функции Leng и Area (см. задания Param64-Param66), описать функцию Dist($$P$$, $$A$$, $$B$$) вещественного типа ($$P$$, $$A$$, $$B$$ — параметры типа TPoint), находящую расстояние $$D(P, AB)$$ от точки $$P$$ до прямой $$AB$$ по формуле $$D(P, AB)=2*S_{PAB}/|AB|$$, где $$S_PAB$$ — площадь треугольника $$PAB$$. С помощью этой функции найти расстояния от точки $$P$$ до прямых $$AB$$, $$AC$$, $$BC$$, если даны координаты точек $$P$$, $$A$$, $$B$$, $$C$$.
Решение:

Другие задачи из раздела Param можно посмотреть здесь.

Комментарии:

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

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