十進(jìn)制轉(zhuǎn)換成二進(jìn)制的小程序

羅蓋仙

登錄/注冊(cè)后可看大圖

  N' _1 f0 f* x* E
' X' N9 s2 J7 n8 Q十進(jìn)制轉(zhuǎn)換成二進(jìn)制：
#1=181.(欲想轉(zhuǎn)換成2進(jìn)制的數(shù)值)
#101=ABS[FIX[#1]]
#33=501.(儲(chǔ)存到#501～)
$ {! l# x1 A5 pWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
8 e- ?' I+ a# ^! j5 y5 \7 d#101=FIX[#101/2.]
* ^& U9 c4 g) E" f" l- k#33=#33+1.
END1
M0
- P  D$ S% p; _+ u3 u
結(jié)果：
' }4 |1 d/ S# _9 E#501=1.(低位)
+ N- w8 T$ t! X#502=0.
#503=1.
#504=0.
' K0 y" `4 Z/ q/ s1 N#505=1.
#506=1.
$ {* f. J1 @/ i* B5 b$ O7 {#507=0.
1 ~# i* \1 n& r6 k7 k0 c( o#508=1.(高位)

! P$ X$ s: H+ J9 g- T$ \( Z2 d
1 K9 Y3 W2 }$ Z/ X: Y以下為10進(jìn)制，想得知＃101有幾位數(shù)的小程序
#101=1234.
) B+ a/ L3 O! C( ^8 ?5 ~#10=1.(用1去比→用10去比→用100去比....)
: q( ?2 c: y( G( H#30=0.
WH[#101GE#10]DO1
; n2 I9 {( E! [5 h" I#30=#30+1.
#10=#10*10.
END1
#30=有4位數(shù)(#101有4位數(shù))
M0

羅蓋仙

; q6 w, _% |) u2 m/ y$ ]! `8 W
1 F+ S6 d- ]# K# o+ H如果嫌10進(jìn)制轉(zhuǎn)換成2進(jìn)制，占了太多變量番號(hào)的空間
8 l0 P3 D) J, B. q2 J! ?& F我把它修改了一下
#1=181.
2 |( f# g: P% f7 _# |#101=ABS[FIX[#1]]
#10=1.
#500=0.
4 K/ {' k) s: B8 `- rWH[#101GT0.]DO1
& I& m4 ^) K* j' ]& x. s7 m0 }: b#500=#500+[#101 MOD 2.]*#10
8 W1 N9 }. X$ @. P#101=FIX[#101/2.]
+ M8 K1 d5 b, q, J! B! a#10=#10*10.
7 }3 {/ f9 M* @: W- u/ }# \END1
M0

結(jié)果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復(fù) 4# ois90597
  t, \. p) _7 D
+ Q/ {1 c4 z* {% O" P3 O, G這是我那臺(tái)灣某網(wǎng)友，我們互相分享討論，他的寫法感覺(jué)比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
) {+ K+ \' E0 C- K. c9 J#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
/ N1 [) w9 ]& z#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
$ s) y: }: V% p) \#32=#32/2.
$ ?) @8 s' G9 u2 d4 ~; Z5 }  Q: }#10=#10/10.
& ]) G- T8 U) q* \END1
M30
# v! I( o; R( T, y( m" \9 b
還是有改良的空間

bruceding

回復(fù) 2# 羅蓋仙

. ?* r# s; Z+ @/ q* ]2 i
    精辟

zhangjun

不錯(cuò)經(jīng)典資料，值得學(xué)習(xí)

wslaoa

好久沒(méi)來(lái)了  挺不錯(cuò)

getto

很好，就是看不懂

ya_blueang

學(xué)習(xí)，謝謝樓主分享

919616

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