Programa de Investimentos em Pascal

Atendendo ao pedido do leitor Natan vamos a mais um programa em Pascal:

"Uma pessoa aplicou seu capital a juros e deseja saber, trimestralmente , a posição de seu investimento C incial.
Chamando de I a taxa de juros do trimestre, escrever uma tabela que de para cada trimestre o rendimento auferido e o saldo acumulado durante um periodo de X anos, supondo-se que nenhuma retirada tenha sido feita.
Observações:
a) Os valores de C,I e X estão disponiveis numa unidade de entrada.
b) A formula para capitalização composta é dada por : Ma = C(1 + I)ª.
Onde:
Ma : montante apos terem decorridos x trimestres;
C : capital inicial investido;
I: taxa de juros;
a: numero de periodos decorridos (trimestres)."

Vale lembra que em Pascal para fazer elevado devemos usar:

x elevado a y é igual a exp(y*ln(x))

Código Fonte:

Program Investimento;
Uses Crt;
var
C,I : Real;
X : Integer;
// C: Capital Inicial
// I: Taxa de Juros Trimestre
// X: Anos de investimento
j : Integer; // Contador da tabela
Ma : Real; // Montante acumulado
Rend : Real; // Rendimento
Saldo : Real;
Tri: Integer; // Quantidade de trimestres
Begin
ClrScr;
WriteLn (' Capitalizacao Monetaria');
WriteLn;
Write ('Capital a ser investido :'); ReadLn(C);
Write ('Taxa de juros trimestral (%):'); ReadLn(I);
Write ('Quantidade a anos a investir:'); ReadLn(X);
WriteLn;
WriteLn (' Tabela de Rendimentos');
WriteLn;
WriteLn (' Capital Inicial: R$ ',C:10:2);
WriteLn;
WriteLn ('+----------+----------+----------+');
WriteLn ('|Trimestre |Rendimento| Saldo |');
WriteLn ('+----------+----------+----------+');
Saldo := C; // Valor Inicial;
// X*4 = quantidade de trimestres
Tri := X*4;
for j := 1 to Tri do
begin
Write('|',j:10);
Rend := Saldo*(I/100);
Write('|', rend:10:2);
Saldo := Saldo + rend;
WriteLn('|',Saldo:10:2,'|');
WriteLn ('+----------+----------+----------+');
end;

Ma := C*EXP(Tri*LN(1+(I/100)));
WriteLn ('Montante Acumulado: R$ ',Ma:10:2);
ReadLn;
End.


Download do Código Fonte:

http://www.4shared.com/file/ZMUu2kgP/Investimento.html

Nenhum comentário:

Postar um comentário