3- ÁrbolesSolución de la Autoevaluación

hojas.ads
with listas;
generic
type elemento is private;
package hojas is
type arbin is limited private;
package mislistas is new listas(elemento);
use mislistas;
procedure lashojas (a:in arbin);
private
type nodo;
type arbin is access nodo;
type nodo is
record
dato:elemento;
izq,der:arbin;
end record;
end hojas; 


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