-
Lenguaje
Pascal
-
Descripción
Un banco a sus ahorristas les paga un interés del 1.5% mensual sobre el monto ahorrado. Teniendo como dato de entrada el saldo inicial de ahorrista determinar el saldo final a cabo de 3 años.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
program AhorroCon15DeInteres;
uses crt, math;
var saldo_final, saldo_inicial : real;
begin
write ('Ingresa el valor de saldo inicial: ');
readln (saldo_inicial);
saldo_final := saldo_inicial*power(1.015,12*3);
writeln ('Valor de saldo final: ', saldo_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var saldo_final, saldo_inicial : real;
begin
write ('Ingresa el valor de saldo inicial: ');
readln (saldo_inicial);
saldo_final := saldo_inicial*power(1.015,12*3);
writeln ('Valor de saldo final: ', saldo_final:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.