Pascal/Turbo Pascal - recorrido anchura arbol

   
Vista:

recorrido anchura arbol

Publicado por Maria (8 intervenciones) el 13/12/2010 19:48:16
Hola!!! Tengo el codigo para recorrer un arbol en anchura pero no se como hacer para que cuando me imprime el numero me muestre en que nivel esta. Aqui os dejo el codigo

procedure recorreanchura(a:tarbol);
var c:tcola
begin
colavacia(c);
if a<>nil then
begin
poner(c,a);
while not esvacia(c) do
begin
quitar(c,a);
writeln(a^.info);
if a^.izq<>nil then
poner(c,a^.izq);
if a^.der<>nil then
poner(c,a^.der);
end;
end;
end;
end;

Graciass!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder