雙倍餘額遞減折舊

更新日期: 2011年1月31日

程式(58 bytes,使用記憶A, B, C, D及X)

?→A: ?→B: ?→C: While 1: ?→D:

C-1(C - 2→X: B - AX^( D:

2AX^( D - 1 ) ÷ C - Ans(Ans > 0:

Ans(Ans > 0◢ WhileEnd

 

例題: 機械成本為$30 000,預估經濟年限5年,預估5年後殘值是$5 000,以雙倍餘額遞減法計算第一年、第二年及第三年的折舊費用。

按 Prog 1 再按 30000 EXE 5000 EXE 5 EXE 1 EXE (顯示第一年折舊 $12000)

EXE 2 EXE (顯示第二年折舊 $7200)

EXE 3 EXE (顯示第三年折舊 $4320)

計算完結後按 AC 終止程式

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集