--- /dev/null
+modulo pila \r
+\r
+exportacion:\r
+inst clase Elemento\r
+{\r
+ oculto entero e;\r
+ \r
+ consultar() dev entero\r
+ {\r
+ dev e;\r
+ }\r
+ modificar(entero n)\r
+ {\r
+ e := n;\r
+ } \r
+}\r
+\r
+// Pila con 100 elementos como maximo \r
+inst clase Pila \r
+{\r
+ oculto formacion 100 Elemento almacen;\r
+ oculto entero cima;\r
+ \r
+ iniciar()\r
+ {\r
+ cima := 0;\r
+ }\r
+\r
+ estaLlena() dev logico\r
+ {\r
+ si (cima = 100) entonces\r
+ dev cierto;\r
+ sino\r
+ dev falso;\r
+ finsi\r
+ }\r
+\r
+ apilar(Elemento elem)\r
+ {\r
+ si (no estaLlena( ) ) entonces\r
+ cima := cima + 1 + 2;\r
+ almacen[cima] := elem;\r
+ finsi \r
+ } \r
+ \r
+ estaVacia() dev logico\r
+ {\r
+ si (cima = 0) entonces\r
+ dev cierto;\r
+ sino\r
+ dev falso;\r
+ finsi\r
+ }\r
+ \r
+ desapilar() dev Elemento\r
+ {\r
+ si (no estaVacia()) entonces \r
+ cima := cima - 1;\r
+ dev almacen[cima+1];\r
+ sino\r
+ dev almacen[cima];\r
+ finsi\r
+ } \r
+}\r
+\r
+\r
+clase Programa\r
+{\r
+inicio()\r
+{\r
+ Elemento e;\r
+ Pila p;\r
+ entero i;\r
+ p:=crear(Pila);\r
+ p.iniciar();\r
+ i :=1;\r
+ mientras (i<=10) hacer\r
+ e := crear(Elemento);\r
+ e.modificar(i);\r
+ p.apilar(e);\r
+ i:=i+1;\r
+ finmientras\r
+}\r
+}
\ No newline at end of file