-modulo pila \r
+modulo pila\r
\r
+importacion: modulo1, modulo2\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 Pila a;\r
+ oculto Elemento b;\r
oculto entero cima;\r
\r
iniciar()\r
{\r
cima := 0;\r
+ //no se por que sale 3 veces este error\r
+ a := 3;\r
+ tal.inicio();\r
}\r
\r
estaLlena() dev logico\r
} \r
}\r
\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
\r
clase Programa\r
{\r
p.apilar(e);\r
i:=i+1;\r
finmientras\r
+}}\r
+\r
+implementacion:\r
+clase tal\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