prueba1

   1 modulo pila\r
   2 \r
   3 importacion: modulo1, modulo2\r
   4 exportacion:\r
   5 inst clase Elemento\r
   6 {\r
   7    oculto entero e;\r
   8    \r
   9    consultar() dev entero\r
  10    {\r
  11       dev e;\r
  12    }\r
  13    modificar(entero n)\r
  14    {\r
  15       e := n;\r
  16    }  \r
  17 }\r
  18 \r
  19 // Pila con 100 elementos como maximo \r
  20 inst clase Pila  \r
  21 {\r
  22    oculto formacion 100 Elemento almacen;\r
  23    oculto entero cima;\r
  24    \r
  25    iniciar()\r
  26    {\r
  27         cima := 0;\r
  28    }\r
  29 \r
  30    estaLlena() dev logico\r
  31    {\r
  32         si (cima = 100) entonces\r
  33                 dev cierto;\r
  34         sino\r
  35                 dev falso;\r
  36         finsi\r
  37    }\r
  38 \r
  39    apilar(Elemento elem)\r
  40    {\r
  41       si (no estaLlena( ) ) entonces\r
  42                 cima := cima + 1 + 2;\r
  43                 almacen[cima] := elem;\r
  44           finsi   \r
  45    }   \r
  46    \r
  47    estaVacia() dev logico\r
  48    {\r
  49         si (cima = 0) entonces\r
  50                 dev cierto;\r
  51         sino\r
  52                 dev falso;\r
  53         finsi\r
  54    }\r
  55    \r
  56    desapilar() dev Elemento\r
  57    {\r
  58       si (no estaVacia()) entonces \r
  59                 cima := cima - 1;\r
  60                 dev almacen[cima+1];\r
  61         sino\r
  62                 dev almacen[cima];\r
  63         finsi\r
  64    }   \r
  65 }\r
  66 \r
  67 \r
  68 clase Programa\r
  69 {\r
  70 inicio()\r
  71 {\r
  72         Elemento e;\r
  73         Pila p;\r
  74         entero i;\r
  75         p:=crear(Pila);\r
  76         p.iniciar();\r
  77       i :=1;\r
  78       mientras (i<=10) hacer\r
  79             e := crear(Elemento);\r
  80           e.modificar(i);\r
  81           p.apilar(e);\r
  82           i:=i+1;\r
  83        finmientras\r
  84 }}\r
  85 \r
  86 implementacion:\r
  87 inst clase tal\r
  88 {\r
  89 inicio()\r
  90 {\r
  91         Elemento e;\r
  92         Pila p;\r
  93         entero i;\r
  94         p:=crear(Pila);\r
  95         p.iniciar();\r
  96       i :=1;\r
  97       mientras (i<=10) hacer\r
  98             e := crear(Elemento);\r
  99           e.modificar(i);\r
 100           p.apilar(e);\r
 101           i:=i+1;\r
 102        finmientras\r
 103 }\r
 104 }