• Lenguaje

    Pascal

  • Descripción

    Dado N notas de un estudiante calcular:
    A) Cuantas notas tiene reprobadas.
    B) Cuantas notas aprobadas.
    C) El promedio de notas.
    D) El promedio de notas 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
41
42
43
44
45
46
47
48
49
50
program PromedioDeNotasAprobadasYReprobadas;
uses crt;

var i, n, notas_aprobadas, notas_reprobadas : integer;
var nota, promedio_de_notas, promedio_notas_aprobadas, promedio_notas_reprobadas : real;
begin
    notas_aprobadas := 0;
    notas_reprobadas := 0;
    promedio_notas_aprobadas := 0;
    promedio_notas_reprobadas := 0;
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de nota: ');
        readln (nota);
        if nota<7 then
            begin
                notas_reprobadas := notas_reprobadas+1;
                promedio_notas_reprobadas := promedio_notas_reprobadas+nota;
            end
        else
            begin
                notas_aprobadas := notas_aprobadas+1;
                promedio_notas_aprobadas := promedio_notas_aprobadas+nota;
            end;
        promedio_de_notas := promedio_de_notas+nota;
        writeln ('Valor de promedio de notas: ', promedio_de_notas:0:6);
        writeln;
    end;
    if n = 0 then
        promedio_de_notas := 0
    else
        promedio_de_notas := promedio_de_notas/n;
    if notas_aprobadas = 0 then
        promedio_notas_aprobadas := 0
    else
        promedio_notas_aprobadas := promedio_notas_aprobadas/notas_aprobadas;
    if notas_reprobadas = 0 then
        promedio_notas_reprobadas := 0
    else
        promedio_notas_reprobadas := promedio_notas_reprobadas/notas_reprobadas;
    writeln ('Valor de notas aprobadas: ', notas_aprobadas);
    writeln ('Valor de notas reprobadas: ', notas_reprobadas);
    writeln ('Valor de promedio notas aprobadas: ', promedio_notas_aprobadas:0:6);
    writeln ('Valor de promedio notas reprobadas: ', promedio_notas_reprobadas:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.