SLE_Practica53_ClientesBanco

/* En un Banco se requiere formar los clientes que van llegando para ser atendidos con una ficha.
   Mediante las operaciones de una cola simular la llegada y atención de los clientes, con base en un menú:
        a.  Formar
        b.  Atender
        c.  Salir
*/



// Declaración de Variables
var
    cola: vector[*] numerico  // Arreglo para simular la cola
    frente: numerico
    final: numerico
    cliente: numerico
    opcion: numerico
    num_clientes: numerico

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

    imprimir ("¿Cuantos clientes han llegado a la cola en el Banco?\n")
   leer (num_clientes)

    dim (cola, num_clientes)

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

        eval {
            caso (opcion == 1)
                // Formar un cliente
                imprimir("\nIngrese el número del cliente:")
                leer(cliente)
                si (final < num_clientes) {
                    cola[final] = cliente
                    final = final + 1
                    imprimir("\nCliente " + str(cliente) + " formado.")
                sino
                    imprimir("\nLa cola está llena.")
                }
            caso (opcion == 2)
                // Atender un cliente
                si (frente <> final) {
                    cliente = cola[frente]
                    imprimir("\nCliente " + str(cliente) + " atendido.")
                    frente = frente + 1
                    // Si la cola está vacía, restablecer
                    si (frente == final) {
                        frente = 0
                        final = 0
                    }
                 sino
                    imprimir("\nNo hay clientes en la cola.")
                }
            caso (opcion == 3)
                imprimir("\nSaliendo del programa.")
            sino
                imprimir("\nOpción no válida.")
        }
    hasta (opcion == 3)

fin