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

羅蓋仙

) Q6 j0 l# s8 J2 F; t2 K

: R" X* s" T$ ~$ O. k
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
3 k, m& ^) c+ j: g" m: ~#33=501.(储存到#501～)
* I! H! I1 }8 C, Y1 ~. ]WH[#101GE1.]DO1
+ [/ m* ~# l7 A8 h  h5 W#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
7 W) Q* }$ n1 p! O. @1 m% E: ~0 O. I/ I#33=#33+1.
END1
* A; f0 J" F0 m+ @' lM0
9 O- Q4 l0 _. H. H7 ~
# F' k+ D, ~7 B% \6 G! \1 d结果：
#501=1.(低位)
2 o4 J/ r$ O9 Z" e7 P0 W6 [, h2 c#502=0.
' m: ?+ y( ?1 ]#503=1.
#504=0.
#505=1.
0 J5 s1 A  L9 x4 t, R  O#506=1.
#507=0.
#508=1.(高位)
' c4 H" D& ]# f4 Y% K) }
1 C* z2 n- R( e$ E/ k% r
以下为10进制，想得知＃101有几位数的小程序
) p4 V4 i1 f6 z% s  Q- g' T#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
* J( y1 n; |& S#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
- s* f6 E$ b: T& J/ U, Y7 V7 KEND1
#30=有4位数(#101有4位数)
M0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
8 e* H- }; X# t5 Z' b' \我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
' E% D- c  u6 J, h$ P" B#500=0.
: P$ K. P& O! i  ?* y, rWH[#101GT0.]DO1
5 l: |2 j) i! q% M6 d. A6 k#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
# b+ b5 O* G" CEND1
/ q/ y8 l( d1 Z" M, IM0
( ]  d0 D7 ?3 Q2 _+ |( p" G
2 a7 o8 z% C1 T结果：
. o  F- c8 |( J( E#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

, B  w5 F" ?2 Q7 M* f这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
. d1 V+ x! }$ `4 P/ Z( _" E#32=128.
IF[#31/#32GE2.]THEN#3000=200.
! k0 ], K4 P: O: a' @: b( F( p7 AWHILE[#32GE1.]DO1
0 M3 C: B+ |( }$ R# a% W4 p#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
$ J$ {( {: b* s! J8 |) ?; y( x" b#32=#32/2.
#10=#10/10.
END1
M30
% h( A7 f: ~4 I- \( [
5 a' D0 v( J7 P  ~4 V2 j8 E# @5 p还是有改良的空间

bruceding

回复 2# 羅蓋仙
! P) S0 q- g* c1 q- ]

    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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