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

羅蓋仙

/ n. t- n1 t2 v, _( }) d& i+ Z
, J* J5 W; x7 N
4 d& n: U# W' A' ?4 c0 g5 E- u% P
十进制转换成二进制：
2 c4 L8 E6 V+ V7 D+ O' M) r#1=181.(欲想转换成2进制的数值)
8 O9 a6 R* H: J4 T" [#101=ABS[FIX[#1]]
( _: d6 ~2 w4 N3 N. s+ N#33=501.(储存到#501～)
WH[#101GE1.]DO1
' {0 C" E! m' y1 T9 P0 J+ g% I3 i#[#33]=#101 MOD 2.
( [/ M$ u, n2 R/ R#101=FIX[#101/2.]
/ d: l8 a9 u4 v& h. I# ?#33=#33+1.
% F, Q5 v4 o9 t8 t/ YEND1
. |$ U0 L- J/ P" p4 yM0
3 _# x1 a( @: N. |* w
* t" z$ U# m* c9 ?* V0 q" d结果：
) v+ j' Q; ~% }; `* u, v7 y  W  b#501=1.(低位)
: y5 I: o+ C2 h  W( D#502=0.
#503=1.
* s# [. O4 S( ~& A# @+ f+ B#504=0.
#505=1.
' N% v7 ]$ g' x! K5 U#506=1.
#507=0.
9 a; D4 |; B5 I7 ^! j* k0 W#508=1.(高位)
, }: l* ~$ z6 `& N

以下为10进制，想得知＃101有几位数的小程序
#101=1234.
2 M" V, y* W6 p; j( b) m6 z$ @9 n9 g2 T#10=1.(用1去比→用10去比→用100去比....)
1 j9 |( b, h# S5 ?' n#30=0.
0 U! L1 n, X9 y( f5 rWH[#101GE#10]DO1
#30=#30+1.
' G  k7 \% `( P; o; ?/ h#10=#10*10.
" O1 _# Z3 I1 L: BEND1
#30=有4位数(#101有4位数)
M0

羅蓋仙

  S2 H9 l6 @7 L% Z8 |# j8 V9 U- y
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
2 L0 S1 W8 ?" M0 H/ C( y#1=181.
7 C2 M3 F" f0 D( K: N#101=ABS[FIX[#1]]
#10=1.
8 H; p8 c, u# _0 W5 J#500=0.
0 O& [1 I; }4 w, G$ b$ l4 W  kWH[#101GT0.]DO1
$ T) y" B% R, l#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
- r- K: k9 h  s3 T% o2 s1 T0 REND1
M0

结果：
6 F, _7 F: i1 }7 u; T; d#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

# U9 h/ l$ R( Q4 Z! \5 f& P这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
2 G0 |/ t: _7 ~0 j. Y$ T* p0 X( b#32=128.
IF[#31/#32GE2.]THEN#3000=200.
  V6 e! {+ \! q9 AWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
7 X  p+ w! E# u; R#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
7 l- N# z% k- z* B3 S5 K; KEND1
M30
+ l! {; t4 K/ H( D- k( J
还是有改良的空间

bruceding

回复 2# 羅蓋仙
  L  U/ M* J0 ]/ K1 P. n: L) o
: f, i8 S0 Y0 o& M
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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