ign="justify"> if f = 1 then writeln ('[', pr ^. pole, '] /');
{Якщо f = 2 то виводиться праве піддерево}
if f = 2 then writeln (' [', pr ^. pole, '] /'); (pr ^. l, 1); (pr ^. r, 2);; : = y-2;; {OutTree} {головна прога} (1,1,80,25);: = 22;: = 0; (Blue);;
{Введення вираження, яке потрібно порахувати} ('Введіть ваш вислів:'); (40,4); ('Використовуйте наступні опреаціі:');
GotoXY (50,5); ('+, -, *, /, ^'); (40,7);
Write ('Програма застосовує дерева для'); (40,8); ('обчислення математичного виразу:'); (1,2); (st);
{root - кінцева вершина/її створення}
New (el); ^. l: = nil; ^. r: = nil; ^. pole: = st; ^. zn: = 0; ^. sym: = false; ^. rend: = false;: = el;
{end of root} (root); {Створюється дерево}
{Введення значень змінних} ('Введіть значення:');
Symb (root); (30,1,80,25); (Blue); (White);; ('Дерево виглядет так:'); (root, 0); root ^. l ^. sym and = ', Root ^. Zn: 2:3); {висновок результату} (' Ще? (Y/n) '); (yn); yn =' n ';
end.
