SLE_Practica50_OperacionesPilas

/* Elabora un algoritmo que mediante un menú permite realizar operaciones sobre una pila de enteros aleatorios.
  La pila tiene un máximo de 10 elementos. */

var
  pila: vector [10] numerico
  tope: numerico
  opcion: numerico
  numero: numerico
  i: numerico

inicio
  tope = 0
  cls()

  repetir
    imprimir("\nMenú:\n")
    imprimir("1. Insertar\n")
    imprimir("2. Eliminar\n")
    imprimir("3. Tope\n")
    imprimir("4. Salir\n")
    imprimir("Elija una opción: ")
    leer(opcion)

    eval {
      caso (opcion == 1)
        si (tope < 10) {
          numero = random(100)
          imprimir("\nElemento insertado: ", numero)
          tope = tope + 1
          pila[tope] = numero
        sino
          imprimir("\nLa pila está llena.")
        }

      caso (opcion == 2)
        si (tope > 0) {
          imprimir("\nElemento eliminado: ", pila[tope])
          tope = tope - 1
        sino
          imprimir("\nLa pila está vacía.")
        }

      caso (opcion == 3)
        si (tope > 0) {
          imprimir("\nElemento en el tope: ", pila[tope - 1])
        sino
          imprimir("\nLa pila está vacía.")
        }

      caso (opcion == 4)
        imprimir("\nSaliendo del programa.")
      sino
        imprimir("\nOpción no válida. Por favor, elija una opción válida.")

    }
  hasta (opcion == 4)

fin

**NOTA**: El algoritmo dado fue elaborado por Gemini. Tuvieron que hacerse las correcciones respectivas de sintaxis según el pseudolenguaje SLE porque la versión original contiene varias inconsistencias. Aun así, hay que ejecutarlo con reservas.