3 importacion: modulo1, modulo2
\r
6 // Pila con 100 elementos como maximo
\r
9 oculto formacion 100 Elemento almacen;
\r
21 estaLlena() dev logico
\r
23 si (cima = 100) entonces
\r
30 apilar(Elemento elem)
\r
32 si (no estaLlena( ) ) entonces
\r
33 cima := cima + 1 + 2;
\r
34 almacen[cima] := elem;
\r
38 estaVacia() dev logico
\r
40 si (cima = 0) entonces
\r
47 desapilar() dev Elemento
\r
49 si (no estaVacia()) entonces
\r
51 dev almacen[cima+1];
\r
62 consultar() dev entero
\r
83 mientras (i<=10) hacer
\r
84 e := crear(Elemento);
\r
102 mientras (i<=10) hacer
\r
103 e := crear(Elemento);
\r