Размер программы: 23 шага
Задача: берем деньги v в долг под проценты r на какое-то время, договариваемся погасить долг за определенное количество n периодов. Программа подсчитает сумму периодических выплат так, чтобы выплачивать равными частями.
000: STO 0 // [ 0.]
002: [x] // ввести, 0.25 ***
003: × X<>M × ( ( ( // [ 0.] M ()
009: RCL 0 + 1 ) yX // [ 1.25] M ()
015: [x] // ну, пусть будет 12 ***
016: − 1 ) 1/x + 1 = // [ 0.] M
Для расчета используется формула:
Пример:
Определить периодическую выплату по 24-месячному займу 200 000,00 ₽ под 17,5% годовых.
Допустим, программа введена в подраздел LRN4.
Начнем:
200000 RUN 9 // v, сумма
17.5 % ÷ 12 = RUN // r, процент
24 RUN // n, периодов
Ответ: выплата — 9 936,57 ₽ в месяц.
× 24 = // расчеты вне программы
Ответ: 238 477,67 ₽ будет выплачено в итоге.
Потребуется ввести какие-нибудь, отличные от нуля, значения, чтобы во время ввода программы не возникла ошибка «Деление на ноль». Введенные после команды [x] значения на размер программы не влияют.