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