From: danigm <> Date: Wed, 26 Mar 2008 20:58:18 +0000 (+0100) Subject: La prueba de la página web de este año X-Git-Url: http://git.danigm.net/?p=PL2.git;a=commitdiff_plain;h=102ba6dbceee26cf4ada2c75eb4820e2b0b7fe90 La prueba de la página web de este año --- 102ba6dbceee26cf4ada2c75eb4820e2b0b7fe90 diff --git a/prueba1 b/prueba1 new file mode 100644 index 0000000..a99d398 --- /dev/null +++ b/prueba1 @@ -0,0 +1,84 @@ +modulo pila + +exportacion: +inst clase Elemento +{ + oculto entero e; + + consultar() dev entero + { + dev e; + } + modificar(entero n) + { + e := n; + } +} + +// Pila con 100 elementos como maximo +inst clase Pila +{ + oculto formacion 100 Elemento almacen; + oculto entero cima; + + iniciar() + { + cima := 0; + } + + estaLlena() dev logico + { + si (cima = 100) entonces + dev cierto; + sino + dev falso; + finsi + } + + apilar(Elemento elem) + { + si (no estaLlena( ) ) entonces + cima := cima + 1 + 2; + almacen[cima] := elem; + finsi + } + + estaVacia() dev logico + { + si (cima = 0) entonces + dev cierto; + sino + dev falso; + finsi + } + + desapilar() dev Elemento + { + si (no estaVacia()) entonces + cima := cima - 1; + dev almacen[cima+1]; + sino + dev almacen[cima]; + finsi + } +} + + +clase Programa +{ +inicio() +{ + Elemento e; + Pila p; + entero i; + p:=crear(Pila); + p.iniciar(); + i :=1; + mientras (i<=10) hacer + e := crear(Elemento); + e.modificar(i); + p.apilar(e); + i:=i+1; + finmientras +} +} \ No newline at end of file