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

羅蓋仙

& m& j5 x  e/ L4 T+ x5 `9 y

登錄/注冊后可看大圖

十進制轉換成二進制：
#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
3 i' z+ k  E" \: G; M5 cWH[#101GE1.]DO1
) i! w2 s3 t! v#[#33]=#101 MOD 2.
) w! J% m" w1 F#101=FIX[#101/2.]
#33=#33+1.
2 r( m0 ~1 {4 NEND1
M0

+ f$ i  ~- @# \; C結果：
6 \0 ?2 j! ?$ j#501=1.(低位)
#502=0.
#503=1.
#504=0.
5 K& v5 u% T( N: a# U& a# n0 U4 J#505=1.
#506=1.
( J' s8 t$ ~6 \" N- B: ?7 Q#507=0.
#508=1.(高位)
  g; R" o( `3 f4 }& Y
4 {! m* M0 v9 ^% b3 x
7 e% E* r4 h9 D$ `以下為10進制，想得知＃101有幾位數的小程序
8 d, b8 Z2 T. c, Z$ G#101=1234.
: o- A, c* v' z2 v+ A$ j6 ?#10=1.(用1去比→用10去比→用100去比....)
0 K3 v2 E" O- J* C& V9 v! z3 W#30=0.
8 O! D5 a4 g5 f' RWH[#101GE#10]DO1
( m/ F8 n$ b5 f4 i" }0 Q0 ?#30=#30+1.
#10=#10*10.
5 v/ s3 Q. ?# B( bEND1
#30=有4位數(#101有4位數)
M0

羅蓋仙

- I7 B4 Z% s; k3 O: T
* i3 C. `# ~. r7 r- k0 h如果嫌10進制轉換成2進制，占了太多變量番號的空間
) m+ ]; q+ n2 ^" ^$ L' U我把它修改了一下
#1=181.
6 o+ ]3 T. n4 L+ p, h) D- B  J#101=ABS[FIX[#1]]
#10=1.
# N( Q  m7 Q, i' l" f& o#500=0.
- b4 i. m0 A8 q% yWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
8 K" c: G3 M+ y# E4 B$ ~END1
& R! W8 N! k" f1 z* w) x  pM0

結果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597
' O5 L* H: p3 N0 x$ V0 Y" m
這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
＃1=181.
& [3 p8 n" _* _. M( `+ ^#10=10000000.
#31=FIX[ABS[#1]]
3 |, s( Y/ Y  H# q6 @#32=128.
IF[#31/#32GE2.]THEN#3000=200.
# I; F4 ]& c3 |, Y9 sWHILE[#32GE1.]DO1
3 o8 g5 Y7 _; ~#33=FIX[#31/#32]
# N' Y2 H5 p! b9 D) f* G$ b#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
2 u" P- D/ I+ M; ?& h- U/ D#32=#32/2.
#10=#10/10.
" g( }/ ?: m) A: o. T# TEND1
4 g( K; D  z2 R0 cM30

6 _! g- |& b# b7 C5 V0 p還是有改良的空間

bruceding

回復 2# 羅蓋仙
( |! q* M' n7 h1 F" G0 C' {5 f3 w" X
1 s. s, Q& Q. }
    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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