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

羅蓋仙

# X: M* R6 Y# C


十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
. n* C/ [0 A# I#101=ABS[FIX[#1]]
7 x9 Y  f* Z7 T$ P* v( d#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
  g" ^% @8 U( S' ~- a* n- hM0
7 R  C" P0 |0 C$ r$ f
+ E1 @/ l) `9 ~' r结果：
#501=1.(低位)
#502=0.
% _% X* D4 {; v! y; c5 m#503=1.
#504=0.
#505=1.
#506=1.
#507=0.
#508=1.(高位)
. y0 ^" e+ y. d& T& p! @, r
* h' x9 z, S, @" P8 n
! a7 V0 a, o+ ~  H: X. u以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
3 Y  @5 [: }( o: c& O& F$ s#30=0.
) {# s0 S; v$ XWH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
* A# l! f) n0 OEND1
#30=有4位数(#101有4位数)
7 ^( z! t% L2 c; M: xM0

羅蓋仙

4 a0 H% K3 _- a; l/ _
1 v5 J4 @9 Y5 I6 ~如果嫌10进制转换成2进制，占了太多变量番号的空间
4 I/ W, K( y9 L! R6 t4 Q( U' }& d我把它修改了一下
#1=181.
% Q# P( f; ~5 {' q#101=ABS[FIX[#1]]
#10=1.
+ E2 k' V$ Q/ ?/ \#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
5 d9 O4 u" e" O' \#10=#10*10.
END1
M0

: b, f9 m* C0 p% {6 f结果：
9 h$ B4 Z- e' k: p( _" d# y6 |7 v#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
5 q9 G; d% u& b( S: K
3 G% j! w" H# r! F& l0 J% F! o这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
; C1 Y: U! y, ^! u#10=10000000.
* I+ W/ M, Y' B6 i) I, |#31=FIX[ABS[#1]]
#32=128.
4 q' W, {6 X# h6 G7 ?* ^2 pIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
6 Y6 m! J0 t- g2 D* w/ t- l#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
' w, e, k5 B$ w' p4 W) ?$ Z0 x

    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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