SLE_Practica30_CalificacionesLetra

/* PRACTICA44_CalificacionesLetra
Modulo que recibe las 3 calificaciones parciales de un alumno, el cual regresa su calificacion con letra, donde si su
promedio es menor de 6 le corresponde NA, de 6 a 8 obtiene S, mayor a 8 y cuando mucho 9 saca B y superior a 9 es E */

var
    calif1, calif2, calif3: numerico
    cCalif:cadena
    resp:cadena

inicio
   cls()
    repetir
        imprimir ("Calificacion 1:")
        leer (calif1)
        imprimir ("Calificacion 2:")
        leer (calif2)
        imprimir ("Calificacion 3:")
        leer (calif3)
        cCalif = LetraCalif( calif1, calif2, calif3)
        imprimir ("La calificacion del alumno es: ", cCalif, "\n\n")
       imprimir ("Deseas calcular otra alumno? (s/n)")
        leer (resp)
    hasta (resp=="n")
fin

/* Modulo  */
subrutina LetraCalif( vCalif1, vCalif2, vCalif3:numerico) retorna cadena
var
    vPromedio: numerico
    cLetra:cadena

inicio

   vPromedio = (vCalif1 + vCalif2 + vCalif3) /3
    imprimir ("Promedio: ", vPromedio, "\n")
    si (vPromedio > 9)
    {
        cLetra = "E"
    sino
        si (vPromedio > 8)
        {
            cLetra = "B"
        sino
            si (vPromedio > 6)
            {
                cLetra = "S"
            sino
                cLetra = "NA"
            }
        }
    }
retorna (cLetra)
fin