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

羅蓋仙

" _" Y# V* y5 A1 o

登錄/注冊后可看大圖

* J% `& E' n- b4 H# \" [十進制轉換成二進制：
/ M0 u* u1 Q: ?2 }#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
$ J+ v% L) T3 n0 A  p#33=501.(儲存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
( ?0 U" x# G5 zM0

結果：
#501=1.(低位)
#502=0.
#503=1.
- z7 `6 P8 V: _! i. d  z* M8 o#504=0.
2 Q( L. ?) K$ j/ _$ J* x. P/ J- \, V#505=1.
#506=1.
6 U/ l. X; K4 ]#507=0.
5 q! l# W. P( j+ E- [  e#508=1.(高位)
+ Z( {; X' y( Q/ I5 u* H
! p/ c. ~- R  K
以下為10進制，想得知＃101有幾位數的小程序
$ N% b5 ?0 A9 B: R' ]#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
#30=#30+1.
& H# Y, K! B8 |4 P/ O$ V#10=#10*10.
END1
#30=有4位數(#101有4位數)
M0

羅蓋仙

6 h$ S2 h& V7 l, z; q$ C
如果嫌10進制轉換成2進制，占了太多變量番號的空間
我把它修改了一下
#1=181.
8 E3 E/ d$ x# c- e5 O9 G3 H#101=ABS[FIX[#1]]
#10=1.
#500=0.
- |; N, v! ]0 G6 GWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
: y8 A5 |$ j- y) \9 U, r- `END1
: ~8 P2 {" L6 _% h+ wM0
9 W7 T4 ^1 f1 E, y2 X4 V$ G
6 ^9 C1 Y: e$ b% Z1 f8 W結果：
( ^2 U3 N+ p3 H& `2 Q, H) e#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597

這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
6 t1 c0 A6 ^9 x＃1=181.
#10=10000000.
8 V6 P$ R( {) y/ i  @#31=FIX[ABS[#1]]
4 d' u) N# d- \  \" {9 J#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
8 O( ~! `' \9 `# f; j#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
# {$ C% e7 t' C1 I3 v( ]#10=#10/10.
END1
4 A1 s, C; h" P, QM30

3 j( l7 f& v& V9 K& K還是有改良的空間

bruceding

回復 2# 羅蓋仙


    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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