SLE_Practica55_ColaEstatica

/* Con una cola estática de 5 elementos de tipo entero generados
    aleatoriamente implementar las operaciones con base en el menú:

   a.   Insertar
   b.   Eliminar
   c.   Desplegar
   d.   Salir
*/

// Declaración de Variables
var
    cola: vector[5] numerico  // Arreglo para simular la cola de 5 elementos
    frente: numerico
    final: numerico
    opcion: numerico
    elemento, i: numerico

inicio
   cls()
    // Inicialización de la Cola
    frente = 1
    final = 1

    repetir
        // Mostrar Menú
        imprimir("\nMenú:")
        imprimir("\n1. Insertar")
        imprimir("\n2. Eliminar")
        imprimir("\n3. Desplegar")
        imprimir("\n4. Salir")
        imprimir("\n\nSeleccione una opción:")
        leer(opcion)

        eval {
            caso (opcion == 1)
                // Insertar un elemento
                si (final < 5) {
                    elemento = random(100)  // Generar un número aleatorio entre 1 y 100
                    cola[final] = elemento
                    final = final + 1
                    imprimir("\nElemento " + str(elemento) + " insertado.")
                sino
                    imprimir("\nLa cola está llena.")
                }
            caso (opcion == 2)
                // Eliminar un elemento
                si (frente <> final) {
                    elemento = cola[frente]
                    imprimir("\nElemento " + str(elemento) + " eliminado.")
                    frente = frente + 1
                    // Si la cola está vacía, restablecer
                    si (frente == final) {
                        frente = 1
                        final = 1
                    }
                sino
                    imprimir("\nNo hay elementos en la cola.")
                }
            caso (opcion == 3)
                // Desplegar elementos de la cola
                si (frente <> final) {
                    imprimir("\nElementos en la cola:")
                    desde i = frente hasta final - 1 {
                        imprimir("\n ",cola[i])
                    }
                sino
                    imprimir("\nLa cola está vacía.")
                }
            caso (opcion == 4)
                imprimir("\nSaliendo del programa.")
            sino
                imprimir("\nOpción no válida.")
        }
    hasta (opcion == 4)

fin