{кофф линейноного уавнения}
a:=y2-y1
b:=x1-x2
c:=-x1*(y2-y1)+y1*(x2-x1)
{лежит ли точка на прямой}
Возможно вы искали - Статья: Внутренняя симметрия Вселенной
p:=false;
if (x3-x1)*(y2-y1)-(y3-y1)*(x2-x1)=0
then p:=true;
{расположение точек}
l:='1';
Похожий материал - Дипломная работа: Нахождение всех действительных корней алгебраического многочлена методом деления отрезка пополам (бисекции)
z1:=(x3-x1)*(y2-y1)-(y3-y1)*(x2-x1);
z2:=(x4-x1)*(y2-y1)-(y4-y1)*(x2-x1);
if z1*z2<0;
then l:='2';
{расположение отрезков}
Очень интересно - Реферат: Разработка узла с функцией перевода чисел из формата в формат
p:=true;
z1:=(x3-x1)*(y2-y1)-(y3-y1)*(x2-x1)
z2:=(x4-x1)*(y2-y1)-(y4-y1)*(x2-x1)
if z1*z2>0
then p:=false;
Вам будет интересно - Реферат: Графы. Решение практических задач с использованием графов (С++)
z3:=(x1-x3)*(y4-y3)-(y1-y3)*(x4-x3)
z4:=(x2-x3)*(y4-y3)-(y2-y3)*(x4-x3)
if z3*z4>0
then p:=false;
{Точка пересечения отрезков}
Похожий материал - Реферат: Жидкие кристаллы
y=(a1c2-a2c1)/(a2b1-a1b2)
x=(b1c2-b2c1)/(b2a1-b1a2)
{Расстояние между точками}
d:=sqrt((x1-x2)^2+(y1-y2)^2)