-
Lenguaje
Pascal
-
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
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 PromedioDeMateriasAprobadasYReprobadas;
uses crt;
var materias_aprobadas, materias_reprobadas : integer;
var calificacion, promedio, promedio_aprobadas, promedio_reprobadas : real;
var tecla_repetir : char;
begin
materias_aprobadas := 0;
materias_reprobadas := 0;
promedio := 0;
promedio_aprobadas := 0;
promedio_reprobadas := 0;
repeat
clrscr;
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if calificacion<11.5 then
begin
materias_reprobadas := materias_reprobadas+1;
promedio_aprobadas := promedio_aprobadas+calificacion;
end
else
begin
materias_aprobadas := materias_aprobadas+1;
promedio_reprobadas := promedio_reprobadas+calificacion;
end;
promedio := promedio+calificacion;
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
promedio := promedio/2;
if materias_aprobadas = 0 then
promedio_aprobadas := 0
else
promedio_aprobadas := promedio_aprobadas/materias_aprobadas;
if materias_reprobadas = 0 then
promedio_reprobadas := 0
else
promedio_reprobadas := promedio_reprobadas/materias_reprobadas;
writeln ('Valor de materias aprobadas: ', materias_aprobadas);
writeln ('Valor de materias reprobadas: ', materias_reprobadas);
writeln ('Valor de promedio: ', promedio:0:6);
writeln ('Valor de promedio aprobadas: ', promedio_aprobadas:0:6);
writeln ('Valor de promedio reprobadas: ', promedio_reprobadas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var materias_aprobadas, materias_reprobadas : integer;
var calificacion, promedio, promedio_aprobadas, promedio_reprobadas : real;
var tecla_repetir : char;
begin
materias_aprobadas := 0;
materias_reprobadas := 0;
promedio := 0;
promedio_aprobadas := 0;
promedio_reprobadas := 0;
repeat
clrscr;
write ('Ingresa el valor de calificacion: ');
readln (calificacion);
if calificacion<11.5 then
begin
materias_reprobadas := materias_reprobadas+1;
promedio_aprobadas := promedio_aprobadas+calificacion;
end
else
begin
materias_aprobadas := materias_aprobadas+1;
promedio_reprobadas := promedio_reprobadas+calificacion;
end;
promedio := promedio+calificacion;
writeln;
write (#168'Deseas repetir el proceso? (S/N): ');
repeat
tecla_repetir := readkey;
until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');
until (tecla_repetir <> 's') and (tecla_repetir <> 'S');
promedio := promedio/2;
if materias_aprobadas = 0 then
promedio_aprobadas := 0
else
promedio_aprobadas := promedio_aprobadas/materias_aprobadas;
if materias_reprobadas = 0 then
promedio_reprobadas := 0
else
promedio_reprobadas := promedio_reprobadas/materias_reprobadas;
writeln ('Valor de materias aprobadas: ', materias_aprobadas);
writeln ('Valor de materias reprobadas: ', materias_reprobadas);
writeln ('Valor de promedio: ', promedio:0:6);
writeln ('Valor de promedio aprobadas: ', promedio_aprobadas:0:6);
writeln ('Valor de promedio reprobadas: ', promedio_reprobadas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.