Курсовая работа: Создание программы-переводчика текстов с английского на русский язык

If Q = Nil

then Ins(Q)

else

if x<Q^.key then

Find_Ins (Q^.Left, x)

else if x=Q^.key then Find_Ins (Q^.right, x) else

begin

new(Q1);

Q1^.left:=Q;

Q1^.key:=x;

Q:=Q1;

end;

End;

Begin {процедуры построения дерева из списка}

If P <> Nil

then

begin

Find_Ins (T, P^.Key);

TreeBild (T, P^.Next)

end;

End;

{процедура обхода дерева}

Procedure OutTree (var T: Link);

Begin

If T <> Nil

then

begin

OutTree (T^.Left); {левое поддерево}

OutTree (T^.Right); {правое поддерево}