-
Lenguaje
Pascal
-
Descripción
Una persona que deposita una cantidad de dinero cada final de año en una cuenta de ahorros, esta cuenta abona el 8% de interés anual: hallar la suma que tendrá en su cuenta al cabo de 10 años al efectuar el último depósito.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program DepositoAUnaCuentaDeAhorros;
uses crt;
var i : integer;
var deposito, suma : real;
begin
suma := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de deposito: ');
readln (deposito);
suma := suma*1.08+deposito;
writeln;
end;
writeln ('Valor de suma: ', suma:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var deposito, suma : real;
begin
suma := 0;
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de deposito: ');
readln (deposito);
suma := suma*1.08+deposito;
writeln;
end;
writeln ('Valor de suma: ', suma:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.