PseInt_Practica30_CalificacionesLetra

Proceso Practica44_CalificacionesLetra
    //Un modulo recibe 3 calificaciones parciales de un alumno, el cual regresa su calificacion
    //conletra, 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

    definir calif1, calif2, calif3 Como Entero
    definir cCalir, resp como caracter
    Borrar Pantalla
    Repetir
        Escribir "Calificacion 1: "
        leer calif1
        Escribir "Calificacion 2: "
        leer calif2
        Escribir "Calificacion 3: "
        leer calif3
        cCalif = LetraCalif( calif1, calif2, calif3)
        Escribir "La calificacion del alumno es: ", cCalif
        Escribir "Deseas calcular otro alumno? (s/n)"
        leer resp
    Hasta Que resp ="n"

FinProceso

subproceso cLetra <- LetraCalif( vCalif1, vCalif2, vCalif3)
    definir vPromedio Como numerico
    definir cLetra como cadena
    vPromedio = (vCalif1 + vCalif2 + vCalif3) / 3
    Escribir "Promedio: ", vPromedio
    Si vPromedio > 9 Entonces
        cLetra = "E"
    Sino
        si vPromedio > 8 Entonces
            cLetra = "B"
        Sino
            si vPromedio > 6 Entonces
                cLetra = "S"
            sino
                cLetra = "NA"
            FinSi
        FinSi
    FinSi

FinSubProceso