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

羅蓋仙

, C" \7 m5 {! ]& t0 [4 P8 a
" t0 J2 L: @  L0 i  g0 D
/ B( r% W8 x5 d* P5 r十进制转换成二进制：
& |. u% f& N4 F! n! s6 `0 ^#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
* ]  b9 a% D2 t- b) L& W#33=#33+1.
- c8 s  d; z9 R2 lEND1
M0

结果：
# ^7 W: o+ G: x3 _& w#501=1.(低位)
#502=0.
( i; w' L9 m0 J( S7 {8 Y7 `. G#503=1.
4 c1 C$ A7 i0 Z! L/ e0 S% @! O#504=0.
#505=1.
: Q. B% h# e& H4 l/ v, `: ~$ U#506=1.
1 m) F) ]* z* o3 z1 @! H% X#507=0.
#508=1.(高位)
4 x2 |7 _! b1 G  d
3 s% T" W( p- a$ u4 ?1 G
. w# [  h) \* l$ \; z以下为10进制，想得知＃101有几位数的小程序
0 u/ _5 W- y+ M* m1 \- L#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
; J& \/ {5 v; o6 a; M+ P#30=0.
6 D) A) p* z# `- Z8 d- w7 uWH[#101GE#10]DO1
2 t% d' `# s6 J* s" t% I#30=#30+1.
7 z( w) V3 G; L% F#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

, l, p( K; P$ v# m& [7 D, X
如果嫌10进制转换成2进制，占了太多变量番号的空间
0 R4 f0 B! k3 Q- a; w& a我把它修改了一下
9 F  _! ?; X4 z5 w. b8 [) N' J#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
* U7 n$ {6 W. B9 n( m% OWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
6 G" r9 F8 ]+ k#10=#10*10.
END1
M0

8 P2 e' K5 ]9 h) Q& k" E结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
1 z- Y/ A6 B  ^6 a9 t3 H/ D
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
6 F, e) v3 j+ X, j#10=10000000.
4 b- f1 P  V& w* Q) g4 r3 r+ R#31=FIX[ABS[#1]]
3 r6 H) o# s6 ]( U% Q6 P#32=128.
' V" ^. `; a0 @5 Z" i  `IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
" X9 {+ ]- m+ E#31=#31-#32*[#33EQ1.]
% ^' c; Z. a2 L% U# g/ a$ \#32=#32/2.
1 Y1 o4 p% R- q; o; B* Z#10=#10/10.
. f) i4 C0 {8 vEND1
# i6 e, b1 C3 m& {! EM30

# u8 G% E! w  B. t还是有改良的空间

bruceding

回复 2# 羅蓋仙

+ L( p! W6 S7 c8 B) F2 g4 ~/ p: {$ c
2 y0 H, X3 O3 M$ Z$ N# T7 h    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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