-
Lenguaje
Pascal
-
Descripción
En 1961, una persona vendió las tierras de su abuelo al gobierno por la cantidad de $1500. Suponga que esta persona ha colocado el dinero en una cuenta de ahorros que paga 15% anual. ¿Cuánto vale ahora su inversión? P(1+i)n.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program TierrasVendidasEn1961;
uses crt, math;
var P, ahorros, i, n : real;
begin
n := 2021-1961;
P := 1500.0;
i := 15.0/100.0;
ahorros := P*power(1.0+i,n);
writeln ('Valor de P: ', P:0:6);
writeln ('Valor de ahorros: ', ahorros:0:6);
writeln ('Valor de i: ', i:0:6);
writeln ('Valor de n: ', n:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var P, ahorros, i, n : real;
begin
n := 2021-1961;
P := 1500.0;
i := 15.0/100.0;
ahorros := P*power(1.0+i,n);
writeln ('Valor de P: ', P:0:6);
writeln ('Valor de ahorros: ', ahorros:0:6);
writeln ('Valor de i: ', i:0:6);
writeln ('Valor de n: ', n:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.