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

羅蓋仙

! r# x. T: @- L) ]7 T# u' q
0 j( b1 M0 A0 y/ S5 p

十进制转换成二进制：
0 D/ R" P8 b- i#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
8 e" H- Y: D# P) j' f. i#33=501.(储存到#501～)
) P" Z( v: h, A/ t0 M4 ~$ v/ yWH[#101GE1.]DO1
: I! N: b% s4 l3 B! g! R& V#[#33]=#101 MOD 2.
8 w' Z; B5 u( C4 s' a#101=FIX[#101/2.]
#33=#33+1.
+ o4 q: B$ b) X$ e8 ~: Z  _END1
M0
5 [5 u& o+ C; @2 g" `: w' D
结果：
9 i- Y; `& P% Z5 Y7 ]7 t2 F* S#501=1.(低位)
3 g8 \  P  j+ B- Z. J" D#502=0.
#503=1.
#504=0.
* c. }: @, Q9 H# O( B0 [8 b2 L#505=1.
- p/ f5 m/ r. B0 S#506=1.
0 g  M$ P- e4 T$ x1 W0 N#507=0.
1 w6 P* A2 I) d3 O) u' s#508=1.(高位)


以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
5 {, G  Q& A" h; R6 T/ u0 j( b. L6 fEND1
" F" x: F" Y1 x* f& s. Z: q0 I#30=有4位数(#101有4位数)
M0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
5 p" r! ~9 O" L0 A+ v: S9 B* A我把它修改了一下
' o0 I* K: u- r+ G* P/ x#1=181.
, V6 u* Z1 W( c+ k/ S#101=ABS[FIX[#1]]
5 H6 `. k) |5 O1 H# v#10=1.
#500=0.
WH[#101GT0.]DO1
! }, L) t' z, C#500=#500+[#101 MOD 2.]*#10
0 `3 w$ O$ l0 f7 F! b' B% i#101=FIX[#101/2.]
#10=#10*10.
END1
M0

6 _6 n: |' m! j& x结果：
5 @6 _, B' Q& L. a' `#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
, r3 f# x* J4 L; @9 l) H: B& \1 R7 b＃1=181.
#10=10000000.
7 F# S' a; [* V/ m  K; Z- F#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
& k/ W4 H8 h  E" [) l7 N1 o/ B, a#33=FIX[#31/#32]
#500=#500+#33*#10
) x' h* F& M/ d: z# r6 d$ N# A#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
; g8 p0 g- B% K. |- o: MEND1
M30
" N" m; S7 e2 c6 E1 S
还是有改良的空间

bruceding

回复 2# 羅蓋仙


& a$ Z4 X& x6 E0 m- N7 [    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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