else

if B.x=C.x then S_3:=false

else begin

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

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

if round(T.y)=round(k1*T.x+b1) then S_3:=true

else S_3:=false;

end

End;

Function Prin(T,B,C:tochka):boolean;

Функция истина если точка Т принадлежит отрезку ВС.

Идея: Если точка Т лежит на отрезке ВС, то она лежит на прямой проходящей через точки В и С, и заключена между ними.

Begin

If S_3(T,B,C) then

if (((B.x<=T.x)and(T.x<=C.x)) or ((C.x<=T.x)and(T.x<=B.x))) and

(((B.y<=T.y)and(T.y<=C.y)) or ((C.y<=T.y)and(T.y<=B.y)))

then Prin:=true

else Prin:=false

else Prin:=false

End;

§1. Function Peres, Блок Схема

Истина если отрезки [AB] и [CD] имеют общие точки за исключением случаев:

1) если отрезки совпадают;

2) если один конец отрезка совпадает с одним из концов другого отрезка, и других общих точек нет.

п.2 Function Peres, наязыке Turbo Pascal

Function Peres (A, B, C, D: tochka): boolean;

Var O: tochka;

k1, k2, b1, b2: real;