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

羅蓋仙

* B& K. {$ Y6 i, o( c! k
( Q+ ~0 S: }+ U6 E
十进制转换成二进制：
; p) b5 _6 _# g) s#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
  M: s5 R: U7 `1 n#101=FIX[#101/2.]
! P; U5 P1 h; D/ a#33=#33+1.
END1
. j; @7 I9 O0 l/ {- kM0
; Q0 v) |1 d$ f3 Q9 f& z3 N6 ^/ k
( d" V% @: R$ H' ?7 u4 y( v& @. Y结果：
#501=1.(低位)
#502=0.
#503=1.
1 s3 G; A2 c! w$ |& V3 D; ~#504=0.
#505=1.
#506=1.
#507=0.
#508=1.(高位)
8 `6 H1 {. M$ N( U6 k/ H7 u

& l. _6 z4 N* i' |0 N以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
7 r3 [6 \) S8 a, P/ P% [: OM0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
8 B$ t+ o) H* E1 c3 o5 L0 m$ D#1=181.
#101=ABS[FIX[#1]]
" |6 D0 j: Z4 H! @9 Y9 e' R! B#10=1.
9 x" r( {% G0 f/ X& T#500=0.
. \" D" Q9 H( h( g4 [WH[#101GT0.]DO1
5 D/ ?* s) P* A* U; d' \5 d# T! `#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
9 ]4 F4 a) L6 F. q5 H: FEND1
. a8 R* r' d  j, \  FM0
  g+ N! E! h+ ^
8 W0 r! }( T) a  D. a结果：
/ A% Y( O3 v( S; H0 `+ |#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

0 |" d  V* W, i; C0 L1 A这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
" ?$ Z* [8 Z$ c, W+ k9 b#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
5 s% X0 B' r' TIF[#31/#32GE2.]THEN#3000=200.
" A( _& k* q1 @1 e* fWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
5 J, Z8 {2 s+ V- {M30
& h( Q& E- e. N) u) \0 |7 U
还是有改良的空间

bruceding

回复 2# 羅蓋仙


$ V6 B2 A" s' d$ e. q    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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