攤銷進度表
程式編寫日期: 2006年7月23日
程式會計算攤銷進度表(Amortization Schedule),每一期的貸款利[息(Loan Interest)、償還貸款(Loan Repaid)及尚欠貸款(Outstanding Balance)。程式假設利息每期結算、息率不變及每期供款不變(最後一期供款可以較少)。注意程式每一次計算準確至小數後兩位,與實際情況一樣。
程式 (70 bytes)
?→M: ?→A: ?→B: ?→C: Lbl 0:
MAB ÷ 1200: Fix 2: Rnd: Norm 1:
Ans→D◢ D+M→X: X≧C => C - DM-◢
C>X => MM-◢ M◢ X>C => Goto 0: X
例題: 某銀行提供私人貸款,年利率 15%,提供貸款當日起計之後的每月結算利息及供款。張先生銀行申請得 $ 40 000的私人貸款,並同意每月供款 $9000給銀行直至貸款全數清還(最後一個月的供款可以少於 $9000),試完成以下攤銷進度表。
月 | 貸款利息 | 償還貸款 | 尚欠貸款 |
1 | |||
2 | |||
3 | |||
4 | |||
5 |
按 Prog 1 40000 (貸款) EXE 15 EXE (年利率) 1 EXE (一個月結算)
9000 EXE (每月供款,顯示第1個月的貸款利[息為 500)
EXE (顯示第1個月的償還貸款為 8500)
EXE (顯示第1個月的尚欠貸款為 31500)
EXE (顯示第2個月的貸款利[息為 393.75)
EXE (顯示第2個月的償還貸款為 8606.25)
EXE (顯示第2個月的尚欠貸款為 22893.75)
EXE (顯示 286.17) EXE (顯示 8713.83) EXE (顯示 14179.92)
EXE (顯示 177.25) EXE (顯示 8822.75) EXE (顯示 5357.17)
EXE (顯示 66.96) EXE (顯示 5357.17) EXE (顯示 0,表示最後一期)
EXE (顯示最後一期的供款為 5424.13)
所以答案為:
月 | 貸款利息 | 償還貸款 | 尚欠貸款 |
1 | 500 | 8500 | 31500 |
2 | 393.75 | 8606.25 | 22893.75 |
3 | 286.17 | 8713.83 | 14179.92 |
4 | 177.25 | 8822.75 | 5357.17 |
5 | 66.96 | 5357.17 | 0 |