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

羅蓋仙

" @4 l  a- W# Y2 R% o0 U$ c

" P* N7 M! L" t9 ^# x% F9 O2 v
/ F" q! W) I* k6 ?* C+ ?十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
! f+ P" |4 r, C% ^8 g1 `- `; }$ f2 Q#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
: q% ~6 b3 S8 J, M" q" LWH[#101GE1.]DO1
5 d: l+ P4 a: c* a& k- ]#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
  ]( Z+ s+ s0 U8 ]( GEND1
M0

结果：
$ _0 q+ Y" w! }7 B#501=1.(低位)
#502=0.
7 P0 `; b3 D1 y2 }: \#503=1.
7 Q  q6 W& s; p6 q#504=0.
#505=1.
#506=1.
#507=0.
( S7 j1 Y8 A8 `5 P. T7 @#508=1.(高位)
+ h! E" r* d& [( U+ G% p( Q) B9 v6 w

6 b1 Y; j0 S6 ?+ |" u) e1 L以下为10进制，想得知＃101有几位数的小程序
7 g7 N. Y& m8 V  \/ [5 w# D) w" f#101=1234.
2 R$ ^# M* s( p! F0 Z" {1 {#10=1.(用1去比→用10去比→用100去比....)
#30=0.
% t$ \2 `) K: K4 q0 B. kWH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
( P' f  n5 F9 }1 F#30=有4位数(#101有4位数)
! s: A3 u! m  r4 b  ^" xM0

羅蓋仙

# P9 r( P+ r4 E( N, e) i# I
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
9 c/ p8 o( `% n3 g#1=181.
#101=ABS[FIX[#1]]
#10=1.
0 m4 Y8 Y" |0 V$ F5 t2 ~#500=0.
9 {' \( V1 N5 HWH[#101GT0.]DO1
0 c6 C" `$ N) \3 j' p) y8 Z* J  i#500=#500+[#101 MOD 2.]*#10
3 ^5 _* r/ q, s' t! H#101=FIX[#101/2.]
#10=#10*10.
END1
$ t2 u0 Q7 v6 x9 a3 i, [/ V7 n9 sM0
- _, |8 ?. A/ B  ^! r/ Q9 {
结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
* C* Q4 h) I- e" C, ~! m2 Q0 r
/ y: Z% v& _9 X$ E& N: I这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
8 x* M! L; Q0 c' f" T4 K4 h#10=10000000.
#31=FIX[ABS[#1]]
6 |9 z' @- b; j$ {$ X8 Y% S#32=128.
IF[#31/#32GE2.]THEN#3000=200.
3 G  Z8 \5 z# E) T/ e1 d; G2 L  ~WHILE[#32GE1.]DO1
/ ^# j8 N2 U" G4 x2 v  x#33=FIX[#31/#32]
7 ~9 ^; v8 v8 u: _( Q#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
' @$ N" ^1 V* o" C  E5 b#32=#32/2.
#10=#10/10.
END1
M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
% W6 c  G( m: c+ Q

" O/ e. I/ o: x5 b3 f    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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