• Lenguaje

    Pascal

  • Descripción

    En una universidad, los alumnos pagan sus mensualidades según la carrera que estudian:
    Carrera | Pago mensual
    Ingeniería | 1500
    Administración | 1000
    Medicina | 2000

    Pero tiene un descuento especial según el promedio ponderado obtenido de todos sus cursos que han llevado, según la siguiente tabla:

    Promedio Ponderado | Descuento (%) sobre el pago mensual
    0 – 10 | 0%
    11 – 14 | 5%
    15 – 18 | 10%
    Mas de 18 | 100%

    Calcule el importe a pagar por el alumno.

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
51
52
program DescuentoPorPromedioPonderado;
uses crt;

var carrera : integer;
var descuento, importe_a_pagar, pago_mensual, promedio_ponderado : real;
begin
    write ('Ingresa el valor de promedio ponderado: ');
    readln (promedio_ponderado);
    descuento := 0;
    pago_mensual := 0;
    writeln ('Selecciona el valor de carrera.');
    writeln ('    1.- Ingenier'#161'a');
    writeln ('    2.- Administraci'#162'n');
    writeln ('    3.- Medicina');
    write ('    : ');
    repeat
        readln (carrera);
        if (carrera<1) or (carrera>3) then
            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
    until (carrera>=1) and (carrera<=3);
    if carrera=1 then
        begin
            pago_mensual := 1500;
        end;
    if carrera=2 then
        begin
            pago_mensual := 1000;
        end;
    if carrera=3 then
        begin
            pago_mensual := 2000;
        end;
    if (promedio_ponderado>=11) and (promedio_ponderado<15) then
        begin
            descuento := pago_mensual*0.05;
        end;
    if (promedio_ponderado>=15) and (promedio_ponderado<18) then
        begin
            descuento := pago_mensual*0.1;
        end;
    if promedio_ponderado>=18 then
        begin
            descuento := pago_mensual;
        end;
    importe_a_pagar := pago_mensual-descuento;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de importe a pagar: ', importe_a_pagar:0:6);
    writeln ('Valor de pago mensual: ', pago_mensual:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.