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

羅蓋仙

+ L: _0 V& z: F


十进制转换成二进制：
7 E! e- X; r. ]#1=181.(欲想转换成2进制的数值)
; m/ l9 z0 v( y4 X) U7 E# S#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
0 e8 l0 p  V2 i5 h3 h6 |% fWH[#101GE1.]DO1
; s0 L4 O) ~3 C5 l#[#33]=#101 MOD 2.
/ t# a; V5 i0 c* [1 j#101=FIX[#101/2.]
+ L7 w1 x8 I! u: u# N; s7 \* \#33=#33+1.
/ ^/ m; B2 t  t2 g: |END1
; K1 B* L7 T5 K( w" UM0

! s$ z% k5 I4 z+ r0 F3 E3 \结果：
' w2 ~3 c" h) O' D#501=1.(低位)
#502=0.
7 u; Y2 w4 B" t+ K0 W#503=1.
3 M4 P+ e, Z$ |8 S! f* ^8 d#504=0.
; a, \. a( X/ W0 u. {5 I#505=1.
#506=1.
0 u3 L  C0 l7 x4 E0 ~' a2 |# O! w#507=0.
#508=1.(高位)


2 w# L2 m+ J' {以下为10进制，想得知＃101有几位数的小程序
#101=1234.
) m  S$ ^! H6 x* @8 t; ?#10=1.(用1去比→用10去比→用100去比....)
2 O: ~" S9 C6 Q#30=0.
) g: `1 L/ z5 N% @) iWH[#101GE#10]DO1
6 @7 f5 X2 v3 g! ^; |# \8 \, e#30=#30+1.
#10=#10*10.
' i% x/ d; t- d' h$ REND1
# U- D6 m% O: N1 h1 }. v" M" O#30=有4位数(#101有4位数)
  t$ H( h' W7 \! OM0

羅蓋仙

/ \6 u+ P  }1 {/ U- S9 ~
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
6 x. T; j8 Y6 a, ^( `#10=1.
& A% L* d0 i9 d% I" q#500=0.
+ A  X4 p9 e0 [! {- E. F8 d+ Z9 xWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
* z2 h$ c, ~6 ^3 {7 k, u& V& P: s#101=FIX[#101/2.]
#10=#10*10.
END1
9 \. @5 ]/ R, T5 c, qM0
* U- D0 e% Z* H) s' m
' |. R0 N, p* @1 H结果：
" c4 Y$ }( A$ S! }#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

1 M% v4 c( m  N% _# H$ F这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
  E  |; y0 I5 Q. L0 {3 Z#31=FIX[ABS[#1]]
- F8 g1 l9 E) ]( [+ j* q#32=128.
, K; C. E1 B" Z5 P7 P5 q6 w7 lIF[#31/#32GE2.]THEN#3000=200.
3 f; [2 t9 S$ e$ @  m: GWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
) G6 e6 v- h# k  }0 x#500=#500+#33*#10
" e0 u: f5 B- g8 y#31=#31-#32*[#33EQ1.]
" O. \4 _; }" Z! d- T6 p  B#32=#32/2.
#10=#10/10.
END1
M30
; d3 w" z% o. {' {" D
# K& M+ B, G- E) @5 c* n还是有改良的空间

bruceding

回复 2# 羅蓋仙
# F3 X6 E4 C' a/ l% {2 ~

    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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