Capital de un padre de familia en lenguaje Pascal

Lenguaje

Pascal
Descripción

Un padre de familia coloca un capital en un banco. El banco reconoce un interés del 4.5% mensual. Elaborar un programa para imprimir el nombre del padre de familia, el valor del interés ganado al cabo de un año y el total a recibir si decide retirar su capital.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program CapitalDeUnPadreDeFamilia;

uses crt, math;

var capital_final, capital_inicial, interes_ganado : real;

var nombre_del_padre_de_familia : string;

begin

    write ('Ingresa el nombre del padre de familia: ');

    readln (nombre_del_padre_de_familia);

    write ('Ingresa el valor de capital inicial: ');

    readln (capital_inicial);

    capital_final := capital_inicial*power(1.045,12);

    interes_ganado := capital_final-capital_inicial;

    writeln ('Nombre del padre de familia: ', nombre_del_padre_de_familia);

    writeln ('Valor de capital final: ', capital_final:0:6);

    writeln ('Valor de interes ganado: ', interes_ganado:0:6);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.