-
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
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.
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.