Написать программу, на Pascal, которая определяет принадлежит ли точка плоскости A отрезку с конечными точками B и С. Программа получает на вход координаты точек А, В и С, и выводит ответ (да или нет).

Предыдущий
вопрос Следующий
вопрос

program PointBelongsToSegment;
var
Ax, Ay, Bx, By, Cx, Cy: Real;
function Distance(x1, y1, x2, y2: Real): Real;
begin
Distance := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;
function IsPointOnSegment(Ax, Ay, Bx, By, Cx, Cy: Real): Boolean;
var
AB, AC, BC: Real;
begin
AB := Distance(Ax, Ay, Bx, By);
AC := Distance(Ax, Ay, Cx, Cy);
BC := Distance(Bx, By, Cx, Cy);
if (AC + BC = AB) then
IsPointOnSegment := true
else
IsPointOnSegment := false;
end;
begin
writeln('Enter coordinates of point A (Ax Ay): ');
readln(Ax, Ay);
writeln('Enter coordinates of point B (Bx By): ');
readln(Bx, By);
writeln('Enter coordinates of point C (Cx Cy): ');
readln(Cx, Cy);
if IsPointOnSegment(Ax, Ay, Bx, By, Cx, Cy) then
writeln('Point A belongs to segment BC')
else
writeln('Point A does not belong to segment BC');
end.

Программа определяет принадлежность точки A отрезку BC путем вычисления длин отрезков AB, AC и BC и сравнивая их. Если сумма длин отрезков AB и BC равна длине отрезка AC, то точка A принадлежит отрезку BC.