В дальнейшем самостоятельно дописать процедуры вывода дерева и включение в деревоProgram poisk; Uses crt; Type pnode=^node; node =record data: integer; {ключ} Left: pnode;{указатель на левое поддерево} right: pnode; {указатель на правое поддерево} End; Var root: pnode; Key: pnode; Option:integer; Пример функции поиска по дереву function find(root: pnode; key:integer; var p, parent: pnode):Boolean; begin p:=root; while p<>nil do begin if key=p^. data then begin{ узел с таким ключом есть } find:=true; exit; end; parent:=p {запомнить указатель на предка} if key<p^. data then p:= p ^. left {спуститься влево} else p:= p ^. right; {спуститься вправо} end; find:=false; end; {далее надо написать процедуры самостоятельно} Процедура удаления и основная часть программы ниже procedure print_tree( p: pnode; level:integer);{вывода} var i:integer; ...... End; procedure insert(var root: pnode; key:integer);{включение в дерево} var p, parent: pnode; ...... End; 2. Мы рассмотрели несколько способов обхода дерева. Наибольший интерес для двоичного дерева поиска представляет симметричный обход, т.к. он дает нам упорядоченную последовательность ключей. Логично реализовать обход дерева в виде рекурсивной процедуры. Пример обхода дерева с помощью рекурсии Procedure obhod(p: pnode); Begin if p<>nil then begin obhod(p^.left); writeln(p^.inf); obhod(p^.right); end; end;
|
