n進數(2至9)轉十進數(I)

第二個程式較長,但速度較快。

程式編寫日期: 2006年4月17日

第一個程式 (48 bytes)

Mem clear: ?→M: ?→A: Lbl 0:

log M- . 5: Fix 0: Rnd: Norm 1: 10xAns M-:

B + A^log Ans→B: M>1 => Goto 0: M+B

 

第二個程式 (57 bytes)

Mem clear: 1→Y: ?→A: ?→B: Lbl 0:

A÷10 - . 5: Fix 0: Rnd: Norm 1: Ans→X:

Y(A - 10XM+: BY→Y: X→A => Goto 0: M

 

註: 若果想保留一些記憶用作儲存臨時數據,可將程式中"Mem clear"改為"MM-",而 第一個程式所使用的記憶為A、B及M,第二個程式使用的記憶為A、B、X、Y及M。

 

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

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

所以 110012 =  2510

 

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

 

返回 fx-3650P 程式集

Free Web Hosting