Курсовая работа: Структури даних для обробки інформації

b_buf:=b;

while b_buf<>nil do

begin

b_parent:=b_buf;

if b_new^.key<b_parent^.key then b_buf:=b_buf^.left

else b_buf:=b_buf^.right;

end;

b_new^.parent:=b_parent;

if b_new^.key<b_parent^.key then b_parent^.left:=b_new

else b_parent^.right:=b_new

end;

end;

until name='';

write('Листы дерева: ');

write_tree(b);

writeln;

end.

Результат роботи програми:

Имя -> Иванов

Ключ -> 5

Имя -> Петров

Ключ -> 3

Имя -> Сидоров

Ключ -> 8

Имя -> Ильин

Ключ -> 6

Имя ->

Листі дерева: Петров Ильин

ВИВЕДЕННЯ НА ЕКРАН УСІХ ВУЗЛІВ БІНАРНОГО ДЕРЕВА