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

[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