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

VarA: Point; {указатели на запись-список}

Tree: Link; {указатель на дерево}

ProcedureVvod (varP: Point); {процедура ввода списка}

Vari: integer;

Q: Point; {указатель на список}

Begin

P:= Nil; {пустой список}

Writeln ('Введите числовую последовательность');

i:=1;

Whilei<=10 dobegin

New(Q); {формирование нового элемента списка}

Write ('Число', i, ':');

Read (Q^.Key); {присваиваем элементу key введенное значение}

Q^.Next:= P; {включение нового элемента в список}

P:= Q; {указатель списка – на начало списка}

i:=i+1;

end;

End;

Procedure TreeBild (var T: Link; P: Point); {процедура построения дерева}

Var x: Integer;

Procedure Find_Ins (var Q: Link; x: Integer);

var Q1:link;

Procedure Ins (var S: Link);

Begin {процедуры вставки элемента}

New(S);

S^.Key:= x;

S^.Left:= Nil; S^.Right:= Nil;

End;

Begin {процедуры поиска и вставки элемента}