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

羅蓋仙

. `* Y8 g5 y1 F6 \+ b! s
, F% T& c; v+ H& h& H( a
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
9 f" e0 T/ A( z1 Z# }" ^! C#101=ABS[FIX[#1]]
7 a3 x. z) @- z( m8 @#33=501.(储存到#501～)
# z( ^% T. O- A2 r& @WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
1 h; K& m! T+ [  B0 |#101=FIX[#101/2.]
#33=#33+1.
5 C9 u' ~& r" X0 x+ ?! k2 m& GEND1
M0
4 R6 f8 W* Y+ a! F* [& b: G
结果：
#501=1.(低位)
#502=0.
& W3 F% i+ d# m% P#503=1.
& f0 u# Q" a& }( n! C#504=0.
: X; ]$ M: e9 y, O: {, d* i#505=1.
; P2 n" a- a: E! |. }5 ^#506=1.
/ t9 L9 }+ e- T9 q+ w9 y' A#507=0.
#508=1.(高位)
: L" l- S! E! ]! W
, E& F" h, K- {- [2 t1 t" Y+ E% F
4 [7 Y* Z" N. ~# l- F1 m以下为10进制，想得知＃101有几位数的小程序
8 C  y# \& f4 K! U7 s# Z+ X#101=1234.
( Q6 a! R* Z" I! |8 B#10=1.(用1去比→用10去比→用100去比....)
. Q0 e5 s- B( P- r, P8 v% d2 t#30=0.
WH[#101GE#10]DO1
#30=#30+1.
. \& I' j: M7 X+ D) V#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
0 ~3 \$ |3 _  u5 d#1=181.
#101=ABS[FIX[#1]]
0 `8 x, }0 K( r#10=1.
#500=0.
% c* S/ D7 w6 hWH[#101GT0.]DO1
, ^* \, [# Y2 `9 Z6 G" r#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
END1
, T; F1 M1 O& R" ]5 uM0

结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
# I& X' r7 b3 [6 j! ^+ ~- e# t
' B! m# w; _# D) D7 N/ A' t这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
6 _8 X/ Z3 P& m#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
& l. L$ Z% L! U, Y9 h% eEND1
, U3 v: R# Y* H0 IM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
) L0 v8 U& X: T. S" L( R/ O

( i. j( U8 B' v) L* I$ f& I# }    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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