Acceso a clase

[PL2.git] / prueba1

diff --git a/prueba1 b/prueba1
index c2dbb30..2559b43 100644 (file)
--- a/prueba1
+++ b/prueba1
@@ -2,30 +2,21 @@ modulo pila
 \r
 importacion: modulo1, modulo2\r
 exportacion:\r
-inst clase Elemento\r
-{\r
-   oculto entero e;\r
-   oculto Pila a;\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
@@ -65,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
@@ -85,7 +90,7 @@ inicio()
 }}\r
 \r
 implementacion:\r
-inst clase tal\r
+clase tal\r
 {\r
 inicio()\r
 {\r