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

羅蓋仙

" T1 [! L$ e  {! t
1 M3 a( _, s; W0 w$ b: s5 U7 m
十进制转换成二进制：
8 T  i! ^+ {6 X$ o$ e: r  M! K#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
# w1 Z( o* p$ O6 q#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
1 l4 `& \5 ~( y#33=#33+1.
END1
M0
9 a3 E' w8 @7 l; t  [
' b1 O6 u" H5 s/ s$ e7 J: N% g结果：
#501=1.(低位)
9 m. `1 L' L! y* S. m1 j* H' X! P4 r, f#502=0.
#503=1.
#504=0.
  S& k) b6 A- _* h$ ^2 J) w4 H: J#505=1.
#506=1.
$ o2 V$ B0 d" p- D) Z#507=0.
#508=1.(高位)

& L( [% B( f7 v
以下为10进制，想得知＃101有几位数的小程序
6 |5 z/ U7 [- n3 T2 u  W#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
9 o+ |) L4 r/ l% o#30=0.
WH[#101GE#10]DO1
6 E" g# r5 c" [# C#30=#30+1.
( l) k$ U. `# q#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

& R9 J! _% W  M* B) E! K8 a
& R: r" y- |8 `, J1 _  L$ l. O如果嫌10进制转换成2进制，占了太多变量番号的空间
, R: u! q! H: Z我把它修改了一下
#1=181.
! X1 A" H& v" m, S8 I#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
END1
M0

结果：
: V& A! V% k2 N( O, L#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
3 ~, }3 e3 g) _' {: X
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
4 s, l3 y, ?4 U  X0 d/ W6 V9 z* i#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
- G- _1 R- P! X; A: I7 j3 w1 y#33=FIX[#31/#32]
#500=#500+#33*#10
" c3 |8 D( Z6 K1 ?% V#31=#31-#32*[#33EQ1.]
#32=#32/2.
' V' M( ?8 l4 o3 A* Q/ B#10=#10/10.
! y4 A4 `8 r6 HEND1
9 F# j+ p; ^2 H* [* g3 X. d) |M30

- D) n3 ^9 f. `: T) ^! S5 k7 d: U还是有改良的空间

bruceding

回复 2# 羅蓋仙
4 A; S3 s- g- ]8 m0 l
7 v: v6 y' U. C4 s; B9 h3 K3 p
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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