[anghela]

Помогите расписать формулу в Delphi, не получается правильно расписать: http://fotki.yandex.ru/users/anzhela...771561/?page=0
если сумма кредита - это sum_kr, p=1/12, N - srok_mes. К примеру возьмем сумму 100 000, срок - 18 мес

Пишу такую формулу:

Код:

 plata:=sum_kr*(1/12+((1/12)/((exp(srok_mes*ln(1+1/12)))-1)));

Выводится не верный результат. Подскажите, как правильно?

И если не трудно, напишите как округлить число до 0,0000?

[PhoeniX]

А exp и ln откуда там вообще взялись?

[M.A.D.M.A.N.]

Сообщение от PhoeniX

А exp и ln откуда там вообще взялись?

В степень так возводят.

если x:=a^b;
тогда справедливо: x=exp(b*ln(a))

[anghela]

нашла в интернете, что так записывается возведение в степень

[M.A.D.M.A.N.]

В вашем случае можно запользовать ф-ю Power(a, b).

[icWasya]

А если расписать как положено?

Код:

var
  sum_kr,srok_mes,plata,stavka,P:Float;
  N:Integer;

stavka :=...
P        :=stavka/12;
N       :=...
plata  :=sum_kr*(P+( P/ ( exp (srok_mes*ln(1+P) ) -1) ) );

и внимательно посчитать скобки