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

羅蓋仙

十进制转换成二进制：
( J$ {) y% P4 A' Q; E7 o#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
0 l  @* U8 i! `1 B" h. J#33=501.(储存到#501～)
' e: u; T4 A" o; @! dWH[#101GE1.]DO1
' `: S/ m" j* c. h#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
5 Y( f, ?/ O# d3 p# Z- _/ C4 Y' U; TEND1
" s. U* z& ]1 EM0

6 J7 F' h7 Y) B  P' c/ y结果：
8 V( T# L1 y, _4 a3 S4 [$ l' j#501=1.(低位)
6 _. n* s9 K" o  _+ e; `1 K; r6 u  J#502=0.
#503=1.
( C1 Z9 v% p2 |1 J& n: ?3 P1 X#504=0.
#505=1.
# d" i  k5 z& H#506=1.
#507=0.
# H/ t8 ]- Q6 a7 M( I. G- b#508=1.(高位)
4 ?8 o9 P, V, n4 p- i0 p

6 N4 B, P3 G1 [& }: K: o以下为10进制，想得知＃101有几位数的小程序
+ T. l$ O% a" |( H( h; U* R* Q#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
: t" F7 h% Q, Q5 x#30=0.
WH[#101GE#10]DO1
( u& O. u* [8 Z# l) l6 A) e#30=#30+1.
$ B/ W/ k; O. a! |#10=#10*10.
! X3 V; \2 N. d& K7 WEND1
#30=有4位数(#101有4位数)
' H# {0 B! W/ jM0

羅蓋仙

2 Q3 m2 X# J. s7 v如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
7 s9 F. o/ j5 v) _) ?# q" ~+ N#1=181.
% n( B# B9 O9 [#101=ABS[FIX[#1]]
#10=1.
#500=0.
) @7 J5 j. E0 v. @, RWH[#101GT0.]DO1
1 J$ L) f9 l" k#500=#500+[#101 MOD 2.]*#10
: w& H: J8 H- B2 p8 v#101=FIX[#101/2.]
( N# o6 [$ e. \% _: o# O" r#10=#10*10.
& K8 A$ Q# F! s7 o5 ]END1
4 B# }0 N  v# y( _- r' v+ VM0

3 z4 K3 e8 m2 `; d& u& A7 R结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

; X- r; k( O" x" a. {! o这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
9 V6 D; f9 ]5 M* k＃1=181.
2 V" T+ D. z. p% w, N2 N#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
& O% m" K4 f+ h3 V7 q/ l: D3 S, fIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
  c9 l8 p$ e2 Q7 a0 V#33=FIX[#31/#32]
. U( ]) b% ^- B/ v8 d#500=#500+#33*#10
6 ?+ n0 x1 p; ^6 g3 e/ C' J#31=#31-#32*[#33EQ1.]
; J. j2 K0 @" K& W. v#32=#32/2.
0 q! f: G: h) F  I. U#10=#10/10.
END1
3 `3 Z4 @/ o  T2 ~9 WM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙

3 p/ y; ^, {$ t4 N+ s1 {( h7 g
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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