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

羅蓋仙

; w9 H' V* Z4 w! N. l# a
$ Q9 F2 o- W! m/ ?5 X: o
" S6 f% v7 c/ ]4 m- P1 g8 r
( Z! X" H4 V  m% M十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
- O4 |- z4 _7 sWH[#101GE1.]DO1
7 n, \. j. c# ]0 L3 Y) Q#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
: S; Q( r  S( w0 V: Y$ F( A5 tM0

$ d  ^4 M" C6 a结果：
#501=1.(低位)
#502=0.
% d$ ~' J6 ~, Q$ M4 V$ a. N#503=1.
#504=0.
#505=1.
; P6 \. ?5 _1 l; _5 J, N4 M) @#506=1.
#507=0.
# g# N: \! }" w& }% O9 Q#508=1.(高位)

9 y1 l  U% E! K0 x. N) R
3 S( F$ j( m/ A- y, T以下为10进制，想得知＃101有几位数的小程序
6 {5 v5 ], V/ Z: H7 P( S+ t  c2 r#101=1234.
# ?  @( t0 g  k+ N5 F3 u#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
5 F2 n" W' [  Q; o8 X2 L( t3 _9 CEND1
#30=有4位数(#101有4位数)
M0

羅蓋仙

: C# f+ Z; X2 Q7 P- X( _
如果嫌10进制转换成2进制，占了太多变量番号的空间
) k5 T, ]  k  ^5 G' ]: {: |( f  s4 @我把它修改了一下
+ z7 |' D. v1 H( t, b/ Q#1=181.
8 y+ F$ z* q$ S+ Q) G4 k& \#101=ABS[FIX[#1]]
#10=1.
#500=0.
- q# M' ~* W* Y% E2 HWH[#101GT0.]DO1
1 e+ N  s* e4 B7 V& V0 T#500=#500+[#101 MOD 2.]*#10
& t2 ]6 z7 f& j6 a; U* g% v2 f9 L0 ]#101=FIX[#101/2.]
#10=#10*10.
END1
M0

结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
' b* L1 G. R0 A7 ]9 M＃1=181.
, n) {& ~3 X! a) P3 z( l6 }0 d5 L# m1 L#10=10000000.
#31=FIX[ABS[#1]]
- M/ J# S6 r% c) z& J#32=128.
0 l3 C  }* A6 SIF[#31/#32GE2.]THEN#3000=200.
8 G' V8 k8 Q6 j; j1 u; |# aWHILE[#32GE1.]DO1
( D/ e% {& `7 S7 K#33=FIX[#31/#32]
" G# w5 H/ B" U- I4 x6 j, v#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
4 d7 q, a* V" ^END1
5 g4 b. M4 ~! O$ o: R7 UM30

" _6 w! M! v5 f/ T. y还是有改良的空间

bruceding

回复 2# 羅蓋仙

) F/ Y4 ^9 `' w/ R! g9 t
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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