modulo pila2

importacion: elemento2

exportacion:
// Pila con 100 elementos como maximo
inst clase Pila
{
   oculto Elemento el;
   Elemento2 e2;
   oculto entero cima;
   entero x;
   iniciar()
   {
      cima := 0;
   }
   estaLlena() dev logico
   {
   		// aa
   		// bb
      si (cima = 100.1) entonces          // ERROR Semántico
            dev cierto;
      sino
            dev falso;
      finsi
      apilar(0, 0);
   }
   apilar(Elemento elem, entero i)
   {
      si (no estaLlena()) entonces
            cima := cima + 1;
            el := elem;
      finsi
      i := 1;                          // ERROR Semántico
      e2.haceralgo();
   }
   estaVacia() dev logico
    {
        si (cima = 0) entonces
               dev cierto;
        sino
               dev falso;
        finsi
    }
    desapilar() dev Elemento
    {
        si (no estaVacia(1)) entonces             // ERROR Semántico
               cima := cima - realaentero(1.0);
               dev el;
        sino
               dev el;
        finsi
    }
}
clase Programa
{
      inicio()
      {
         Elemento ed;
         Pila p;
         TipoErr k;                               // ERROR tipo no declarado
         entero i;
         p := crear(Pila);
         escribir(Pila);
         p.iniciar();
         i := p.cima; 
         i := Pila; //ERROR
         i:=1;
         mientras (i < 10) hacer
             ed := crear(Pila);                    // ERROR Semántico
             ed.modificar(i);
             p.apilar(ed, i);
             i:=i+1;
         finmientras
      }
  }
implementacion: