Отрезкм Опции

[Reflex]

Нуно сделать прогу, которая по двух отрезках находила их пересечение. Искала, но ни одна программа не работает

[volvo]

Эта процедура выдаст ошибку, если отрезок расположен вдоль у.

Не только... Эта процедура выдаст ошибку ВСЕГДА, когда отрезки только касаются друг друга, но не пересекаются:

  with L1 do begin
    P1.x:= 1;
    P1.y:= 2;
    P2.x:= 5;
    P2.y:=10;
  end;
  with L2 do begin
    P1.x:= 1;
    P1.y:= 0;
    P2.x:= 5;
    P2.y:= 8;
  end;

результат: (k1 = k2), divizion by zero

Сообщение отредактировано: volvo - 17.04.2007 14:11

[Lapp]

Эта процедура выдаст ошибку ВСЕГДА, когда отрезки только касаются друг друга, но не пересекаются:
...
результат: (k1 = k2), divizion by zero

Не совсем понял, при чем здесь касание...
k1=k2 означает параллельность прямых, что естественно, тоже особый случай.
В любом случае - volvo, спасибо за исправление.

2 reflex:
Да, нужно проверять также на параллельность, то есть равенство k1 и k2.