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

羅蓋仙

" L# }% y9 w5 c4 m5 |
, N( y0 _9 w9 a9 L5 m
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
+ p9 m" o! i6 Z& k, y: X1 g#33=501.(储存到#501～)
WH[#101GE1.]DO1
" e+ L) T3 V2 t7 h5 R#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
M0

结果：
#501=1.(低位)
#502=0.
#503=1.
! f- d5 H; d5 w  U) z' j6 W#504=0.
#505=1.
  x* y2 M" {- F& p9 ~#506=1.
# T. i+ |+ i! y/ r#507=0.
#508=1.(高位)

8 I; P  r2 L; ^) Q  ~* f
$ w% r& u  {, K" |! W以下为10进制，想得知＃101有几位数的小程序
) U0 }+ b8 m( _  j, w6 C7 }#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
' P. z% F7 ^7 F, y! G# w#30=0.
WH[#101GE#10]DO1
2 T" ^; _; q+ [3 u  l! Q#30=#30+1.
) b  k( V$ {) Z" V#10=#10*10.
END1
9 O. y8 [; n! d$ h#30=有4位数(#101有4位数)
M0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
$ Q3 i) E4 U" t3 }5 P  m我把它修改了一下
  \8 u' c7 c* p; _, o; v+ `' c3 [% ~#1=181.
$ {7 t% `0 Z7 d7 i7 e1 E#101=ABS[FIX[#1]]
#10=1.
#500=0.
+ A. L3 T; C* ?( ]1 ^5 V4 cWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
+ j' W4 A2 Y. s2 ~#10=#10*10.
END1
M0
- C7 K6 O0 s: L6 W
3 [+ C/ l/ W+ F0 Y/ R+ M结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
- L! y3 Z5 E. c; s( [7 x
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
+ b+ a, j) V% @＃1=181.
#10=10000000.
% M" Y- o3 s( L/ j#31=FIX[ABS[#1]]
#32=128.
+ @4 _) H- w  C. v  @IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
6 p8 O4 {. ^6 z7 T+ A$ E( {#32=#32/2.
+ {! I3 [  p: _9 o#10=#10/10.
$ X2 |9 {. F, G% z% DEND1
# a7 K7 e4 _' L3 V6 Q9 @M30
7 L% n* A' ~# v4 }' a. F# ~
/ j: G1 N) e: I1 J还是有改良的空间

bruceding

回复 2# 羅蓋仙

9 v4 z" _3 q5 O$ j, N
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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