• Jueves 28 de Marzo de 2024, 20:54

Autor Tema:  Imprimir Por Niveles  (Leído 1019 veces)

rebosador

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Imprimir Por Niveles
« en: Martes 23 de Mayo de 2006, 17:27 »
0
Hola a todos, se q hay un tema abierto de arboles multicamino pero ese chico explica el procedimiento usando una pila o una cola, yo lo hago de manera recursiva xo a la hora de mostrar los hijos lo hace desordenadamente, y no por orden en el arbol
un ejemplo seria:
            1
             /
            2 -  3
            /     /
           4     5

el resultado es 1 2 3 5 4 y tendria q ser 1 2 3 4 5

os dejo mi codigo para ver si alguien ,me puede echar un cable sobre lo q tendria q cambiar.


procedure imprimirPorNiveles(a:tipoArbolGen);
  begin
    if a<>nil then
        mostrardatoscliente (a^.cliente);
    if a^.siguiente<>nil then
        imprimirporniveles (a^.siguiente);
    if a^.hijo<>nil then
        imprimirporniveles (a^.hijo);
  end;

pienso q el planteamiento es bueno xo no doy con ello.

aunq no sepais cmo acerlo, gracias de todas formas x molestaros en leer esto!!
saludos a todos!!