Autor Tema: Vaciar Arbol Binario (Leído 2509 veces)

Ocean Soul · « **en:** Jueves 6 de Octubre de 2005, 12:38 »

Hola de nuevo, queria preguntarles, esta mal lo que hice?
O sea la intencion es querer borrar el arbol binario, pero no se si estoy borrando o simplemente generando basura en memoria.

Otra Pregunta que se me desprende de esta es:
Cuando uno pasa un puntero por valor, que es lo que hace Pascal?
Copia un puntero a la variable pasada por valor (en este caso A) o crea todo la estructura denuevo? Cuando vean el codigo van a entender mejor lo que digo.

Código: Text

 
type
        PtrTree=^Tree;
        Tree=record
                info:TRotulo;
    HD,HI:ptrTree;
                end;
  Arbol=ptrTree;
{-----------------------------------------------------------------------------------}
{Primero viene el de mas abajo}
Procedure VaciarArbolAux(A:arbol);
Begin
  if not ArbolVAcio(A) then
  Begin
    VaciarArbolAux(a^.HD);
    VaciarArbolAux(A^.HI);
                if A&#60;&#62;nil then
                              Dispose(A);
  end;  
end;
{-----------------------------------------------------------------------------------}
Procedure VaciarArbol(var A:arbol);
Begin
  if not ArbolVAcio(A) then
  Begin
    VaciarArbolaux(a);
                                a:=nil;
  end;
end;
 
 

PD: Si esta mal, me ayudan ha hacerlo bien????

Alpha_

No, está bien... habría que ver qué hace el ArbolVacío(), porque quizás estés con un problema ahí.. pero hasta ahora está perfecto.

Sobre pasar los punteros por valor, Pascal hace una copia del puntero en esa variable. Si hacés un Dispose(ptr), entonces esa memoria se libera, y el puntero pasa a ser nil... pero el puntero original, todavía está apuntando a una zona de memoria, que ya fue liberada, por ende, cuidado con eso.

Es preferible pasarlos siempre por referencia, de modo que siempre se trabaje con el mismo puntero... Bah, por lo menos así pienso yo.

---

Te incluyo como lo haría yo, usaría sólo un procedimiento.

Código: Text

procedure VaciarArbol(var A: Arbol);
begin
  if A &#60;&#62; nil then
  begin
    VaciarArbol(A^.HI);
    VaciarArbol(A^.HD);
    Dispose(A);
  end;
end;
 

Sólo porque pasaba.. xD

Amilius

Cita de: "Alpha_"

No, está bien... habría que ver qué hace el ArbolVacío(), porque quizás estés con un problema ahí.. pero hasta ahora está perfecto.

Sobre pasar los punteros por valor, Pascal hace una copia del puntero en esa variable. Si hacés un Dispose(ptr), entonces esa memoria se libera, y el puntero pasa a ser nil... pero el puntero original, todavía está apuntando a una zona de memoria, que ya fue liberada, por ende, cuidado con eso.

Es preferible pasarlos siempre por referencia, de modo que siempre se trabaje con el mismo puntero... Bah, por lo menos así pienso yo.

---

Te incluyo como lo haría yo, usaría sólo un procedimiento.

Código: Text
procedure VaciarArbol(var A: Arbol);
begin
if A <> nil then
begin
VaciarArbol(A^.HI);
VaciarArbol(A^.HD);
Dispose(A);
end;
end;

Sólo porque pasaba.. xD

Definitivamente faltaba ese A<>nil y queda bastante elegante.

Ocean Soul

Gracias por responder. Me quedo claro. En cuanto al que hacer arbolVacio(a) simplemente esto: ArbolVacio:=(A=nil) no lo escribi porque me parecio bastante claro, pero buh...

Como sea gracias.

Amilius

Cita de: "Ocean Soul"

Gracias por responder. Me quedo claro. En cuanto al que hacer arbolVacio(a) simplemente esto: ArbolVacio:=(A=nil) no lo escribi porque me parecio bastante claro, pero buh...
Como sea gracias.

Pues no es nada claro. Ese "ArbolVacio" podría bien hacer barbaridad y media, o recorrer todo el arbol recursivamente o quien sabe que podría hacer.

Suponer en lugar de investigar no es para nada una buena idea.

SoloCodigo

Autor Tema: Vaciar Arbol Binario (Leído 2509 veces)

Ocean Soul

Vaciar Arbol Binario

Alpha_

Re: Vaciar Arbol Binario

Amilius

Re: Vaciar Arbol Binario

Ocean Soul

Re: Vaciar Arbol Binario

Amilius

Re: Vaciar Arbol Binario