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