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

羅蓋仙

. X3 V% V' k6 U& @  {# V% h

7 q6 f. A$ b" ]& \% \十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
" k0 G* A$ _6 U9 j  H  C; z; n  F  B#33=501.(储存到#501～)
3 |+ ~3 S% m% {7 tWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
4 J' U9 S: U" _8 M! A#33=#33+1.
END1
M0

结果：
#501=1.(低位)
0 t7 r; ~( H' ]- |! \( \1 d#502=0.
#503=1.
7 W& Z% `' e) `#504=0.
#505=1.
#506=1.
( Z  P' r1 k5 f" t3 A* p3 A#507=0.
  P3 L9 a" O6 t: J3 w' {#508=1.(高位)
$ ?  C, [$ u( I7 m9 g/ T" M
7 W1 W: s" Y4 W7 A$ i! t- w3 a4 ~
以下为10进制，想得知＃101有几位数的小程序
* u! j* o5 [4 _; U9 D9 O5 g5 M: ]#101=1234.
# n0 c; ~$ i, G9 J" X5 ^( }#10=1.(用1去比→用10去比→用100去比....)
: e' ~" \2 r" d& p# g8 D4 t, C9 m#30=0.
WH[#101GE#10]DO1
#30=#30+1.
+ c+ h+ {& Y+ g1 |) y, [#10=#10*10.
END1
#30=有4位数(#101有4位数)
4 V, x! l% d$ \M0

羅蓋仙

8 Q" O+ l) v! a. t0 H  b
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
) s: t1 u# i7 ?0 N; f#1=181.
, G! e3 e. O& ?% }#101=ABS[FIX[#1]]
: Q4 `' L) h6 `- U. m#10=1.
6 b* m. \6 C9 A5 G: L/ i% k; V#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
. S# W) ~8 l" g9 J- z7 n#101=FIX[#101/2.]
' H( ]. y: _4 n% o$ w4 r#10=#10*10.
END1
M0
& m- g  d# |; D; S; ^) W
" y- S* Z+ U3 z: L9 f结果：
9 a4 [5 N( \! G2 [4 E: Y#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
& O  u. _  H. E
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
7 ~+ E. d7 B( T  l3 @＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
/ J, b" G6 ]% ~IF[#31/#32GE2.]THEN#3000=200.
# p. C0 B4 v8 l5 v1 vWHILE[#32GE1.]DO1
8 |+ C7 d7 |% ^#33=FIX[#31/#32]
#500=#500+#33*#10
) G+ i  U0 h7 f0 [#31=#31-#32*[#33EQ1.]
" J% o9 z1 O& l4 c8 H$ G#32=#32/2.
# e% W- X' f* D' G$ i3 {#10=#10/10.
8 x' d  I9 c7 X* l' `3 EEND1
M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙


9 R2 D0 R; V2 @9 E) [  F: y! @8 Q    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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