n(2-9)進數與10進數間轉換(I)

更新日期: 2011年4月27日

程式 (57 bytes)

ClrMemory: ?→A: ?→B: ?→C: While A:

Fix 0: Rnd( A÷C - . 5→X: Norm 1:

B^( D )(A - CX M+: 1 + D→D: X→A:

WhileEnd: M

 

例題1: 將十進制 25 以二進制表示。

按 Prog 1  再按 25 EXE 10 EXE 2 EXE (顯示答案為11001)

所以 2510 = 110012

 

例題2: 將二進制 11001 以十進制表示。

按 Prog 1  再按 11001 EXE 2 EXE 10 EXE (顯示答案為11001)

所以 110012 =  2510

 

注意: 輸入的數值必須為正整數。

附錄: 第二個程式(59 bytes,程式保留D記憶沒有使用)

MM-: 1→Y: ?→A: ?→B: ?→C: While Ans:

Fix 0: Rnd( A÷C - . 5→X: Norm 1:

Y(A - CX M+: BY→Y: X→A: WhileEnd: M

 

 

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

Free Web Hosting