Структуры данных. Деревья - 23 стр.

UptoLike

Составители:

Рубрика:

Другой вариант включения значения x в дерево поиска реализован в про-

цедуре In_Tree( T, x ) :

procedure In_Tree(var T : Tree; x : integer);

var

p,q,n : Tree; {указатели на текущий, предыдущий и новый элементы}

begin

new(n); n^.inf:=x; { создание нового узла }

n^.L:=nil; n^.R:=nil;

if T=nil then

T:=n

else

begin p:=T;

while p<>nil do

begin

if x < p^.inf then p:=p^.L

else p:=p^.R

end;

if x < q^.inf then q^.L:=n

else q^.R:=n

end

end; { In_Tree }

Рекурсивная процедура In_Tree_Rec( T,x ) добавления значения x в

дерево поиска соответствует алгоритму:

Если новый элемент меньше значения

в узле, то он должен добавляться в

левое поддерево, иначе (больше или равен) в правое поддерево.