Структури даних, Детальна інформація

FindMin – пошук вузла дерева з мінімальним елементом;

FindMax – пошук вузла дерева з максимальним елементом;

PrintLR – обхід дерева зліва направо.

PTreeStr = ^TreeStr;

TreeStr = object

TTree: PTree;

procedure Insert (Value:integer);

procedure Delete (Value:integer);

function Find (Value:integer): boolean;

function FindMin: PTree;

function FindMax: PTree;

procedure PrintLR;

end;

Властивість впорядкованості дозволяє надрукувати всі ключі у неспадному порядку за допомогою обходу дерева зліва направо, який відбувається наступним чином:

побувати в лівому піддереві

побувати в корені

побувати в правому піддереві

procedure PLR (Tree: PTree);

begin

if (Tree = NIL) then Exit;

PLR (Tree^.left);

write (Tree^.Val, ' ');

PLR (Tree^.right);

end;

procedure TreeStr.PrintLR;

begin

PLR (TTree);

writeln;

end;

function FindEl (var Tree: PTree; Value:integer):boolean;