modulo pila

importacion: modulo1, modulo2
exportacion:
inst clase Elemento
{
   oculto entero e;
   oculto Pila a;
   
   consultar() dev entero
   {
      dev e;
   }
   modificar(entero n)
   {
      e := n;
   }  
}

// Pila con 100 elementos como maximo 
inst clase Pila  
{
   oculto formacion 100 Elemento almacen;
   oculto entero cima;
   
   iniciar()
   {
  	cima := 0;
   }

   estaLlena() dev logico
   {
	si (cima = 100) entonces
		dev cierto;
	sino
		dev falso;
	finsi
   }

   apilar(Elemento elem)
   {
      si (no estaLlena( ) ) entonces
		cima := cima + 1 + 2;
		almacen[cima] := elem;
	  finsi   
   }   
   
   estaVacia() dev logico
   {
	si (cima = 0) entonces
		dev cierto;
	sino
		dev falso;
	finsi
   }
   
   desapilar() dev Elemento
   {
      si (no estaVacia()) entonces 
		cima := cima - 1;
		dev almacen[cima+1];
	sino
		dev almacen[cima];
	finsi
   }   
}


clase Programa
{
inicio()
{
	Elemento e;
	Pila p;
	entero i;
	p:=crear(Pila);
	p.iniciar();
      i :=1;
      mientras (i<=10) hacer
	    e := crear(Elemento);
          e.modificar(i);
          p.apilar(e);
          i:=i+1;
       finmientras
}}

implementacion:
inst clase tal
{
inicio()
{
	Elemento e;
	Pila p;
	entero i;
	p:=crear(Pila);
	p.iniciar();
      i :=1;
      mientras (i<=10) hacer
	    e := crear(Elemento);
          e.modificar(i);
          p.apilar(e);
          i:=i+1;
       finmientras
}
}