Найти расстояние от заданной точки до ближайшей стороны треугольника - Pascal ABC

Формулировка задачи:

Прошу помочь разобраться в данной теме. Как вообще решать данного типа задачи? Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника Добавлено через 5 часов 50 минут ап, хоть кто-то...

Код к задаче: «Найти расстояние от заданной точки до ближайшей стороны треугольника - Pascal ABC»

textual
uses crt;
procedure Dist(px,py,ax,ay,bx,by:real;var d:real);
var s:real;
begin
s:=abs(ax*(by-py)+bx*(py-ay)+px*(ay-by))/2;//площадь треуголника ABP
d:=2*s/sqrt(sqr(ax-bx)+sqr(ay-by));//длина высоты из P на АВ
end;
var px,py,ax,ay,bx,by,cx,cy,d:real;
begin
writeln('Введите координаты точки Р:');
readln(px,py);
writeln('Введите координаты точек А,В,С');
readln(ax,ay,bx,by,cx,cy);
Dist(px,py,ax,ay,bx,by,d);
writeln('Расстояние от точки Р до прямой АВ=',d:0:2);
Dist(px,py,ax,ay,cx,cy,d);
writeln('Расстояние от точки Р до прямой АC=',d:0:2);
Dist(px,py,bx,by,cx,cy,d);
writeln('Расстояние от точки Р до прямой ВC=',d:0:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ