Acceso a clase
[PL2.git] / prueba1
diff --git a/prueba1 b/prueba1
index a99d398..2559b43 100644 (file)
--- a/prueba1
+++ b/prueba1
@@ -1,29 +1,22 @@
-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
@@ -63,6 +56,20 @@ inst clase Pila
    }   \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
@@ -80,5 +87,24 @@ inicio()
           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