procedure delelem(var root:PTree;info:byte);Покажите пожалуйста, как переделать её в удаление только листьев, не имеющих соседей.
var temp:PTree;
begin
if (root<>NIL) then (* Если дерево не пустое, то *)
begin
if (info<root^.info) then (* Если удаляемый элемент меньше тек. узла, то *)
delelem(root^.left,info) (* Удалить его из левого поддерева *)
else (* Иначе *)
if (info>root^.info) then (* Если удаляемый элемент больше тек. узла, то *)
delelem(root^.right,info) (* Удалить его из правого поддерева *)
else (* Иначе тек. узел - удаляемый элемент *)
begin
if (root^.left=NIL) and (root^.right=NIL) then (* Если тек. узел - лист, то *)
begin
dispose(root); (* Удалить его *)
root:=NIL; (* Поставить на его место пустое дерево *)
end
else
if (root^.left=NIL) and (root^.right<>NIL) then
(* Если у тек.узла есть только правая ветвь *)
begin
temp:=root; (* Присоединить её вместо тек. узла *)
root:=root^.right;
dispose(temp); (* Удалить тек. узел *)
end
else
if (root^.left<>NIL) and (root^.right=NIL) then
(* Если у тек.узла есть только левая ветвь *)
begin
temp:=root; (* Присоединить её вместо тек. узла *)
root:=root^.left;
dispose(temp); (* Удалить тек. узел *)
end
else (* Иначе у узла есть обе ветви *)
begin
root^.info:=getmostright(root^.left);
(* Вставить на место узла самый правый эл-т левого поддерева *)
delelem(root^.left,root^.info);
(* Удалить самый правый эл-т из левого поддерева *)
end;
end;
end;
end;
Двоичное дерево: Удаление листьев, не имеющих соседей., Покажите пожалуйста, как переделать процедуру. |