• Lenguaje

    Pascal

  • Descripción

    Una compañía cobra las cuotas mensuales de sus clientes de acuerdo con lo siguiente:
    - Si el cliente paga dentro de los primeros diez días del mes, obtiene un descuento igual al mayor valor entre $5 y el 2% de la cuota.
    - Si el cliente paga en los siguientes diez días, no tiene derecho a ningún descuento; deberá pagar exactamente la suma adeudada.
    - Si el cliente paga dentro de los restantes días del mes, tendrá un recargo igual al mayor valor entre $10 y el 3% de la cuota.
    Dado el número del día de pago de un mes y la cuota mensual, diseñe un programa que determine el importe total a pagar.

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

var cuota, descuento, dia_de_pago, importe_total_a_pagar, recargo : real;
begin
    write ('Ingresa el valor de cuota: ');
    readln (cuota);
    write ('Ingresa el valor de dia de pago: ');
    readln (dia_de_pago);
    descuento := 0;
    recargo := 0;
    if dia_de_pago<=10 then
        begin
            descuento := cuota*0.02;
        end;
    if (dia_de_pago<=10) and (descuento<5) then
        begin
            descuento := 5;
        end;
    if dia_de_pago>20 then
        begin
            recargo := cuota*0.03;
        end;
    if (dia_de_pago>20) and (recargo<10) then
        begin
            recargo := 10;
        end;
    importe_total_a_pagar := cuota-descuento+recargo;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de importe total a pagar: ', importe_total_a_pagar:0:6);
    writeln ('Valor de recargo: ', recargo:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.