[adpa]

Hola:

Estoy intentando resolver unos problemas de arboles.

1- Función para recorrer un arbol binario por niveles.

2- Función que devuelva la profundidad de un arbol.

3-Function que devuelva los nodos hoja.

Código Delphi [-]
function nodosHoja(A:AB)
BEGIN
     IF a=nil then
        nodosHoja:=0
     ELSE
         IF ( ((A^.hijoIzq = NIL) AND (A^.hijoDer = NIL)) then
              Nodoshoja:=1
         ELSE
              NodosHoja:=nodosHoja(A^.hijoDer)+NodosHoja(A^.hijoIzq);
 
END

4 - Procedimiento que copie un AB

Código Delphi [-]
Procedure copia(A,AC:ab)
begin
     if (a <> nil) then
        begin
            new(ac);
            datos(A^.info,hoja);
            insertar(ac,hoja);
            copia(A^.hijoDer,ac);
            copia(A^.hijoIzq,ac);
        end;
end;

5 - Procedimiento que imprima los nodos del hoja de un nodo binario por niveles, mostrando un rotulo que indique el nivel que se imprimy haciendo un salto de linea cada vez que se cambie de nivel.

6 - Escribir un procedimiento en pascal, que dado un árbol binario de busqueda de enteros, cree una lista enlazada con los nodos del árbol ordenados descendentemente según el valor de enteros almacenados en los nodos.

Si me podeis indicar como tengo que resolver los siguientes problemas.
Gracias.