TAD arboles N-arios---Ayuda
 

Hola, una consulta nuevamente, utilizando el tad de arboles binarios(para crear arboles N-arios se toma a el hijoderecho como hermano y a el hijo izquierdo como un nuevo nivel) , tengo que realizar el RECORRIDO EN ANCHURA DE UN ARBOL N-ARIO, la idea es un procedimiento recursivo, pero no lo puedo conseguir, gracias.

Consulta - TP Arboles- "Para cada nodo de un arbol Indique nombre del nodo padre"
 

Hola, estube tratando de hacer este ejercicio(la idea es recorrerlo preorden) pero me tira el mensaje bien para el primer nodo,
y despues tira un error, a ese procedimiento le paso A.Raiz, ¿Lo podrias revisar?, muchas gracias

Código Delphi [-]
procedure pad ( p : posicionarbol);

begin
    if not ramanula(p) then
     begin
     if p <> a.raiz then
         begin
         showmessage ( 'NODO : ' + p.Datos.ds + '  PADRE : ' + padre(a,p).Datos.DS ) ;
         end;
     pad(p.HI);
     pad(p.HD);
    end;
end;

Hola...

Antes que nada, te recomiendo que le des una leida a la Guía de Estilo, si es que no lo has hecho ya.

Otra cosa, cuando publiques código fuente en Delphi, usa las etiquetas [delphi]:

[delphi]
begin
ProcedimientoAEjecutar;
Variable := 'hola mundo';
// ejemplo
end;
[/delphi]

lo que se mostrará en los foros así:

Código Delphi [-]
begin
  ProcedimientoAEjecutar;
  Variable := 'hola mundo';
  // ejemplo
end;

Sobre tu problema, ¿cuál es exactamente el mensaje de error que recibes?


Saludos...

velapuerca88, recuerda poner los tags al código fuente, ejemplo:



Gracias :)

Por cierto, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)

Y no crees nuevos hilos para el mismo tema.

La primera vez que que pasa por el bucle tira el mensaje que pretendo" nodo x -- padre y ", pero la segunda tira error, recorriendolo paso a paso el error es que cuando llega por segunda vez a:

Código Delphi [-]
padre(a,p).Datos.DS "

el valor resulta inaccesible y no se porque.
(obviamente compila y ejecuta, pero no funciona)

Hola...

Aun sigues dando pocos datos. No indicas cual es exactamente el mensaje de error, también sería bueno que publicaras el código del procedimiento padre y la estructura del tipo pocisionarbol.


Saludos...