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

羅蓋仙

. b7 \2 F" @: \3 P0 T- {十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
" `% g1 Y# _+ c  @8 ~5 M: b#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
! u: m3 U, y! X0 c2 p: Q$ [WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
4 |' S5 Q7 N4 s' ~, F5 l" T; s#101=FIX[#101/2.]
3 c; E7 O: D7 ^4 E9 \! F* L#33=#33+1.
END1
! K0 M- p% v& t4 U" |* c1 QM0
) g5 D: D- _5 e' M" |7 W9 Y
结果：
#501=1.(低位)
#502=0.
4 S% X) {5 S& Y9 k#503=1.
- @& ~5 U  K' x$ E) c+ g; C#504=0.
2 z( f+ h- y0 a#505=1.
# G. a1 t3 r: ~" M7 C& D#506=1.
#507=0.
$ z: R' E* B2 W& C#508=1.(高位)
8 r' X* s& `+ K7 g
1 S- w4 Y6 f; |  @& D" K
# P! y8 r( V9 u- x% D以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
3 G! i* u4 m9 Q, l3 a0 eWH[#101GE#10]DO1
#30=#30+1.
) ~3 s  U* R% r" f#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

, q# x( j" s* P
! J8 u5 C0 y2 `" }' `如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
! N! e4 E1 d$ N#500=0.
" S) }/ N! Q) R, V: L* uWH[#101GT0.]DO1
  U( T$ h. l1 T& A#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
  M9 b& c1 J! w6 u* d6 I7 @, t( IEND1
/ X) f/ L6 |# L  A# q; f* }# |! qM0

& O' `+ ^* u) s( ?/ A2 v- Q" B) @结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

/ E4 e6 W% I( W, O: b这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
6 \* s5 y: j2 X1 V6 _) n4 a8 y  t#32=128.
0 N! @- P/ ^& a4 C# @, |IF[#31/#32GE2.]THEN#3000=200.
6 i  r9 O6 V+ E# ?& RWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
/ Z  J  o3 j: [+ O) M0 [#500=#500+#33*#10
* Z& p+ |& j: p6 O: k  I#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
1 j  W+ U2 s8 V" H) _1 HEND1
) q# N& f5 C( dM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
, [( }" j  _9 B! y
* M- _3 ]+ r+ p4 A6 p( G
/ P) N0 f7 c, O4 t. J& M0 R    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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