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

羅蓋仙

1 y- s6 A3 e: _3 {9 Y6 i7 B% b
( v) z& r3 ~" o/ ?2 z; o8 E. d十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
* I6 K5 g5 S& F# L& n- H- |; Y#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
4 [- v6 [! m+ `1 T#101=FIX[#101/2.]
#33=#33+1.
& ?* }$ r: N$ l$ H" |END1
( W! C$ n" o6 {0 h7 D( o9 XM0

  p* [% d. t( ~- Z8 K结果：
7 z0 p: e+ p2 Z; v#501=1.(低位)
/ I1 _5 g5 z) ~# F+ x+ ~#502=0.
7 G; V# G0 [: I1 ~+ o#503=1.
#504=0.
/ i; `/ E8 M& W! V* z  A! q  s#505=1.
#506=1.
  r) X& [% h7 x1 d- E1 E. U#507=0.
% D: I7 ]$ F. H5 B# H% N#508=1.(高位)
9 p' b& V5 {) w4 H. g

以下为10进制，想得知＃101有几位数的小程序
#101=1234.
5 U! g( O5 `! t+ X3 z#10=1.(用1去比→用10去比→用100去比....)
6 K3 Q0 m( W" F- B#30=0.
5 k+ B+ V+ u( {; fWH[#101GE#10]DO1
#30=#30+1.
3 ^1 ], m5 Y+ d#10=#10*10.
* E" z' H' m8 ^  ZEND1
' v  {3 x( Y+ X, ^( [* |#30=有4位数(#101有4位数)
M0

羅蓋仙

3 F1 a' y3 k  i5 q; B) c
- H9 i( l: }; g7 s2 q/ u+ W/ E如果嫌10进制转换成2进制，占了太多变量番号的空间
4 W' j* @; X* b6 \2 q3 a- e4 {我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
3 ]' M% B9 N) ^$ G$ i: EWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
5 E' [% z5 L! `- ?7 v! O- [#10=#10*10.
! I6 i' L4 a6 [3 Y! Z+ u; U0 g! AEND1
M0

8 y7 ~/ t8 q/ P; p6 X$ W结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
. q( G6 `0 O( X
( j0 q' P% q9 [! j这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
" G0 j( n+ c5 Q/ R$ _& g3 _. S+ s( Y＃1=181.
3 q2 `$ N$ A+ O#10=10000000.
#31=FIX[ABS[#1]]
7 s3 W7 B  m# ^" f& h' C8 f% y( r#32=128.
IF[#31/#32GE2.]THEN#3000=200.
% g7 T2 A7 X; n$ ?, Q& T- d, rWHILE[#32GE1.]DO1
% k$ |* |2 e2 P7 G& a#33=FIX[#31/#32]
8 E; m$ l6 M& k#500=#500+#33*#10
' k6 Z7 O, Y- i& ^9 T. d#31=#31-#32*[#33EQ1.]
#32=#32/2.
; [7 X6 N( e5 G- ^7 v#10=#10/10.
END1
M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙


    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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