-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Leer las calificaciones de un grupo de alumnos. Calcule y escriba el porcentaje de alumnos aprobados, porcentaje de reprobados y la cantidad de alumnos sobresalientes (los alumnos sobresalientes tienen notas mayores a 17.5). Tomando en cuenta que la calificación mínima aprobatoria es de 11.5.
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
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
Proceso PorcentajeDeAprobadosYReprobados
alumnos <- 0;
aprobados <- 0;
reprobados <- 0;
sobresalientes <- 0;
porcentaje_aprobados <- 0;
porcentaje_reprobados <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de calificacion:";
Leer calificacion;
alumnos <- alumnos+1;
Si calificacion<11.5 Entonces
reprobados <- reprobados+1;
SiNo
aprobados <- aprobados+1;
FinSi
Si calificacion>17.5 Entonces
sobresalientes <- sobresalientes+1;
FinSi
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'
Si alumnos = 0 Entonces
porcentaje_aprobados <- 0;
SiNo
porcentaje_aprobados <- 100.0*aprobados/alumnos;
FinSi
Si alumnos = 0 Entonces
porcentaje_reprobados <- 0;
SiNo
porcentaje_reprobados <- 100.0*reprobados/alumnos;
FinSi
Escribir "Valor de alumnos: ", alumnos;
Escribir "Valor de aprobados: ", aprobados;
Escribir "Valor de reprobados: ", reprobados;
Escribir "Valor de sobresalientes: ", sobresalientes;
Escribir "Valor de porcentaje aprobados: ", porcentaje_aprobados;
Escribir "Valor de porcentaje reprobados: ", porcentaje_reprobados;
FinProceso
alumnos <- 0;
aprobados <- 0;
reprobados <- 0;
sobresalientes <- 0;
porcentaje_aprobados <- 0;
porcentaje_reprobados <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de calificacion:";
Leer calificacion;
alumnos <- alumnos+1;
Si calificacion<11.5 Entonces
reprobados <- reprobados+1;
SiNo
aprobados <- aprobados+1;
FinSi
Si calificacion>17.5 Entonces
sobresalientes <- sobresalientes+1;
FinSi
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'
Si alumnos = 0 Entonces
porcentaje_aprobados <- 0;
SiNo
porcentaje_aprobados <- 100.0*aprobados/alumnos;
FinSi
Si alumnos = 0 Entonces
porcentaje_reprobados <- 0;
SiNo
porcentaje_reprobados <- 100.0*reprobados/alumnos;
FinSi
Escribir "Valor de alumnos: ", alumnos;
Escribir "Valor de aprobados: ", aprobados;
Escribir "Valor de reprobados: ", reprobados;
Escribir "Valor de sobresalientes: ", sobresalientes;
Escribir "Valor de porcentaje aprobados: ", porcentaje_aprobados;
Escribir "Valor de porcentaje reprobados: ", porcentaje_reprobados;
FinProceso