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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Listas simples
- Radar
- Pentagrama