Login con Arreglos

Algoritmo LoginConArreglos

    // Definimos los arreglos para usuarios y contraseñas
    Dimension usuarios[5]
    Dimension contrasenas[5]

    // Inicializamos los usuarios y contraseñas
    usuarios[1] <- "admin"
    contrasenas[1] <- "1234"
    usuarios[2] <- "user1"
    contrasenas[2] <- "abcd"
    usuarios[3] <- "user2"
    contrasenas[3] <- "5678"
    usuarios[4] <- "user3"
    contrasenas[4] <- "efgh"
    usuarios[5] <- "user4"
    contrasenas[5] <- "ijkl"

    // Variables para el ingreso del usuario
    Definir usuario_ingresado Como Caracter
    Definir contrasena_ingresada Como Caracter
    Definir intentos Como Entero
    intentos <- 3
    Definir acceso_concedido Como Logico
    acceso_concedido <- Falso

    Mientras intentos > 0 Y acceso_concedido = Falso Hacer
        // Solicitar datos al usuario
        Escribir "==== LOGIN ===="
        Escribir "Usuario: "
        Leer usuario_ingresado
        Escribir "Contraseña: "
        Leer contrasena_ingresada

        // Verificar las credenciales contra los arreglos
        Para i <- 1 Hasta 5 Hacer
            Si usuario_ingresado = usuarios[i] Y contrasena_ingresada = contrasenas[i] Entonces
                acceso_concedido <- Verdadero
            FinSi
        FinPara

        // Validar si se concedió acceso
        Si acceso_concedido = Verdadero Entonces
        //Colocar El menu con los algoritmos
            Escribir "Acceso concedido. Bienvenido ", usuario_ingresado, "!"
        SiNo
            intentos <- intentos - 1
            Escribir "Credenciales incorrectas. Intentos restantes: ", intentos
        FinSi
    FinMientras

    // Mensaje final
    Si acceso_concedido = Falso Entonces
        Escribir "Has excedido el número máximo de intentos. Acceso denegado."
    FinSi

FinAlgoritmo