La prueba de la página web de este año
authordanigm <>
Wed, 26 Mar 2008 20:58:18 +0000 (21:58 +0100)
committerdanigm <>
Wed, 26 Mar 2008 20:58:18 +0000 (21:58 +0100)
prueba1 [new file with mode: 0644]

diff --git a/prueba1 b/prueba1
new file mode 100644 (file)
index 0000000..a99d398
--- /dev/null
+++ b/prueba1
@@ -0,0 +1,84 @@
+modulo pila \r
+\r
+exportacion:\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
+// Pila con 100 elementos como maximo \r
+inst clase Pila  \r
+{\r
+   oculto formacion 100 Elemento almacen;\r
+   oculto entero cima;\r
+   \r
+   iniciar()\r
+   {\r
+       cima := 0;\r
+   }\r
+\r
+   estaLlena() dev logico\r
+   {\r
+       si (cima = 100) entonces\r
+               dev cierto;\r
+       sino\r
+               dev falso;\r
+       finsi\r
+   }\r
+\r
+   apilar(Elemento elem)\r
+   {\r
+      si (no estaLlena( ) ) entonces\r
+               cima := cima + 1 + 2;\r
+               almacen[cima] := elem;\r
+         finsi   \r
+   }   \r
+   \r
+   estaVacia() dev logico\r
+   {\r
+       si (cima = 0) entonces\r
+               dev cierto;\r
+       sino\r
+               dev falso;\r
+       finsi\r
+   }\r
+   \r
+   desapilar() dev Elemento\r
+   {\r
+      si (no estaVacia()) entonces \r
+               cima := cima - 1;\r
+               dev almacen[cima+1];\r
+       sino\r
+               dev almacen[cima];\r
+       finsi\r
+   }   \r
+}\r
+\r
+\r
+clase Programa\r
+{\r
+inicio()\r
+{\r
+       Elemento e;\r
+       Pila p;\r
+       entero i;\r
+       p:=crear(Pila);\r
+       p.iniciar();\r
+      i :=1;\r
+      mientras (i<=10) hacer\r
+           e := crear(Elemento);\r
+          e.modificar(i);\r
+          p.apilar(e);\r
+          i:=i+1;\r
+       finmientras\r
+}\r
+}
\ No newline at end of file