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