SLE_Practica56_AlumnosCalif

/* Los 15 alumnos de una materia están formados para ser atendidos para la revisión
   de su calificación por parte de su profesor quien a su vez va formando a sus alumnos
   en dos filas con base a su calificación obtenida (aprobados y reprobados).
   Utilizando las operaciones de una cola estática desplegar las dos filas de reprobados y aprobados.
   En la inserción de datos de cada alumno pedir su nombre y calificación.

*/


// Declaración de Variables
var
    cola: vector[15] cadena                     // Arreglo para simular la cola de 15 alumnos
    calificaciones: vector[15] numerico     // Arreglo para las calificaciones de los alumnos
    aprobados: vector[15] cadena               // Arreglo para alumnos aprobados
    reprobados: vector[15] cadena          // Arreglo para alumnos reprobados
    califAprobados: vector[15] numerico   // Arreglo para calificaciones de aprobados
    califReprobados: vector[15] numerico  // Arreglo para calificaciones de reprobados
    frente, final: numerico
    frenteA,finalA: numerico
    frenteR, finalR: numerico
    nombre: cadena
    calificacion: numerico
    opcion, i: numerico

inicio
   cls()
    // Inicialización de las colas
    frente = 1
    final = 1
    frenteA = 1
    finalA = 1
    frenteR = 1
    finalR = 1

    repetir
        // Mostrar Menú
        imprimir("\nMenú:")
        imprimir("\n1. Insertar alumno")
        imprimir("\n2. Desplegar filas de aprobados y reprobados")
        imprimir("\n3. Salir")
        imprimir("\n\nSeleccione una opción:")
        leer(opcion)

        eval {
            caso (opcion == 1)
                // Insertar un alumno
                si (final < 15) {
                    imprimir("Ingrese el nombre del alumno:")
                    leer(nombre)
                    imprimir("Ingrese la calificación del alumno:")
                    leer(calificacion)
                    cola[final] = nombre
                    calificaciones[final] = calificacion
                    final = final + 1

                    // Clasificar en aprobados o reprobados
                    si (calificacion >= 60) {
                        aprobados[finalA] = nombre
                        califAprobados[finalA] = calificacion
                        finalA = finalA + 1
                     sino
                        reprobados[finalR] = nombre
                        califReprobados[finalR] = calificacion
                        finalR = finalR + 1
                    }
                    imprimir("\nAlumno " + nombre + " insertado.")
                sino
                    imprimir("\n\nLa cola está llena.")
                }
            caso (opcion == 2)
                // Desplegar filas de aprobados y reprobados
                imprimir("\nAprobados:")
                si (frenteA <> finalA) {
                    desde i = frenteA hasta finalA - 1 {
                        imprimir("\n ", aprobados[i] + " - " + str(califAprobados[i]))
                    }
                sino
                    imprimir("\nNo hay alumnos aprobados.")
                }
                imprimir("\n\nReprobados:")
                si (frenteR <> finalR) {
                    desde i = frenteR hasta finalR - 1 {
                        imprimir("\n ", reprobados[i] + " - " + str(califReprobados[i]))
                    }
                 sino
                    imprimir("\nNo hay alumnos reprobados.")
                }
            caso (opcion == 3)
                imprimir("\n\nSaliendo del programa.")
            sino
                imprimir("\nOpción no válida.")
        }
    hasta (opcion == 3)

fin