Examen Mayo 2018

(Prueba escrita práctica, 4,5 puntos)

Una universidad quiere limpiar su imagen pública recientemente afectada por un caso de fraude. Su equipo de gobierno persigue que los egresados de la universidad tengan un nivel medio superior al ya de por sí excelente. Para ello, ha creído conveniente crear un sistema (a coste casi cero) de lecciones online de refuerzo obligatorias para los alumnos más rezagados, y optativas para el resto.

 

Cada curso académico, un sistema informatizado calculará el Nivel de Esfuerzo Personal (NEP) de cada uno de sus alumnos, y señalará anónimamente quiénes de ellos tendrán que asistir obligatoriamente a las clases de refuerzo. Para ello, se aportará información, tanto por el propio estudiante como por los profesores, que se utilizará para medir el rendimiento de cada alumno más allá de las calificaciones que obtiene, ya que, como todo el mundo sabe, las calificaciones pueden venir sesgadas por la facilidad de algunas asignaturas, del plan de estudios, de los docentes contratados u otros factores de dudosa objetividad.

 

Para la versión 1.0 del cálculo del NEP, el vicerrector competente ha diseñado una combinación de entradas que incluye información sobre:

• Las 4 asignaturas más importantes de cada curso (2 por cuatrimestre) para cada titulación (elegidas por los docentes y vulgarmente llamadas asignaturas estrella)
• El SDNM se calcula como la suma de las diferencias entre las calificaciones obtenidas por el alumno con respecto a cada una de las medias de las asignaturas estrella en su curso académico. Por ejemplo, para un estudiante que termina 1º de GII, y si las asignaturas estrella son MDA, IP, ED y CAL con notas medias para su clase de $5.6, 4.7, 4.1$ y $5,4$, y calificaciones personales de $3.8, 4.2, 3.5$ y $7.6$, su SDNM se calcularía como
$$⁍$$

• El entorno del estudiante, formado por los 5 compañeros que cada estudiante decide elegir como Entorno Personal,
• Para el cómputo del SDNM_EP se procedería del mismo modo con las 4 asignaturas estrella de cada uno de los 5 estudiantes del entorno personal y se calcularía la media de los 5 resultados.

• Factor que evalúa el progreso del estudiante durante el curso si durante el primer cuatrimestre le fue mal.
• Para el cómputo de la EVO se calcularía la SDNM de las asignaturas estrella del primer cuatrimestre (SDNM_1) y si devuelve positivo, su EVO es directamente 0, mientras que si devuelve un valor negativo (dando a entender que le fue peor que a la media de la clase), se calcula la SDNM de las asignaturas estrella del segundo cuatrimestre (SDNM_2) y se compara con la mitad de la SDNM_1, si es igual o mayor, el EVO sería +1, y en caso contrario -1.
$$EVO = \begin{cases} -1 & si & (SDNM\_1 < 0) & \& & (SDNM\_2 < SDNM\_1\times0.5) \\ 0 & si & (SDNM\_1 > 0) \\ 1 & si & (SDNM\_1 < 0) & \& & (SDNM\_2 \geq SDNM\_1\times0.5) \end{cases}$$
Con los valores del ejemplo anterior, tendríamos que el estudiante de referencia habría obtenido un SDNM_1= $(-1.8)+(-0.5) = -2.3$, negativo, por lo que habría que calcular su SDNM_2 = $(-0.6) + 2.2 = 1.6$, siendo $SDNM_2 > 0.5 * SDNM_1 (1.6 > -1.15)$ por lo que su EVO sería +1.
Finalmente, la expresión del NEP es: $NEP = SDNM + SDNM_{EP} + EVO$

uses uCentro;
    
type
    TNEP_Universidad = ^TNodoListaC;
    TNodoListaC = record
        info:TCentro;
        sig:^TNodoListaC;
    end:

uses uListaE;
    
type
		TCentro = record
        nombre:string;
        titulaciones:TListaT;
        cod:integer;
    end:

uses uTitulacion;
        
type
    TListaT = ^TNodoListaT;
    TNodoListaT = record
        info:TTitulacion;
        sig:^TNodoListaT;
    end:

type
    TTitulacion = record
        cod:integer;
        estudiantes:TListaE;
    end;

uses uEstudiante;
        
type
    TListaE = ^TNodoListaE;
    TNodoListaE = record
        info:TEstudiante;
        sig:^TNodoListaE;
    end:

type
		TCodigoEstudiante = array[1..2] of integer;
    TPerfilEstudiante = record
        cod:TCodigoEstudiante;
        ultimoCurso:integer;
        numSeleccionadoEP:integer;
        nep:real;
        ep: array[1..5] of TCodigoEstudiante;
        asignaturas: array[1..2] of integer;            
    end;

procedure nuevoAlumno(var facultad:TCentro; codE:TCodigoEstudiante; codT:integer);
var auxc:TListaA;
    auxa:TPerfilEstudiante;
    auxle:TListaE;
    t:TTitulacion;
begin
    auxc := facultad.titulaciones;
    
    // Buscar titulacion en base a un codigo (se asume que existe)
    getTitulacion(t, auxc);
    while (not esTitulacionIgual(codT, t)) do begin
        getTitulacion(t, auxc);
        auxc := auxc^.sig;
    end;

    crearAlumno(auxa, codE);  // Crear elemento alumno
    getListaE(auxle, t);  // Obtener campo del registro
    construir(auxle, auxa);  // Añadir elemento a la lista
    setListaE(auxle, t);  // Actualizar campo del registro
end;

procedure comprobarEntornosPersonales(listaCentros:TNEP_Universidad); 
var lt:TListaT;
    le:TListaE;
    auxe:TEstudiante;
begin
    // Recorrer cada facultad/centro
    while not esListaCVacia(listaCentros) do begin
        // Recorre cada titulacion
        lt := listaCentros^.titulaciones;
        while not esListaTVacia(listaCentros) do begin
            // Recorre cada estudiante
            le = lt^.estudiantes;
            while not esListaEVacia(listaCentros) do begin
                primero(auxe, le)
                if retNumEP(auxe) > 10 then 
                    avisoViceAlumnos(retCodEstudiante(auxe), retNumEP(auxe))

                le^.sig;
            end;

            lt := lt^.sig;            
        end;

        listaCentros := listaCentros^.sig;
    end;
end;

function obtenerNEP(listaCentros:TNEP_Universidad; cod:TCodigoEstudiante):integer;
var pe:^TEstudiante;
    e:TEstudiante;
begin
    pe := NIL;

    // Recorrer cada facultad/centro (se asume que el alumno existe)
    while pe = NIL do begin
        // Recorre cada titulacion (se asume que el alumno existe)
        lt := listaCentros^.titulaciones;
        while not pe = NIL do begin
            getListaEstudiantes(listaE, lt);
            localizarEstudiante(cod, listaE, pe);

            lt := lt^.sig;            
        end;

        listaCentros := listaCentros^.sig;
    end;

    primero(e, lt)
    obtenerNEP := calcSDNM(e) + calcSDNM_EP(e) + calcEVO(e)  // Los estos subprogramas devolvería el valor correspondiente de cada calculo
end;