Pascal/Turbo Pascal - arbol binario

   
Vista:

arbol binario

Publicado por Laura (8 intervenciones) el 04/06/2010 12:57:31
Tengo un procedimiento que calcula el número de nodos de un árbol binario. Necesito modificarlo para que sólo me calcule el número de nodos en un nivel dado. Alguna idea? Aquí os dejo el código:

procedure nivel(a:tarbol;n:integer);
var c:tipo_cola;
cont:integer;
begin
cont:=0;
c_crear(c);
if a<>nil then begin
c_agregar(c,a);
while not c_vacia(c) do
begin
c_sacar(c,a);
writeln(a^.info);
cont:=cont+1;
if a^.izq<>nil
then c_agregar(c,a^.izq);
if a^.der<>nil
then c_agregar(c,a^.der);
end;
end;
writeln('el num de nodos es ',cont);
end;

Gracias.
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