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

羅蓋仙

$ L' q' ]9 K5 t& g十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
0 P) \/ q# v" e) Q#101=ABS[FIX[#1]]
) \; z, U/ X/ e0 V#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
3 g. i. Y) \4 h; I' D/ g! u# nM0
, ^, o" b8 `4 B' c
1 ?' n* r8 f5 l结果：
% C, O& }' B: ~7 A$ `9 Z#501=1.(低位)
- O; `2 J7 `$ ]) J#502=0.
#503=1.
2 S& x6 f# B9 _/ K: p9 x#504=0.
7 l! y* J3 n6 q# {, ?6 ]8 T& n#505=1.
0 M) o, ^/ f7 |) l* Z#506=1.
#507=0.
#508=1.(高位)

8 D6 w( f3 g3 q( W  {6 E
以下为10进制，想得知＃101有几位数的小程序
, q. S  L( I) K) I) Z2 C) ~#101=1234.
: t8 O" z" N3 Q#10=1.(用1去比→用10去比→用100去比....)
#30=0.
# M1 `+ ^1 M9 B8 {# e1 j# ]' RWH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
% E& ^8 q8 ?7 u& ?5 AEND1
#30=有4位数(#101有4位数)
M0

羅蓋仙

* i5 t2 L6 g9 E) @4 \9 ?
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
1 _, T# H& L. Z* Y* [#1=181.
3 B8 D! }  v9 D: u#101=ABS[FIX[#1]]
9 s0 u" m8 r- n! P#10=1.
/ e! y( Y  }4 `; A2 Z# e4 F7 c8 u#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
( }# e, u: |( J# y2 s#101=FIX[#101/2.]
#10=#10*10.
END1
/ j, R4 M' B: |# \/ ~$ g3 d; lM0
" V; Z6 B# T  _  U9 S
结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
$ x* Q6 l6 Q6 r/ f＃1=181.
) I; f+ @0 ~8 w5 _& W#10=10000000.
" d( m3 l! i; ~& [#31=FIX[ABS[#1]]
#32=128.
1 |6 P9 U* g7 |/ \) x* AIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
; C, m1 v$ G7 B9 N! {+ R3 I#32=#32/2.
#10=#10/10.
) i" |8 p! R8 z4 }4 ]4 y! I( B, u8 XEND1
M30
' M6 f* H' y/ u- t- M' ]
  j6 p$ R2 O7 U6 d; y2 f8 B: E还是有改良的空间

bruceding

回复 2# 羅蓋仙


    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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