O.x:=C.x;

O.y:=k1*O.x+b1;

if Prin(O,C,D) and Prin(O,A,B) then Peres:=true

else Peres:=False

end

else begin

k1:=(A.y-B.y)/(A.x-B.x);

k2:=(C.y-D.y)/(C.x-D.x);

if k1=k2 then {} if Prin(A,C,D) or

Prin(B,C,D) or

Prin(C,A,B) or

Prin(D,A,B) then Peres:=true

else Peres:=false

else begin

b1:=A.y-k1*A.x;

b2:=C.y-k2*C.x;

O.x:=(b1-b2)/(k2-k1);

if k1=0 then O.y:=b1

else if k2=0 then O.y:=b2

else O.y:=(b1/k1-b2/k2)/(1/k1-1/k2);

if Prin(O,C,D) and Prin(O,A,B)

then Peres:=true

else Peres:=false

end

end

End;

§2. Рекурсивный способ построения простой замкнутой ломаной

Идея: Чтобы перебрать все возможные способы построения простой замкнутой прямой мы воспользовались следующим алгоритмом построения:

1. Зафиксировали одну из n точек, т.к. не имеет значение, какая точка будет начальной т.к ломаная замкнутая;

2. Соединяя зафиксированную точку с одной из незанятых точек, получаем первую сторону ломаной.