8.х Как написать такую формулу?

Появилась необходимость написать кредитный калькулятор, но не имею понятия как написать эту формулу в 1с, помогите пожалуйста



где

A — Ежемесячный платеж,

S — сумма кредита,

p — процентная ставка в месяц,

n — количество месяцев погашения кредита.

Вообще ничего не понятно.

Как написать что бы я уже мог рассчитывать кредит? Я создал форму в ней объекты, сумма кредита, еж. мес. платеж, процент, и кол-во месяцев.

А что за переменные ЭС, -эн?

Сделал так:

Код:

А = Объект.СуммаКредита / Объект.СрокКредита;
S = Объект.СуммаКредита;
P = Объект.ПроцентнаяСтавкаВМесяц;
N = Объект.СрокКредита;

ЕдиницаПлюсПэВСтепениМинусЭн = Pow(1+P, -N);
Числитель = S * P;
Знаменатель = 1 - ЕдиницаПлюсПэВСтепениМинусЭн;
Итог = Числитель / Знаменатель;


Объект.Платеж = Итог;

В итоге вышла какая та хрень, рассчитываю 1000 на 12 мес. с процентом 3 показывает ежемесячный платеж 3000

Числитель = S * P / 100; ?

Блин, точно, так и знал что делится 3 а не 0.03 )))

Исправил это в переменной P = Объект.ПроцентнаяСтавкаВМесяц / 100;

Все теперь считает с процентиками ) Спасибо Вам огромное )

Только жаль что я математику в школе не учил, и не знаю что делает это - ЕдиницаПлюсПэВСтепениМинусЭн = Pow(1+P, -N); )))

Уже давно почитал. И то что Возводит число <X> в степень <Y>. Мне ничего об этом не говорит

Это значит надо Y раз умножить X на X .

X = 2, Y = 2 получаем 2 * 2 = 4

X = 3, Y = 3 получаем 3 * 3 * 3 = 27

X = 3, Y = 2 получаем 3 * 3 = 9

:angry:

Код:

Функция СложныйПроцент(Кредит, Ставка, Срок = 1)

Возврат Кредит * Pow(1 + Ставка / 100, Срок);

КонецФункции

Да, есть такие люди которые не знаю математику