Реферат: Структуры данных бинарное упорядоченное несбалансированное дерево

Key: TInfo;

begin

Tree := TTree.Create;

repeat

WriteLn('1-Добавить элемент в дерево');

WriteLn('2-Удалить элемент');

WriteLn('3-Вывести узлы дерева');

WriteLn('4-Проверить существование узла');

WriteLn('5-Выход');

ReadLn(n);

with Tree do begin

case N of

1: begin

InputKey('Введите значение добавляемого элемента', Key);

Add(Key);

end;

2: begin

InputKey('Введите значение удаляемого элемента', Key);

Del(Key);

end;

3: View;

4: begin

InputKey('Введите элемент, существование которого вы хотите проверить', Key);

Exist(Key);

end;

end;

end;

until N=5;

Tree.Destroy;