Alguem passa esse codigo pra pascal em ingles

[Bernardo Lima 0]

alguem me ajuda e passa esse codigo pra pascal em ingles?!

 

(valor imprestimo * juros) / 1-(1+juros)-¹²

 

 

 

aguardo!

[quitZAUMMM 18]

cara da uma lida nesse conteúdo aki ==> http://www.inf.pucrs.br/~fldotti/lapro1/c1.htm

[Bernardo Lima 0]

ja olhei ... mas n me ajudou mt n =/

[quitZAUMMM 18]

cara eu num soh muito bom de matematica.

+ pro seu projeto final lah..

tipo me escreve a formula dos juros e tal certinha e faz dar o resultado q você qr q eu passo pra alguma linguagem de programação..

 

flw

[Raphael_Suporte 0]

você já tem o código todo e só que essa parte?

[Bernardo Lima 0]

ja consegui desenvolver o programa

 

vlw pela ajuda!

[quitZAUMMM 18]

:D

[Jedi Master 0]

Please, try this and let us know if worked fine...

 

program loan;

var

x, loan_value, interest : real;

 

begin

writeln ('Input the Loan Value : ');

readln ( loan_value );

writeln ('Input the Interest percentual : ');

readln ( interest );

x:= ( loan_value * interest )/(exp(12*ln((1+interest)-1))/exp(12*ln(1+interest)));

writeln ('Value Fixed : ', x);

end.