3 importacion: modulo1, modulo2
\r
6 // Pila con 100 elementos como maximo
\r
9 oculto formacion 100 Elemento almacen;
\r
17 //no se por que sale 3 veces este error
\r
22 estaLlena() dev logico
\r
24 si (cima = 100) entonces
\r
31 apilar(Elemento elem)
\r
33 si (no estaLlena( ) ) entonces
\r
34 cima := cima + 1 + 2;
\r
35 almacen[cima] := elem;
\r
39 estaVacia() dev logico
\r
41 si (cima = 0) entonces
\r
48 desapilar() dev Elemento
\r
50 si (no estaVacia()) entonces
\r
52 dev almacen[cima+1];
\r
63 consultar() dev entero
\r
84 mientras (i<=10) hacer
\r
85 e := crear(Elemento);
\r
103 mientras (i<=10) hacer
\r
104 e := crear(Elemento);
\r