Б - деревья

[Mclaren]

Как удалять элементы с Б дерева?

[Алена_=)))]

насколько я знаю удаления узла с заданным значением происходит в 3 варинтах.
вот моя процедурка вроде норм работает!(PASCAL)
procedure delete_key(var p:svd; x:integer);
var q:svd;
procedure Del(var r:svd);
begin
if (r^.right<>nil) then Del(r^.right)
else
begin
q^.key:=r^.key;
q:=r;
r:=r^.left;
dispose(q);
end;
end;{конец del}
Begin{поиск узла для удаления и выбор варианта его удаления}
if p=nil then writeln('net elementa s zadanbIm klyuchom')
else if (x<p^.key) then delete_key(p^.left,x)
else if (x>p^.key) then delete_key(p^.right,x)
else{узел найден выбир вариант}
begin{2 вар}
q:=p;{q-указатель на удал звено}
if (q^.right=nil) then begin p:=q^.left;
dispose(q); end
else if (q^.left=nil) then begin p:=q^.right; dispose(q); end
else Del(p^.right);{вариант 3}

end;




end;