3- ÁrbolesSolución de la Autoevaluación recor.ads
with arboles,listas; generic type elemento is private; package recor is package misarboles is new arboles(elemento); package mislistas is new listas(elemento); use misarboles,mislistas; procedure preOrden(a:in arbol; l:out lista); -- Pre: l=l0 -- Post: l=concatena(l0,preorden(a)) procedure postOrden(a:in arbol; l:out lista); -- Pre: l=l0 -- Post: l=concatena(l0,postorden(a)) procedure preBosque(b:in bosque; l:out lista); -- Pre: l=l0 -- Post: l=concatena(l0,preBosque(b)) procedure postBosque(b:in bosque; l:out lista); -- Pre: l=l0 -- Post: l=concatena(l0,postBosque(b)) end recor;
E.Mayordomo y K. Urzelai  elvira at posta.unizar.es karmelo at posta.unizar.es Fecha de actualización: 5-9-01