Algoritmo para calcular tabela price

[Cristiani Felix 0]

Boa noite pessoal,

 

Estou fazendo um trabalho de Administração Financeira para calcular a tabela price, onde conhecendo-se os três valores de VP (valor principal), r (valor da prestação), n (meses) e i (taxa de juros), calcule o valor faltante.

Os calculos para vp, r e i eu consegui formular mas para calcular n não.

Estou programando em delphi.

Alguém pode me ajudar pois preciso terminar isso o mais breve possivel pra nota da 2º verificação

 

Minha fonte esta assim, se não for incomodar demais poderiam verificar se é isso mesmo!

 

 

implementation

 

uses UnitPrincipal;

 

{$R *.DFM}

 

procedure TFormPrice.BitBtnCalcularClick(Sender: TObject);

var

vp, r, n, i:real;

begin

if RadioButtonVP.checked = true then

begin

r:=strtofloat(editR.text);

i:=strtofloat(editI.text);

n:=strtofloat(editN.text);

vp:=r*((exp(ln(1+i)*n))-1)/(i*(exp(ln(1+i)*n)));

editResult.text:=formatfloat('###.###,##', vp);

end;

if RadioButtonR.checked = true then

begin

vp:=strtofloat(editVP.text);

i:=strtofloat(editI.text);

n:=strtofloat(editN.text);

r:=vp/(((exp(ln(1+i/100)*n))-1)/(i*(exp(ln(1+i/100)*n))));

editResult.text:=formatfloat('###.###,##', r);

end;

if RadioButtonI.checked = true then

begin

vp:=strtofloat(editVP.text);

r:=strtofloat(editR.text);

n:=strtofloat(editN.text);

i:=((r/vp)-1)/n;

editResult.text:=floattostr(i);

 

end;

if RadioButtonN.checked = true then

begin

vp:=strtofloat(editVP.text);

r:=strtofloat(editR.text);

i:=strtofloat(editI.text);

n:=((r/vp)-1)/i;

editResult.text:=floattostr(n);

end

end;

[marcio.theis 3]

Programação/Lógica de Programação e Algoritmos http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Programação/Delphi

 

Precisei fazer um programa que fazia o cálculo da tabela price tb... o programa simplismente sumiu... mas ainda tenho este link http://www.secret.com.br/phpBB2/viewtopic.php?p=267275 a partir dele q montei o programa....