雙倍餘額遞減折舊

雙倍餘額遞減折舊

更新日期: 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 終止程式