modulo pila

importacion: elemento

exportacion: 

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

   estaLlena() dev logico
   {
   TipoErr c;
   apilar1(c);
	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
   }   
}