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

羅蓋仙

* E8 ~" c- L( f3 B5 {

! z2 ^* F8 N( l( Z
4 c6 m/ x  |; D3 }/ h十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
5 t0 w- G% W, c4 f#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
1 i4 Z: Q6 Q. X$ H  F4 ]4 K#101=FIX[#101/2.]
#33=#33+1.
END1
M0
* K3 ^. P1 _8 z1 l; f# Q. M/ n+ `
8 J, q- V! i( @6 O. D: F结果：
+ T+ s2 E0 u9 [9 a4 v6 k3 b#501=1.(低位)
) L9 o" M. f$ n2 f" o, _- D( b& `#502=0.
/ p) `/ E* X' q: i  A! X#503=1.
#504=0.
#505=1.
. N; p7 c0 U; o#506=1.
#507=0.
#508=1.(高位)
+ G! E# Q, Y7 y3 ]
* T% l, z, _& B1 L
以下为10进制，想得知＃101有几位数的小程序
+ f: p* |& L! f; W* \5 H. f; x, _#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
3 C* F+ V( w% v# j3 o) O" A# b6 aWH[#101GE#10]DO1
#30=#30+1.
; a; \. U* g' G0 C( G* @" ~#10=#10*10.
+ t& c" i# A, f( zEND1
% ?- R' P& c1 l* z$ f5 g# `# c6 t* r#30=有4位数(#101有4位数)
% C9 o" l: P* [8 mM0

羅蓋仙

: L# y: g0 K" Z* h, B6 ^
  k# |/ A1 w; |/ L如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
) H) g2 T- {: ~- ]#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
1 l3 |1 x3 t5 P7 F$ b. K* E3 @. J#10=#10*10.
END1
M0

结果：
0 e2 p2 ]3 P- e#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
& }8 @' @* Y$ G
; ]4 m( ^0 `% k: T这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
) _5 H" h4 d" A) E5 o＃1=181.
8 a! j9 o- x5 h  O2 q4 x#10=10000000.
4 V& t2 L& a& v6 x#31=FIX[ABS[#1]]
#32=128.
5 q6 b& g9 x8 d# h1 R1 YIF[#31/#32GE2.]THEN#3000=200.
; V8 t( X8 a% o- ]: H  r7 @WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
# z8 o$ i* [2 i# t" Z2 m#500=#500+#33*#10
( ?& t# {; ^- m- y#31=#31-#32*[#33EQ1.]
8 R8 ^3 V* M, m1 t. o( ]" I: [#32=#32/2.
% P) c9 E8 o( ~% i+ q% H  s#10=#10/10.
  |0 b5 W$ k& |  C, S8 q% j3 |END1
6 ^; c$ N4 ^0 C* _M30

8 e5 ^( B+ j3 b; \还是有改良的空间

bruceding

回复 2# 羅蓋仙

; `! A) w9 c' ~1 P$ ~
) u: Y; g! n) ?5 z    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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