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

end;

End;

Begin {основная программа}

ClrScr;

Vvod(A); {процедура ввода списка}

Tree:= Nil;

TreeBild (Tree, A); {процедура построения дерева Tree из списка A}

OutTree(Tree); {процедура обхода дерева}

dispose(Tree); {освобождение ОП}

ReadKey;

End. {конец программы}

Приложение В

Листинг программы «Польская запись»

Program Polskaya;

uses crt;

var

i, n:integer;

st1, st2, st3:string;

label 1;

begin

clrscr;

st2:='';

write ('Stroka v infiksnoi forme: '); {Вводимстроку}

Readln(st1);

for i:=1 to length(st1) do

begin

1:

if st1 [i]=' (' then st3:=st3+st1 [i]

else