SLE_Practica36_MateriasCursadas

/* Practica 36.
    Mediante una lista simplemente enlazada almacenar el número de cuenta, nombre y calificación
   de cada alumno de las materias de Calculo 1 y Programación.
   Cada materia está representada por una LSE.
   Desplegar los datos de los alumnos que cursan las dos materias.

*/

tipos
   Alumno: registro
   {
    num_cuenta: numerico
    nombre: cadena
    calificacion: numerico
    siguiente: numerico
    }

var
    lista_calculo: vector [*] Alumno
    lista_programacion: vector [*] Alumno
    n_calculo, n_programacion, i, j, pos: numerico
    num_cuenta, calificacion: numerico
    nombre: cadena
    temp: Alumno

inicio
   cls()
    // Leer el número de alumnos en Calculo 1
    imprimir("\nIntroduce el número de alumnos en Calculo 1: ")
    leer(n_calculo)

   dim (lista_calculo, n_calculo)

    // Insertar los datos de los alumnos en la lista de Calculo 1
    desde i=1 hasta n_calculo {
        imprimir("\nIntroduce el número de cuenta del alumno ", i, " en Calculo 1: ")
        leer(num_cuenta)
        imprimir("\nIntroduce el nombre del alumno ", i, " en Calculo 1: ")
        leer(nombre)
        imprimir("\nIntroduce la calificación del alumno ", i, " en Calculo 1: ")
        leer(calificacion)

        // Crear el nuevo registro
        lista_calculo[i].num_cuenta = num_cuenta
        lista_calculo[i].nombre = nombre
        lista_calculo[i].calificacion = calificacion
        lista_calculo[i].siguiente = i+1
    }

    // Leer el número de alumnos en Programación
    imprimir("\n\nIntroduce el número de alumnos en Programación: ")
    leer(n_programacion)

    dim(lista_programacion, n_programacion)

    // Insertar los datos de los alumnos en la lista de Programación
    desde i=1 hasta n_programacion {
        imprimir("\nIntroduce el número de cuenta del alumno ", i, " en Programación: ")
        leer(num_cuenta)
        imprimir("\nIntroduce el nombre del alumno ", i, " en Programación: ")
        leer(nombre)
        imprimir("\nIntroduce la calificación del alumno ", i, " en Programación: ")
        leer(calificacion)

        // Crear el nuevo registro
        lista_programacion[i].num_cuenta = num_cuenta
        lista_programacion[i].nombre = nombre
        lista_programacion[i].calificacion = calificacion
        lista_programacion[i].siguiente = i+1
    }

    // Buscar y desplegar los alumnos que cursan ambas materias
    imprimir("\n\nAlumnos que cursan ambas materias:")

    desde i=1 hasta n_calculo {
        desde j=1 hasta n_programacion {
            si (lista_calculo[i].num_cuenta == lista_programacion[j].num_cuenta) {
                imprimir("\nNúmero de cuenta: ", str(lista_calculo[i].num_cuenta), ", Nombre: ", lista_calculo[i].nombre, ", Calificación en Calculo 1: ", str(lista_calculo[i].calificacion), ", Calificación en Programación: ", str(lista_programacion[j].calificacion))
            }
        }
    }
fin