Promedio de materias aprobadas y reprobadas en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Dada N calificaciones de un estudiante, asociadas a n materias. Calcular:
- Cuantas materias tiene reprobadas
- Cuantas materias aprobadas
- El promedio de sus calificaciones
- El promedio de materias aprobadas y reprobadas

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

Proceso PromedioDeMateriasAprobadasYReprobadas

    materias_aprobadas <- 0;

    materias_reprobadas <- 0;

    promedio <- 0;

    promedio_aprobadas <- 0;

    promedio_reprobadas <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el valor de calificacion:";

        Leer calificacion;

        Si calificacion<11.5 Entonces

            materias_reprobadas <- materias_reprobadas+1;

            promedio_aprobadas <- promedio_aprobadas+calificacion;

        SiNo

            materias_aprobadas <- materias_aprobadas+1;

            promedio_reprobadas <- promedio_reprobadas+calificacion;

        FinSi

        promedio <- promedio+calificacion;

        Escribir "";

        Repetir

            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";

            Leer tecla_repetir;

        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'

    Hasta Que tecla_repetir='n' O tecla_repetir='N'

    promedio <- promedio/2;

    Si materias_aprobadas = 0 Entonces

        promedio_aprobadas <- 0;

    SiNo

        promedio_aprobadas <- promedio_aprobadas/materias_aprobadas;

    FinSi

    Si materias_reprobadas = 0 Entonces

        promedio_reprobadas <- 0;

    SiNo

        promedio_reprobadas <- promedio_reprobadas/materias_reprobadas;

    FinSi

    Escribir "Valor de materias aprobadas: ", materias_aprobadas;

    Escribir "Valor de materias reprobadas: ", materias_reprobadas;

    Escribir "Valor de promedio: ", promedio;

    Escribir "Valor de promedio aprobadas: ", promedio_aprobadas;

    Escribir "Valor de promedio reprobadas: ", promedio_reprobadas;

FinProceso