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

羅蓋仙

1 P$ O" U) Y/ O1 f/ d4 c% O5 P

十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
% b' C) Q: a% h0 D: v" j, p#[#33]=#101 MOD 2.
, J7 O: o8 p# W- x7 n( G! v  H* n#101=FIX[#101/2.]
#33=#33+1.
& M3 n+ m5 p( CEND1
M0

- H' Q7 S) y, \' q2 S# q结果：
#501=1.(低位)
#502=0.
#503=1.
#504=0.
4 p9 X  y4 ]8 `% f#505=1.
( Y  \2 ^( v; B! V  q+ d) a#506=1.
#507=0.
5 ~9 E: p7 W: R: n) O. j, f# E' a#508=1.(高位)
5 E  t) g+ d2 c9 ^$ u
9 Y1 W- G& E4 B: N* d
以下为10进制，想得知＃101有几位数的小程序
# c* ~  d( M# X# W$ L* j" ^#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
9 T1 u0 ?8 E) P6 c+ U7 u& r' r7 VWH[#101GE#10]DO1
% }% B4 \0 P' m: H! `& z1 o#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

  x3 r) d% b( ~% I
/ [( Z8 M, x2 E0 f5 L) y如果嫌10进制转换成2进制，占了太多变量番号的空间
/ t' P# O5 i: x' W# r我把它修改了一下
#1=181.
" W, v2 Y7 A8 e) Z) t- u5 a#101=ABS[FIX[#1]]
" a* ], L3 z- ~& U: M8 a$ u6 @#10=1.
#500=0.
, g7 E6 s: y5 `5 D6 v$ ^; qWH[#101GT0.]DO1
# u9 t" Z5 ?# `( d1 Q% n#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
, Z" r# w% M% ?& ]! B* oEND1
' v. ?0 w, x$ @& N) m: qM0

4 k. N& }2 g5 O7 R结果：
% T  O. N. |5 l; r) o: M- _#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
! G4 b! p3 Q2 q- _$ v+ B* J) X
6 |  z/ u; j' y5 I6 @5 X4 F这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
7 S# G- o' ?" j#33=FIX[#31/#32]
8 g4 V( d! S, k, S- y1 ]#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
0 k9 L9 [, p/ J# g9 l#32=#32/2.
* ~1 C8 P7 r! j' {7 |#10=#10/10.
END1
M30

" Z" {& k3 O) w* Q( a* y, `* l还是有改良的空间

bruceding

回复 2# 羅蓋仙


. H) d( Q7 O$ N# P- g' f/ J    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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