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

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

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

Рубрика: 

23
if T=nil then
T:=n
else
begin p:=T; flag:=true;
while flag do
begin
if x < p^.inf then { меньший присоединяется слева }
if p^.L=nil then
begin
p^.L:=n; flag:=false
end
else p:=p^.L { по левой ветви вниз}
else
if p^.R=nil then
begin { больший или равный присоединяется справа }
p^.R:=n; flag:=false
end
else p:=p^.R { по правой ветви вниз }
end
end
end; { InTree }
{ вывод элементов дерева поиска }
procedure PrintInf(T : Tree);
begin
if T <> nil then
begin
PrintInf(T^.L);
writeln(T^.inf);
PrintInf(T^.R)
end
end; { PrintInf }

Страницы