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

[Reflex]

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

[Lapp]

Отведай мою стряпню..

type
  tPoint=record
    x,y:real
  end;
  tLine=record
    P1,P2:tPoint
  end;

procedure InterSection(L1,L2:tLine;var P:tPoint);
var
  k1,k2:real;
begin
  with L1 do k1:= (P2.y-P1.y)/(P2.x-P1.x);
  with L2 do k2:= (P2.y-P1.y)/(P2.x-P1.x);
  P.x:= (L1.P1.y - L2.P1.y + L2.P1.x*k2 - L1.P1.x*k1) / (k2-k1);
  with L1 do P.y:= P1.y + (P.x-P1.x)*k1;
end;

var
  L1,L2:tLine;
  P:tPoint;

begin
  with L1 do begin
    P1.x:=-2;
    P1.y:=-2;
    P2.x:=+2;
    P2.y:= 0;
  end;
  with L2 do begin
    P1.x:= 0;
    P1.y:= 1;
    P2.x:=+2;
    P2.y:=-2;
  end;
  InterSection(L1,L2,P);
  with P do WriteLn('X=',x:7:3,'  Y=',y:7:3);
  ReadLn
end.

Добавлено через 3 мин.
Эта процедура выдаст ошибку, если отрезок расположен вдоль у.
Но этот случай гораздо проще, и его можно рассмотреть отдельно.