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

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

program PointOnLine
va
Ax, Ay, Bx, By, Cx, Cy: Integer
function IsPointOnLine(Ax, Ay, Bx, By, Cx, Cy: Integer): Boolean
begi
if (Cx - Ax)*(By - Ay) = (Cy - Ay)*(Bx - Ax) the
IsPointOnLine := tru
els
IsPointOnLine := false
end
begi
writeln('Enter coordinates of point A:')
readln(Ax, Ay)
writeln('Enter coordinates of point B:')
readln(Bx, By)
writeln('Enter coordinates of point C:')
readln(Cx, Cy)
if IsPointOnLine(Ax, Ay, Bx, By, Cx, Cy) the
writeln('Point A belongs to the line segment BC.'
els
writeln('Point A does not belong to the line segment BC.')
end.

Программа сначала запрашивает координаты точек А, B и C, затем вызывает функцию IsPointOnLine, которая проверяет принадлежность точки A отрезку BC. Результат проверки выводится на экран.