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 } }