3- ÁrbolesSolución de la Autoevaluación

recorbin.ads
 
with arbolesbin,listas;
generic
type elemento is private;
package recorbin is
package misarboles is new arbolesbin(elemento);
package mislistas is new listas(elemento);
use misarboles,mislistas;
procedure preOrden(a:in arbin; l:in out lista);
-- Pre: l=l0
-- Post: l=concatena(l0,preorden(a))
procedure postOrden(a:in arbin; l:in out lista);
-- Pre: l=l0
-- Post: l=concatena(l0,postorden(a))
procedure inOrden(a:in arbin; l:in out lista);
-- Pre: l=l0
-- Post: l=concatena(l0,inorden(a))
end recorbin; 
 


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