-
Lenguaje
Pascal
-
Descripción
El colegio militar BSD necesita implementar un programa que le permita asignar un determinado estudiante a una de las líneas de profundización, para ello se debe solicitar y verificar los siguientes datos:
- Puntaje obtenido en la evaluación final (escala de 1 a 100).
- Cantidad de créditos aprobados (escala de 1 - 384).
La condición inicial es que el puntaje mínimo de la prueba final sea superior a 75 puntos, si esta condición se cumple se procede a ubicar al estudiante en una línea de la siguiente manera:
- Línea de profundización Contrainteligencia: Si el estudiante tiene el 95% o mas de los créditos aprobados.
- Línea de Manejo de armas de fuego: Si el estudiante tiene del 85% al 94%o de créditos aprobados
- Línea de Manejo de armas blancas: Si el estudiante tiene el 84% o menos de los créditos aprobados.
Una vez solicitados los datos al estudiante (puntaje del examen final y cantidad de créditos aprobados) se le debe de informar a línea fue asignado.
Aclaración: El porcentaje de créditos aprobados se debe de calcular de forma automática dentro del programa y es a partir de la escala asignada (1 - 384). Por ejemplo, si el estudiante ha aprobado 255 créditos eso equivaldría a 66.4%.
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
uses crt;
var creditos_aprobados, porcentaje_creditos_aprobados, puntaje_del_examen_final : real;
begin
write ('Ingresa el valor de creditos aprobados: ');
readln (creditos_aprobados);
write ('Ingresa el valor de puntaje del examen final: ');
readln (puntaje_del_examen_final);
porcentaje_creditos_aprobados := 100.0*creditos_aprobados/384;
if (puntaje_del_examen_final>75) and (porcentaje_creditos_aprobados>=95) then
begin
writeln ('L'#161'nea de profundizaci'#162'n Contrainteligencia');
end;
if (puntaje_del_examen_final>75) and (porcentaje_creditos_aprobados>=85) and (porcentaje_creditos_aprobados<95) then
begin
writeln ('L'#161'nea de Manejo de armas de fuego');
end;
if (puntaje_del_examen_final>75) and (porcentaje_creditos_aprobados<85) then
begin
writeln ('L'#161'nea de Manejo de armas blancas');
end;
if puntaje_del_examen_final<=75 then
begin
writeln ('Sin l'#161'nea');
end;
writeln ('Valor de porcentaje creditos aprobados: ', porcentaje_creditos_aprobados:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.