Visual Basic FAQ

Вычислить значение наращенной суммы платежа

Необходимо вычислить значение наращенной суммы платежа по формуле годовой ренты и построить график зависимости наращенной суммы (S) от срока платежа (n).

Расчетная формула:

S=R*((1+i-)^n-1)/i,

где n – число периодов наращения;
i – годовая процентная ставка;
S – наращенная сумма;
R – годовой взнос ренты.
Пример. Для обеспечения некоторых будущих расходов создается фонд. Средства в фонд, поступают в виде постоянной годовой ренты постнумерандо в течение пяти лет. Размер разового платежа – 4 млн. руб. На поступившие взносы начисляются проценты по ставке 18,5% годовых. Величина фонда на конец срока составит:

S = 4*[(1+0,185)5-1]/0,185=28,9 млн. руб.

Sub Vichislit()
    For t=1 to Text1.text
         Print S(t)
    Next
End Sub

Sub S(t as integer) as Double
    S=R*((1+i)^(t+1)-1-i)/i
end sub

Запись опубликована on 05.12.2009 at 9:39 и размещена в рубрике: Арифметика. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.