Квадранты, прямая

[BomBiloiii]

Вечер добрый
Помогите студенту доработать код в Turbo Pascal, что бы выводилось в результате через какие квадранты проходит прямая.

Program Arh;
Var
x1,y1,x2,y2,d:real;
Begin
Write ('Vvedite x1,y1: ');
Readln (x1,y1);
Write ('Vvedite x2,y2: ');
Readln (x2,y2);
If (x1=x2) and (y1=y2) then Write ('Tochki sovpali');
Else Begin
d:=sqrt ((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
Write ('d=,' d);
Begin
If (y1/x1=y2/x2) then Write ('Prymaia proxodit cherez n.k.') 
Else Write ('Ne proxodit cherez n.k.')
End;
End;
End.

Зарание премного благодарен

[type_Oleg]

Прямая или отрезок ?
Если прямая, зачем вам длина отрезка d ?

И зачем скобки begin .. end вокруг последнего if ?

[Naive]

Сообщение от type_Oleg

Если прямая, зачем вам длина отрезка d ?

Затем, что расп*сдяй-студент сп*сдил написал решение задачи "найдите длину отрезка и проходит ли прямая, на которой лежит этот отрезок, через начало координат", а дана ему абсолютно другая задача.

[Rin]

А можно поподробней? А то ничего не понятно. Где задана сама функция? А то, все что я вижу - это ввод двух точек, вычисление расстояния между ними, и что-то похожее на проверку прохождения прямой через точки.

[Mad_Cat]

тут делов то найти уравнение прямой, проходящей через 2 точки и проверить пересечение с осями, самое сложное это описать условия

[BomBiloiii]

Люд я в программирование не особо бог=)
Поэтому прошу помощи у вас, мне лишь нужно узнать как написать в Паскале условие для выбора квадранта

[Vanta11a]

if (*условие*) then *действия, если истина* else *действия, если ложь*;

[type_Oleg]

BomBiloiii, повторяю вопрос - прямая или отрезок ?
От этого зависит решение - см.рисунок.

[BomBiloiii]

прямая
Я чуть чуть профан в этих делах)

[type_Oleg]

Сообщение от BomBiloiii

прямая

В таком случае, приведенный код не имеет отношения к задаче.

В случае прямой алгорритм решения:
1) находим уравнение прямой типа y = a*b+x, то есть находим неизвестные a,b по известным координатам точек:
a = (y2-y1)/(x2-x1) ; b = y1 - a*x1
2) находим точки пересечения прямой с осями 0X, 0Y:
с 0Y : y=0*a+b=b если b>0, то прямая пересекает 0Y выше 0 ,как на рисунке, то есть проходит по 1 и 2 квадр;
с 0X : 0=a*x+b => x=-b/a если это <0, как на рисунке, то проходит по 2 и 3 кв.
Получаем ответ для данного рисунка: 1,2,3 кв.

Еще надо предусмотреть случаи, когда x1=x2 или y1=y2