十進制轉換成二進制的小程序

羅蓋仙

' x6 t5 _7 a' v7 ~# x8 [$ Z- P1 }
$ J( k/ n: n' M7 P) W, t2 f- _

登錄/注冊后可看大圖

' g" V4 S3 A) _9 l+ ]* L十進制轉換成二進制：
3 T% X& p) \% z2 u#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
1 Q2 A* l' d" T+ B! P- Z$ xWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
- ^3 X" e7 r" r# J* f0 D& ]* k- s. Y#101=FIX[#101/2.]
#33=#33+1.
END1
7 p) Y" {8 J0 p; m: EM0

結果：
' X, G9 w3 |% o5 Y  b+ [4 `#501=1.(低位)
#502=0.
#503=1.
3 R1 w9 p4 Z% i8 K, M2 K#504=0.
* F  S1 i& n; x5 D) ?( S#505=1.
; f! l1 i& `! v+ s0 T#506=1.
" R1 |3 l3 Y% S+ e. Y1 K2 d/ d#507=0.
! k* |$ x/ }% t5 l1 [% l# ^, B( h#508=1.(高位)
& R8 C1 j& l( H) W" m9 G. V( Y% L

以下為10進制，想得知＃101有幾位數的小程序
#101=1234.
, f) K1 o$ d6 _8 f9 R#10=1.(用1去比→用10去比→用100去比....)
, B' Y: R* M) M/ [#30=0.
WH[#101GE#10]DO1
& h/ @1 r( Y& G#30=#30+1.
# `# U6 k1 A8 Q#10=#10*10.
END1
#30=有4位數(#101有4位數)
M0

羅蓋仙

) J6 _; V0 o* }5 g5 Z" A如果嫌10進制轉換成2進制，占了太多變量番號的空間
, T# n# N3 d- [0 `我把它修改了一下
; e: M! W9 [; N, [1 z4 G#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
: ?% ]8 n, S5 y2 v6 d7 R! EEND1
- q4 q* {2 ]1 g- \M0

結果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597

! T, M8 C4 l3 z" _0 ^這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
* J- L' R8 f  s5 U5 [2 T3 [＃1=181.
9 A& R0 J: e( s#10=10000000.
" w) M, c/ r* `) y$ t#31=FIX[ABS[#1]]
#32=128.
* j" f9 g4 ]1 G- l) TIF[#31/#32GE2.]THEN#3000=200.
5 k) x5 g/ O; f1 Z9 E3 N! \WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
7 e; ~3 ^- h) H4 U" z  y& F, u; HM30
# J* e/ A" K6 n( A1 U0 _# ~
還是有改良的空間

bruceding

回復 2# 羅蓋仙


, ~5 s1 F( y! P4 _    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

good..............