Ya está la parte del anasint de importacion, exportacion e implementacion
[PL2.git] / prueba1
1 modulo pila\r
2 \r
3 importacion: modulo1, modulo2\r
4 exportacion:\r
5 inst clase Elemento\r
6 {\r
7    oculto entero e;\r
8    \r
9    consultar() dev entero\r
10    {\r
11       dev e;\r
12    }\r
13    modificar(entero n)\r
14    {\r
15       e := n;\r
16    }  \r
17 }\r
18 \r
19 // Pila con 100 elementos como maximo \r
20 inst clase Pila  \r
21 {\r
22    oculto formacion 100 Elemento almacen;\r
23    oculto entero cima;\r
24    \r
25    iniciar()\r
26    {\r
27         cima := 0;\r
28    }\r
29 \r
30    estaLlena() dev logico\r
31    {\r
32         si (cima = 100) entonces\r
33                 dev cierto;\r
34         sino\r
35                 dev falso;\r
36         finsi\r
37    }\r
38 \r
39    apilar(Elemento elem)\r
40    {\r
41       si (no estaLlena( ) ) entonces\r
42                 cima := cima + 1 + 2;\r
43                 almacen[cima] := elem;\r
44           finsi   \r
45    }   \r
46    \r
47    estaVacia() dev logico\r
48    {\r
49         si (cima = 0) entonces\r
50                 dev cierto;\r
51         sino\r
52                 dev falso;\r
53         finsi\r
54    }\r
55    \r
56    desapilar() dev Elemento\r
57    {\r
58       si (no estaVacia()) entonces \r
59                 cima := cima - 1;\r
60                 dev almacen[cima+1];\r
61         sino\r
62                 dev almacen[cima];\r
63         finsi\r
64    }   \r
65 }\r
66 \r
67 \r
68 clase Programa\r
69 {\r
70 inicio()\r
71 {\r
72         Elemento e;\r
73         Pila p;\r
74         entero i;\r
75         p:=crear(Pila);\r
76         p.iniciar();\r
77       i :=1;\r
78       mientras (i<=10) hacer\r
79             e := crear(Elemento);\r
80           e.modificar(i);\r
81           p.apilar(e);\r
82           i:=i+1;\r
83        finmientras\r
84 }}\r
85 \r
86 implementacion:\r
87 inst clase tal\r
88 {\r
89 inicio()\r
90 {\r
91         Elemento e;\r
92         Pila p;\r
93         entero i;\r
94         p:=crear(Pila);\r
95         p.iniciar();\r
96       i :=1;\r
97       mientras (i<=10) hacer\r
98             e := crear(Elemento);\r
99           e.modificar(i);\r
100           p.apilar(e);\r
101           i:=i+1;\r
102        finmientras\r
103 }\r
104 }