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

羅蓋仙

( J8 U7 H8 Z: o4 y' X
5 d0 S2 o; W! E

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

5 q1 _  c6 {$ V3 p2 F5 S- r# v
7 y! A# ^/ b# N& k. ~; T十進(jìn)制轉(zhuǎn)換成二進(jìn)制：
#1=181.(欲想轉(zhuǎn)換成2進(jìn)制的數(shù)值)
8 j8 U" y0 X+ q7 I- Q2 X" f' B#101=ABS[FIX[#1]]
#33=501.(儲(chǔ)存到#501～)
, k; j  q' {! N6 z/ m$ jWH[#101GE1.]DO1
3 N7 x! T+ f- r8 f2 W- `#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
M0
- j1 p, e+ K7 h/ b0 \
結(jié)果：
#501=1.(低位)
#502=0.
#503=1.
  e& p( a$ s5 k7 \: {, |5 i#504=0.
. |  p# X) L' [- E#505=1.
- H2 @3 v' |# a9 l5 s2 P2 W#506=1.
#507=0.
: H8 u+ S5 d4 O7 I) k#508=1.(高位)

/ K/ ~8 O7 d; D1 x$ Q
以下為10進(jìn)制，想得知＃101有幾位數(shù)的小程序
#101=1234.
' p# Q3 J( D+ p1 H3 u$ d% K# E#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
  b. u# p' f$ ]) M- f#30=#30+1.
#10=#10*10.
END1
#30=有4位數(shù)(#101有4位數(shù))
M0

羅蓋仙

& p4 j" h! y# D  L# c
# w3 b9 u. ], ?. H; o如果嫌10進(jìn)制轉(zhuǎn)換成2進(jìn)制，占了太多變量番號(hào)的空間
: w3 g2 W' u8 E. Q# a我把它修改了一下
; v: ]+ s4 ]2 T5 @; N: R+ J5 ^% J#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
/ ]3 E1 Z9 r# |% U#500=#500+[#101 MOD 2.]*#10
" e( }+ D( T: E7 S8 P#101=FIX[#101/2.]
* i8 H* F1 N- q) c  @+ Z#10=#10*10.
0 }# _3 y, ]' Q/ a5 ~END1
# ]5 C# O1 x1 l6 O1 j  u: ]M0

  B1 p# U! L# @- G# A結(jié)果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復(fù) 4# ois90597
- Q; ]: l# J2 S7 `* z* E
這是我那臺(tái)灣某網(wǎng)友，我們互相分享討論，他的寫法感覺比我好：
  W+ X3 A+ S/ ?* h7 ~! f＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
: g) s. @; |1 V  v: Y#32=128.
" x# ^3 q9 v, c+ `9 }7 z# p" GIF[#31/#32GE2.]THEN#3000=200.
4 q$ c! |! }; o8 p3 a" V8 RWHILE[#32GE1.]DO1
* S5 [  z8 e6 ?7 W( h6 q#33=FIX[#31/#32]
( O$ ?6 }' u) y+ j$ @; p#500=#500+#33*#10
  R6 ?* S; b1 y4 P1 f/ o#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
$ J8 F. f( H5 D) _9 M, y+ HM30

還是有改良的空間

bruceding

回復(fù) 2# 羅蓋仙


7 A* G  Y& g, Z    精辟

zhangjun

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

wslaoa

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

getto

很好，就是看不懂

ya_blueang

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

919616

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