Небольшая Геометрическая задачка Опции

[nulbok]

А смысл вот в чём. Рисуются на экране произвольно 2 отрезка. В случае, если отрезки пересекаются , точка персечения становится центром окружности , с радиусом (неважно каким).

Собственно проблема в том, как узнать пересекаются ли прямые, точнее как узнать координаты точки персечения. Поиском искал. Ничего толкового не нашел. Заранее спасибо.

[volvo]

Какие же уравнения? 4 точки, координаты x1, x2, x3, x4, y1, y2, y3, y4 - через них все выводится...

const
  n = 4;
  x: array[1 .. 4] of integer = (3, 5, 3, 6);
  y: array[1 .. 4] of integer = (3, 7, 7, 1);

var
  Z, Ua, Ub: real;
  pX, pY: real;

begin
  Z := (y[4]-y[3])*(x[2]-x[1]) - (x[4]-x[3])*(y[2]-y[1]);
  Ua := ((x[4]-x[3])*(y[1]-y[3]) - (y[4]-y[3])*(x[1]-x[3]))/z;
  { Ub := ((x[2]-x[1])*(y[1]-y[3]) - (y[2]-y[1])*(x[1]-x[3]))/z; }

  pX := x[1] + Ua*(x[2] - x[1]);
  pY := y[1] + Ua*(y[2] - y[1]);
  writeln('X = ', pX:10:5, ' ; Y = ', pY:10:5);
end.

(не забудь проверить принадлежность Ua, Ub интервалу, о чем говорится в статье...)