SLE_Practica48_Colores

/* Elabora un algoritmo que mediante un menú como el siguiente:
1.  Insertar
2.  Eliminar
3.  Desplegar
4.  Salir

Implemente las operaciones de una pila de máximo 10 elementos de tipo cadena que almacena los colores introducidos por el usuario.


*/

var
    pila: vector [10] cadena
    tope: numerico
    opcion: numerico
    color: cadena
     i: numerico

inicio
    tope = 0
    cls()
    repetir
        imprimir("\nMenú:\n")
        imprimir("1. Insertar \n")
        imprimir("2. Eliminar \n")
        imprimir("3. Desplegar \n")
        imprimir("4. Salir \n")
        imprimir("Elija una opción: ")
        leer(opcion)

        eval {
            caso (opcion == 1)
                si (tope < 10) {
                    imprimir("\nIntroduce un color: ")
                    leer(color)
                    tope = tope + 1
                    pila[tope] = color
                 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("\nElementos en la pila:")
                    desde i=tope hasta 1 paso -1 {
                        imprimir("\n ",pila[i])
                    }
                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