-
Lenguaje
Pascal
-
Descripción
Permita el cálculo del interés de mora dado el monto a pagar y el número de días de retraso. Conidere que se cobra el 1% por cada día.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program InteresDeMora;
uses crt, math;
var interes, monto_a_pagar, numero_de_dias : real;
begin
write ('Ingresa el valor de monto a pagar: ');
readln (monto_a_pagar);
write ('Ingresa el valor de numero de dias: ');
readln (numero_de_dias);
interes := monto_a_pagar*power(1.01,numero_de_dias);
writeln ('Valor de interes: ', interes:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var interes, monto_a_pagar, numero_de_dias : real;
begin
write ('Ingresa el valor de monto a pagar: ');
readln (monto_a_pagar);
write ('Ingresa el valor de numero de dias: ');
readln (numero_de_dias);
interes := monto_a_pagar*power(1.01,numero_de_dias);
writeln ('Valor de interes: ', interes:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.