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

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
program LineasDeProfundizacion;
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.