按揭計算(II)
更新日期: 2011年1月31日
程式用作計算按揭問題，假定利息每月計算及息率固定不變，程式可以計算以下問題:
˙尚欠貸款Outstanding balance ( 已知貸款、每月供款、貸款及年利率)
˙貸款 Loan (已知尚欠貸款、每月供款、年利率及還款期數)
˙年利率 (已知尚欠貸款、每月供款、貸款 及還款期數)
˙還款期數 (已知尚欠貸款、每月供款、貸款及年利率)
˙每月供款Monthly instalments (已知貸款、年利率及還款期數(月為單位))
注意: E 是按 EXP。
程式 (220 bytes)
ClrMemory: π→A: ?→A: ?→B: ?→C: ?→D: ?→X: 1200→M:
1 + C ÷ M→Y: A=π => BY^( D ) + XMC-1(1 - Y^( D◢
B=0 => (A + XMC-1(Y^( D ) - 1) ) ÷ Y^( D◢
X=0 => C(A - BY^( D ) ) ÷ (M- MY^( D◢
C => log( Y , ( AC - XM) ÷ (BC - XM◢
6→Y: Lbl 0: Y→C: 1 + Y ÷ M:
Y - M( BAns^( D ) - XMY-1(Ans^( D ) - 1) -A ) ÷ ( XM2(Ans^( D ) - 1)
÷ Y2 +Ans-1Ans^( D )( DB- DXM ÷ Y→Y:
E - 3 ≦Abs( Y - C => Goto 0: Y
參考公式:
(A為尚欠貨款，Q為每月供款，M為貨款及 r 為每月利率 (即年利率÷12))
例題1: 貸款$100,0000，年利率為6%，每月還款額5995.51，求還款100期後的尚欠貸款。
按 Prog 1 再按 EXE (不輸入數值代表計算尚欠貨款)
100 0000 EXE (貸款)
6 EXE (年利率)
100 EXE (還款期)
5995.51 EXE (每月還款，顯示尚欠貸款為 $871247.01)
計算完結按AC終止程式
例題2: 貸款$100,0000，年利率為6%，貸款時間為360月，求每月還款額。
按 Prog 1 再按 0 EXE (尚欠貸款為0代表完全清還)
100 0000 EXE (貸款)
6 EXE (年利率)
360 EXE (還款期)
EXE (不輸入數值代表計算每月還款額，顯示還款額為 $5995.51)
計算完結按AC終止程式
例題3: 一項貸款，每月還款額為$5995.51，年利率為6%，還款期數為360月求貸款額。
按 Prog 1 再按 0 EXE (尚欠貸款為0代表完全清還)
EXE (不輸入數值代表計算貸款)
6 EXE (年利率)
360EXE (還款期)，顯示貸款額為 $100 0000)
5995.51 EXE (每月還款額，顯示貸款額為 $100 0000)
計算完結按AC終止程式
例題4: 貸款$100,0000，年利率為6%，每月還款額為$5995.51，求還款期數。
按 Prog 1 再按 0 EXE (尚欠貸款為0代表完全清還)
100 0000 EXE (貸款)
6 EXE (年利率)
EXE (不輸入數值代表計算還款期 )
5995.51 EXE (每月還款額 ，顯示還款期為360月)
計算完結按AC終止程式
例題5: 一項貸款，每月還款額為$5995.51，貸款$100,0000，還款100期後的尚欠貸款為$871247.01，求年利率。
按 Prog 1 再按 871247.01 EXE (尚欠貸款)
100 0000 EXE (貸款)
EXE (不輸入數值代表計算年利率)
100 EXE (還款期)
5995.51 EXE (每月還款額，顯示年利率為 6%)
計算完結按AC終止程式
註: 計算利率時，由於需要重複計算，所以計算時間可能會較長。
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集
