• Lenguaje

    Pascal

  • Descripción

    El Instituto de Educación Superior Tecnológico "TELESUP" estableció un programa para estimular a los alumnos con buen rendimiento académico y que consiste en lo siguiente:
    - Si el promedio es de 20 más, entonces este podrá utilizar 25 créditos y se le hará un 25% de descuento sobre la matrícula.
    - Si el promedio es mayor o igual a 18 pero menor que 20, entonces este podrá cursar 20 créditos y se le hará un 10% de descuento sobre la matrícula.
    - Si el promedio es mayor que 15 y menor que 18, este podrá cursar 20 créditos y no tendrá ningún descuento sobre la matrícula.
    - Si el promedio es de 12 o menor y el número de materias reprobadas es de 0 a 3, entonces podrá cursar 15 créditos y no tendrá descuento.
    - Si el promedio es de 12 o menor y el número de materias reprobadas es de 4 o más, entonces podrá cursar 10 créditos y no tendrá ningún descuento.
    Obtener el total que tendrá que pagar un alumno si la matrícula para alumnos es de S/. 30.00 por cada cinco créditos.

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
program Telesup;
uses crt;

var creditos, descuento, materias_reprobadas, promedio, total_a_pagar : real;
begin
    write ('Ingresa el valor de materias reprobadas: ');
    readln (materias_reprobadas);
    write ('Ingresa el valor de promedio: ');
    readln (promedio);
    descuento := 0;
    creditos := 0;
    if promedio>=20 then
        begin
            creditos := 25;
            descuento := 0.25;
        end;
    if (promedio>=18) and (promedio<20) then
        begin
            creditos := 20;
            descuento := 0.1;
        end;
    if (promedio>15) and (promedio<18) then
        begin
            creditos := 20;
        end;
    if (promedio<=12) and (materias_reprobadas>=0) and (materias_reprobadas<=3) then
        begin
            creditos := 15;
        end;
    if (promedio<=12) and (materias_reprobadas>=4) then
        begin
            creditos := 10;
        end;
    total_a_pagar := (30.0*creditos/5.0)*(1.0-descuento);
    writeln ('Valor de creditos: ', creditos:0:6);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.