十进制转换成二进制的小程序

羅蓋仙

4 G4 `, O1 u/ H) R* i8 M8 t
' T$ R' s9 R. f2 x8 R& Y
4 C) D. s  V1 v  R
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
* R- y% w1 P! b$ F5 t  ?2 x#101=ABS[FIX[#1]]
& R. L  c  @9 t3 w/ d+ \- P/ `#33=501.(储存到#501～)
  j4 W3 c5 r, H9 o) dWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
3 i. B1 U; c9 v% e7 g2 \. U& F5 b#101=FIX[#101/2.]
#33=#33+1.
3 }* Y$ n( g6 v4 x. J+ \' dEND1
  |7 Z5 Z2 @& i0 zM0
3 _( ]* q. r' X" ?
1 G1 s9 O, B+ a+ v) T& k+ S结果：
" f) m" S5 j4 k' j#501=1.(低位)
1 q4 C! y7 X, s#502=0.
* D1 z% J( ?! R" R6 Y#503=1.
#504=0.
8 B4 o1 B; z' m2 q; P# ?$ [) g#505=1.
#506=1.
#507=0.
#508=1.(高位)

. Y' n5 _! L* H! s
: _3 L/ t( z& ]* G, Z以下为10进制，想得知＃101有几位数的小程序
9 }% p/ P8 l) c7 ]8 d: \#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
; z+ u4 B3 [/ ]/ P. F0 N- b#30=0.
WH[#101GE#10]DO1
; \3 ?7 `, P& O# f#30=#30+1.
#10=#10*10.
END1
' l# ^: D7 v" N) }8 V) b#30=有4位数(#101有4位数)
M0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
( n: m! f( {- i6 [9 q. b#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
: s& P  N, O, e, n1 IWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
+ F8 b9 g/ S+ M! D9 |#101=FIX[#101/2.]
& W* S# t# D2 d: K# y#10=#10*10.
END1
4 L5 l# s: R/ s! ]* P* `5 r: t2 `- R+ \M0

结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

$ c0 w. h5 X$ I% K7 i2 R这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
9 H" q! k4 X; j2 N& s# ~0 BIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
5 l; }4 s, z; y. R' M* ?) x$ P#33=FIX[#31/#32]
#500=#500+#33*#10
0 C: U2 Y) z" c0 R9 J. q+ b' M1 Y0 W2 ?#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
' O+ s  w, U) zEND1
M30

5 {) w$ `  R4 w+ F( J还是有改良的空间

bruceding

回复 2# 羅蓋仙


: `8 M* |5 M4 I% A( D. Q3 h    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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