3- ÁrbolesSolución de la Autoevaluación

hojas.adb
 
package body hojas is
procedure lashojas(a:in arbin) is
l1,l2:lista;
begin 
if (a=null) and (a.der=null) then
 anadeDcha(l,a)
else
if (a.izq/=null) then
hojas(a.izq);
end if;
if (a.der/=null) then
hojas(a.der);
end if;
end if;
end lashojas;
end hojas; 


  E.Mayordomo y K. Urzelai 
elvira at posta.unizar.es
karmelo at posta.unizar.es
Fecha de actualización: 5-9-01