Calcule lucros futuros de sua conta bancária!

Bom pessoal, estava ontem a noite na faculdade conversando com um amigo que trabalha em um banco X, dai perguntei qual é o juros de lucro que eu ganharia em uma conta poupança se eu colocasse meu dinheiro lá, ele me respondeu "0,56" ao mês, então queria saber se eu colocasse um tanto de dinheiro e que retirasse daqui 5 meses por exemplo, quanto eu teria lá?

dai criei uma formula matemática para isso, e passei para o Delphi, porque fico mais fácil /applications/core/interface/imageproxy/imageproxy.php?img=http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif&key=f16394cbddc7140988e95da40d87cdc04e8fd18618efd400ded17391eb1801ce" alt="Imagem Postada" /> do que criar uma formula certa

então criei uma formula +/- e botei um loop para calcular os meses, o que eu não consegui normal /applications/core/interface/imageproxy/imageproxy.php?img=http://forum.imasters.com.br/public/style_emoticons/default/pinch.gif&key=96a8615563bc061a8b6f83a283888799048c7eba03baaa04832ea14b122393b9" alt="Imagem Postada" />

dai fiz esse programinha para saber quanto eu teria!

Source para DELPHI 2009

Unit1.pas

procedure TForm1.Button1Click(Sender: TObject);
 var
 i: Integer;
 L: Single;

begin

for i := 1 to StrToInt(Edit2.Text) do
begin

if i = 1 then

 R_a := StrToFloat(Edit3.Text);

 L := (R_a * StrToFloat(Edit1.Text)) / 100;
 R_a := L + R_a;

 if i = StrToInt(Edit2.Text) then
 Edit4.Text := FloatToStr(R_a);

 end;

end;

Imagem

/applications/core/interface/imageproxy/imageproxy.php?img=http://i33.tinypic.com/2568qb8.jpg&key=96be7e7222e0644e634b1c292f69bbd36c29f0c0862188547c213c7036b29446" alt="Imagem Postada" />

Download

/applications/core/interface/imageproxy/imageproxy.php?img=http://img515.imageshack.us/img515/403/downloadbw8.gif&key=bc0728303814e21986d873b72345abb0982273befed54671a7cf2b3d6f1f271c" alt="Imagem Postada" />

Modelo da formula /applications/core/interface/imageproxy/imageproxy.php?img=http://forum.imasters.com.br/public/style_emoticons/default/grin.gif&key=017c2595898d699bcb3981d35d85b81acabbbe6ca0e4d79da8afca234e59d190" alt="Imagem Postada" />

Valor = Valor depositado (1º Mês)
Lucro = Lucro do 1º mês sobre o Valor
Vtm = Valor total do mês

Lucro = (Valor * Juros) / 100

Vtm = Lucro + Valor

dai como eu não consegui inseri ai "por meses", só para o mês atual, dai criei no delphi com o loop que fico mais fácil /applications/core/interface/imageproxy/imageproxy.php?img=http://forum.imasters.com.br/public/style_emoticons/default/clap.gif&key=ab7a79d2320a1ded436b2ab0fea47e116ade502c5a2c7167044566e6dce34a83" alt="Imagem Postada" />