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

羅蓋仙

* {8 [0 L: n4 ^, _" R$ _$ s2 D

* l$ G0 i. B  D# P2 O6 ?
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
  B- K- Z1 V( Q; Z#33=501.(储存到#501～)
WH[#101GE1.]DO1
# L, R- e8 p$ I- |#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
M0
" O- E! O4 D/ H$ _1 C1 @7 Z, @4 Q
3 t9 u, a9 g# g- [. V2 s& X结果：
#501=1.(低位)
#502=0.
9 |. J/ u7 b! |& F/ e, Z#503=1.
, a& O( z9 D3 e' }) n# A+ L0 j#504=0.
+ f( t6 b# m6 \0 e#505=1.
1 a5 f) _6 N! X$ |/ e- E  n: a& e#506=1.
#507=0.
) s; n& I; w) w# I+ B: g#508=1.(高位)
6 _2 V9 H( b# y. u( ?4 D
6 f& ?9 E/ G4 U' A" q
以下为10进制，想得知＃101有几位数的小程序
5 B7 m' m( m) {  J" Q$ o3 w. r#101=1234.
! E0 v) Y+ O: X7 C1 b( [/ K#10=1.(用1去比→用10去比→用100去比....)
#30=0.
3 s0 V, [# O  q( ~WH[#101GE#10]DO1
  Q6 o" [7 N3 Z5 s% o#30=#30+1.
, D% i8 \  `. w0 u1 s5 J6 G#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

" y5 ~6 x0 l5 T+ R
如果嫌10进制转换成2进制，占了太多变量番号的空间
) X( X9 i& M  f7 Z* K+ \" `我把它修改了一下
9 L) _$ v+ h2 `  V# [6 d6 E% y#1=181.
0 N0 n1 z, x7 Q, E, t6 W#101=ABS[FIX[#1]]
#10=1.
1 Z4 }/ f& y# Y7 R6 `( c5 q#500=0.
: s$ t  P8 ], H9 W8 f4 c) IWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
" |% K: Z3 K$ o5 v$ U. GEND1
M0

% B5 p! j7 s/ x* ]结果：
/ h: g; ~& r7 K5 i( \9 r8 {#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
$ T/ `# Y2 o6 O0 g: ?
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
; I$ z+ h/ |$ z; F# l$ j#31=FIX[ABS[#1]]
#32=128.
; m: Q) D. ]6 W& K/ E# _" bIF[#31/#32GE2.]THEN#3000=200.
3 a9 A$ N9 C" j; L7 x3 m( JWHILE[#32GE1.]DO1
3 G5 w) x. {1 y- e. B' O) F! @#33=FIX[#31/#32]
#500=#500+#33*#10
+ [, ~, |. _! s$ W- h( [( n3 ?#31=#31-#32*[#33EQ1.]
#32=#32/2.
- e, s! e( e3 G2 q$ J$ e! u#10=#10/10.
END1
+ i9 m* `! H1 Y' HM30
% x& d& N0 n# p
+ q0 l& ]* J; B) o! o4 i+ j还是有改良的空间

bruceding

回复 2# 羅蓋仙
& z* V: u+ Q; p. @, V3 @

    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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