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

羅蓋仙

9 d3 [) c4 j! C# n) X
1 g: q5 f9 j) b+ E# T( o7 O十进制转换成二进制：
! P" o1 t* o; j" J8 U0 E#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
) u* d: F: h. t% P* W#33=501.(储存到#501～)
% \, q& M# p) D  Q2 {- f) }WH[#101GE1.]DO1
/ C, @3 W9 p% e& U#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
7 c6 r  {0 d2 m; ZEND1
M0

结果：
#501=1.(低位)
#502=0.
#503=1.
#504=0.
0 u3 s: q/ V) m% y4 c+ t$ }#505=1.
#506=1.
#507=0.
. _& h  L& \9 E: r#508=1.(高位)
" d* b0 |+ Y  M2 @+ Z9 A9 H% ~
0 p  ]) Y' Z* R: ~
以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
0 O) n# j! V, V/ U0 B; B4 iWH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

% q# _5 n) y7 ~+ p& x' @1 M; ]5 x: y) {( C
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
3 g0 Q% z% G7 e$ [6 m* u( Q/ w#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
0 T  v, Q+ z$ U& u! a$ P#101=FIX[#101/2.]
) A& \: F$ n) ^* {( O#10=#10*10.
END1
7 I1 F$ i2 F6 b2 `" n' F8 mM0
" Y7 h/ c% }4 v+ m; Q' \8 M* n* {
- [' W7 h+ x: O; j6 ~结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

: e! K# o/ j1 K! `% ]4 X0 Z这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
4 G5 B2 T/ q5 l+ w3 L# G2 N2 O#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
. I' e. F4 {* @! H# s#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
+ E& O) H/ |" Y' g5 x2 u7 [7 UEND1
M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙

4 P  K- t' s; L! p; G1 W
! P5 `* p: N9 r$ L    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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