Como fazer calculo de juros composto no delphi
Olá pessoal será que alguem poderia me passar uma função que calcule juros composto ou ou me explica como que eu resolvo essa equação com um exemplo.
´Fomula do juros composto é essa :
M = C(i +1)t
M = montante
C = capital
i = juros
t = tempo
Desde já agradeço a todos que me ajudarem.
´Fomula do juros composto é essa :
M = C(i +1)t
M = montante
C = capital
i = juros
t = tempo
Desde já agradeço a todos que me ajudarem.
Ivespas
Curtidas 0
Respostas
Edilcimar
22/05/2007
M= C * power(1 + t)
GOSTEI 0
Khundalini
22/05/2007
Tá na mão a ´receita do bolo´:
program CalculoJurosCompostos;
{$APPTYPE CONSOLE}
{.$DEFINE USEMATH}
{$IFDEF USEMATH}
uses
Math;
{$ENDIF}
var
M, C, i, t: Extended;
begin
C := 10000.00; // Investimento = R$ 10.000,00
i := 0.05; // Taxa = 5¬ a.a.
t := 10; // Período = 10 anos
{$IFDEF USEMATH}
M := C * Power(1 + i, t);
{$ELSE}
M := C * Exp(t * Ln(1 + i));
{$ENDIF}
WriteLn(´Capital = ´, C:15:2);
WriteLn(´Taxa = ´, i * 100:5:2, ´¬ a.a.´);
WriteLn(´Período = ´, t:3:0, ´ anos´);
WriteLn(´Montante = ´, M:15:2);
WriteLn(Eoln);
end.
Consulte tb sobre a função Payment da unit Math.
Sds.
program CalculoJurosCompostos;
{$APPTYPE CONSOLE}
{.$DEFINE USEMATH}
{$IFDEF USEMATH}
uses
Math;
{$ENDIF}
var
M, C, i, t: Extended;
begin
C := 10000.00; // Investimento = R$ 10.000,00
i := 0.05; // Taxa = 5¬ a.a.
t := 10; // Período = 10 anos
{$IFDEF USEMATH}
M := C * Power(1 + i, t);
{$ELSE}
M := C * Exp(t * Ln(1 + i));
{$ENDIF}
WriteLn(´Capital = ´, C:15:2);
WriteLn(´Taxa = ´, i * 100:5:2, ´¬ a.a.´);
WriteLn(´Período = ´, t:3:0, ´ anos´);
WriteLn(´Montante = ´, M:15:2);
WriteLn(Eoln);
end.
Consulte tb sobre a função Payment da unit Math.
Sds.
GOSTEI 0