Мне надо решить вот такую задачу: начертить четырехугольник с координатами (х1, у1), (x2, y2), (x3, y3), (x4, y4) и отрезок с координатами (Х5, у5) и (х6,у6), и найти наименьшее расстояние от отрезка до фигуры.
Для определения расположения отрезка я пишу так:
p = True
z1 = (x5 - x1) * (y2 - y1) - (y5 - y1) * (x2 - x1)
x2 = (x6 - x1) * (y2 - y1) - (y6 - y1) * (x2 - x1)
If z1 * z2 > 0 Then p = False
z3 = (x1 - x5) * (y6 - y5) - (y1 - y5) * (x6 - x5)
z4 = (x2 - x5) * (y6 - y5) - (y2 - y5) * (x6 - x5)
If z3 * z4 > 0 Then p = False
Text13 = p
Иногда выдается правильное значание, но чаще всего неправильное.
Что здесь неправильно???
И ещё я не знаю как определить расстояние между двумя отрезками..
Прдскажите пожалуйста как все это сделать.