按揭計算(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-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting