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