Algoritmos y Programación en Pascal

17.4.
Árboles binarios 381
Encontrar:= Encontrar (dato, hIzdo)
else if datos > contenido then
Encontrar:= Encontrar (dato, hDcho)
else Encontrar:= arbol
end; {Encontrar}
Inserción de un nuevo nodo
El siguiente procedimiento inserta un nuevo nodo en un árbol binario de
búsqueda árbol; la inserción del nodo es tarea fácil, todo consiste en encontrar
el lugar adecuado donde insertar el nuevo nodo, esto se hace en función de su
valor de manera similar a lo visto en el ejemplo anterior. El seudocódigo para
este procedimiento es:
si arbol es vacío entonces
crear nuevo nodo
en otro caso si arbol^.contenido > datoNuevo entonces
Insertar ordenadamente en el hijo izquierdo de arbol
en otro caso si arbol^.contenido < datoNuevo entonces
Insertar ordenadamente en el hijo derecho de arbol
Y la implementación en Pascal es:
procedure Insertar(datoNuevo: tElem; var arbol: tArbol);
{Efecto: se a~nade ordenadamente a arbol un nodo de contenido
datoNuevo}
begin
if arbol = nil then begin
New(arbol);
with arbol^ do begin
hIzdo:= nil;
hDcho:= nil;
contenido:= datoNuevo
end {with}
end {then}
else with arbol^ do
if datoNuevo < contenido then
Insertar(datoNuevo,hIzdo)
else if datoNuevo > contenido then
Insertar(datoNuevo,hDcho)
else {No se hace nada: entrada duplicada}
end; {Insertar}
La forma resultante de un árbol binario de búsqueda depende bastante del
orden en el que se vayan insertando los datos: si éstos ya están ordenados el
árbol degenera en una lista (véase la figura 17.11).