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

羅蓋仙

& V1 V1 m5 ^* V, F! ~

5 u" t0 t0 L0 s6 X. S/ U: B# D
9 h% c) o! _6 M* O十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
/ \; j, w* N/ F& H#101=ABS[FIX[#1]]
3 x' f( |. P+ p#33=501.(储存到#501～)
4 ^/ c6 ^5 |) N; g! uWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
/ `5 A7 {' s' Z& [  W2 s; j" a* z#33=#33+1.
. i! H2 y$ s4 C- Z6 E" w5 wEND1
M0
" D- Z0 ~( _/ m9 T, h
结果：
#501=1.(低位)
#502=0.
. G7 t! X3 k1 y) m& F' ?#503=1.
#504=0.
#505=1.
* S! f$ o( x* |' r8 t9 p6 L0 o#506=1.
2 |3 R  u% M9 I#507=0.
#508=1.(高位)

* F+ O! g2 `/ Z+ k; d- y9 P: |& v
以下为10进制，想得知＃101有几位数的小程序
# q9 X3 p0 Y: X* A#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
) ^/ C+ P! k5 Z4 I#30=0.
+ _, t& H; C7 C+ y! g! O! {, Z3 RWH[#101GE#10]DO1
#30=#30+1.
, M4 i: p1 |8 z. ~( a#10=#10*10.
END1
, u$ [/ r6 K' |3 f  O) r! t#30=有4位数(#101有4位数)
M0

羅蓋仙

: S" Q! ], E9 K0 Z1 L6 e
3 }8 ~" y, ^+ A$ g6 ?如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
4 Q9 K# A. h2 u0 y9 B#1=181.
8 E! L. g5 Q0 a/ c" z* W4 y4 Y( {#101=ABS[FIX[#1]]
#10=1.
#500=0.
4 r) ~- P* o1 n0 w: d: R. hWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
4 ~& x: S$ U% o+ J! p$ j#10=#10*10.
2 \& N9 w8 v5 K4 D: k+ D$ AEND1
M0

结果：
( ^" X' o& Y* n# _3 _#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
1 y; t$ M; f& q! C( d
/ s3 [! H5 l+ L9 s8 n3 B$ F这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
) Z6 o! `- l! ^% l" p＃1=181.
4 i, u6 Z( ~; a' S4 C1 [#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
' z6 Z' {9 q7 U4 S#33=FIX[#31/#32]
#500=#500+#33*#10
& U( ]0 A6 a* s+ c; H" y#31=#31-#32*[#33EQ1.]
' P" h- [: B0 Z#32=#32/2.
#10=#10/10.
7 g# x9 V! B% j5 f7 _1 r, nEND1
M30
8 o% ]% a8 q, [3 L
& J% {3 O0 z7 p8 a" X; B# F4 m* ?+ B还是有改良的空间

bruceding

回复 2# 羅蓋仙


& A2 S4 h1 r+ x* K$ z    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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