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

羅蓋仙

. a! s/ a2 \. f, \& j- c; |
/ k8 f" q$ p# U2 E; B% b
2 o/ C9 o, j( H" N6 ~  d
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
3 c8 T" h! C0 U  ~. P2 s$ gWH[#101GE1.]DO1
+ o! t; l; s( z#[#33]=#101 MOD 2.
* R: C% L. D& `#101=FIX[#101/2.]
#33=#33+1.
& D; r2 W# ^' Z) n! b3 r5 UEND1
: h. ~" O% V0 X( C2 zM0
( N. @7 z4 ^9 v/ E# c  W2 p
8 G( E; m1 F( L结果：
#501=1.(低位)
. o$ ~, V5 o: R( o, y) e) `#502=0.
#503=1.
3 i. {' U+ F! `/ b" x+ n6 }#504=0.
0 }: f8 n3 b2 k9 l9 A2 J#505=1.
#506=1.
#507=0.
! k. i# H. {# x: _. @$ q/ Q( ?#508=1.(高位)
; l  B: G; n2 q) W0 `" A1 ?$ j: o
8 w% R" T) x' f, f! ~
以下为10进制，想得知＃101有几位数的小程序
0 a6 \3 P; g/ j5 w#101=1234.
$ v# B/ _7 A5 ?6 Z: h# p#10=1.(用1去比→用10去比→用100去比....)
5 B6 I/ k) s9 L) s#30=0.
WH[#101GE#10]DO1
  K6 T( U! F2 ?#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

) {' \" T- |! t- ]" C2 D如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
- v( Q) C/ x+ u" ~  c+ U#101=ABS[FIX[#1]]
2 j" @. M8 b( j$ e#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
$ v6 c+ _- c( X0 r, s#10=#10*10.
END1
0 w$ g$ y' ~& C9 [* P$ z1 `, }M0

5 b6 B0 P7 w6 _# Q1 C, \结果：
( Q) ^) n" w+ K6 Q8 J5 z#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
! d, I0 C) Q( E+ y# B9 j5 l
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
5 b) P0 E/ o( X# I. Q% U- L" Q＃1=181.
( i2 \  }2 i) n( ]7 Y#10=10000000.
" C4 d1 m& q4 @- ?7 R7 R# Q' o! X#31=FIX[ABS[#1]]
#32=128.
/ C2 Q- F. J( q# u1 L4 W' a5 mIF[#31/#32GE2.]THEN#3000=200.
( @% x: Y1 V- `1 SWHILE[#32GE1.]DO1
: g; U7 G' j" i6 G+ f2 i. n#33=FIX[#31/#32]
% W4 l6 A8 Z! w+ i+ ~#500=#500+#33*#10
' O+ v6 v1 p5 p2 w) B#31=#31-#32*[#33EQ1.]
1 [: N1 L1 o  h. `. V7 q; {#32=#32/2.
#10=#10/10.
END1
, b% b* L4 m  J, Q, QM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙


5 K5 K0 H, C7 Y) N. ?    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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