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

羅蓋仙

登錄/注冊后可看大圖

十進制轉換成二進制：
2 b" g4 d9 T) b#1=181.(欲想轉換成2進制的數值)
" s2 |% c0 M! j% ^1 N#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
WH[#101GE1.]DO1
( X. e8 t4 q) F: {#[#33]=#101 MOD 2.
+ E9 V% z! ]8 O8 o5 i5 m+ Q#101=FIX[#101/2.]
#33=#33+1.
END1
8 Y. h, s; e9 E" X8 L+ n1 OM0

結果：
9 N' O- E3 [3 E6 b#501=1.(低位)
#502=0.
#503=1.
+ T" p" P& ?4 `/ X7 F# L#504=0.
#505=1.
# d0 s0 Y* c- w9 X! X! f1 `#506=1.
. a% \# G1 y# t! e. m#507=0.
( V& l6 @: I2 t5 v( w#508=1.(高位)
5 n' q. d/ Y  X# J( e  c3 u

以下為10進制，想得知＃101有幾位數的小程序
& ], s- O! r, j1 J6 w' _7 [* S#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
/ L$ X$ l' e5 f% M, o  n* \#30=#30+1.
#10=#10*10.
END1
- K* g) n- x* w; O' @9 G! m#30=有4位數(#101有4位數)
7 K* O; U5 R8 v8 g+ w; O" n; F+ bM0

羅蓋仙

. ~9 x# F- ^/ {" m/ ~  L
  d! s' N4 B9 o" j# j, Z6 P如果嫌10進制轉換成2進制，占了太多變量番號的空間
3 y  g4 O8 t. x* F  V3 n我把它修改了一下
# l# r8 A7 Z% a* Z6 h& o) b#1=181.
#101=ABS[FIX[#1]]
, L" d. F+ t1 F# r8 d#10=1.
6 @: C+ a& f, d# w) f#500=0.
WH[#101GT0.]DO1
/ E' C3 e& d, L( A* w#500=#500+[#101 MOD 2.]*#10
- S* U8 s3 j$ D! m# n; I#101=FIX[#101/2.]
#10=#10*10.
END1
M0

' t* V6 i3 n) ?; |% R$ b結果：
+ ]$ @! k5 C$ l#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597

: ]$ ^  u4 u/ R4 I9 k: N; E這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
9 i  L: F/ Y/ k#32=128.
IF[#31/#32GE2.]THEN#3000=200.
4 Y, M/ t! z( @# r: @. F6 LWHILE[#32GE1.]DO1
8 l# Z9 f* [, q: `  a#33=FIX[#31/#32]
1 S* j/ g! Z, {! j4 w#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
& L' g) g$ s/ Q# D, qM30

, o# _5 q: P4 I1 ]* [* u( `還是有改良的空間

bruceding

回復 2# 羅蓋仙
2 h0 C) \. l' {" u/ z
' H0 h. B! W' x3 P4 N
    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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