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

羅蓋仙

% U. S, c% V1 W6 \3 [
( T, q# D- Q9 G8 y
7 o! D; ], v$ d* a* O' y6 s' d
十进制转换成二进制：
9 P% ]$ ~) t% ?0 b#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
. I+ ?, U2 T9 l( JWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
% n: V8 {  \, c* k2 q. D# ~#33=#33+1.
END1
M0

结果：
#501=1.(低位)
#502=0.
. z% j7 _3 q; R$ R' G* v# Z#503=1.
5 ?2 i: w/ O; ]/ N- q3 ~#504=0.
#505=1.
) B$ |7 \$ \8 ]( a6 I, y" c# G% p#506=1.
#507=0.
#508=1.(高位)
4 T7 A- l6 h/ E( @7 K$ x; w" q

8 F) H* X3 Y7 b以下为10进制，想得知＃101有几位数的小程序
#101=1234.
/ Y1 V' L9 o$ R& [; e#10=1.(用1去比→用10去比→用100去比....)
; s: I! P) o) ^7 D) n, j#30=0.
WH[#101GE#10]DO1
: l- H. W$ |  O- b, ^#30=#30+1.
3 m  w. Z! r( X+ d; }#10=#10*10.
# Z: p( d. \' j- \" h) ZEND1
8 }' i) S2 q9 N) r0 o* b  z#30=有4位数(#101有4位数)
" u: ~& r4 O0 J- C0 M" ^; [7 R: zM0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
0 u' P3 i3 D) H我把它修改了一下
" f  N% D, X% v7 |+ t#1=181.
#101=ABS[FIX[#1]]
! M; Z4 O4 P% e" @#10=1.
#500=0.
WH[#101GT0.]DO1
( h' _/ C/ s$ d9 }#500=#500+[#101 MOD 2.]*#10
9 e" L7 |6 v# Z1 b7 j+ ]#101=FIX[#101/2.]
( ^! d: C8 r$ B5 ?#10=#10*10.
END1
9 p  h% h4 Z! E, V& r# ]  |- [) jM0

( O* n) }6 k0 `" T( f结果：
' h: X, S- A# g; W6 V! Y4 o#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
/ }, h1 K3 F3 J7 ~  [
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
! i0 |, w# E- R. `＃1=181.
, A  m1 X3 y0 J: K1 V9 ?#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
0 f+ r+ U# j! t4 u, Y+ B( K0 _4 \IF[#31/#32GE2.]THEN#3000=200.
* @, k2 t+ |0 ]- ~5 h( z# @WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
( J' U7 F( s0 T0 p6 H#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
1 J7 I" T/ [: s: u$ ^M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙


: q5 w0 B7 W: b# X    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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