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

羅蓋仙

  `. r* o: n& W! a* v
/ w9 G5 w( ~# i- H6 }- N
7 i$ b" _8 p0 l2 N十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
: @/ W9 C. c# y( n9 V1 H#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
: G, |+ c9 r- v: P: b; QWH[#101GE1.]DO1
6 s& i4 }6 c  }1 v& Z- K* l: h+ I#[#33]=#101 MOD 2.
+ j/ b# j4 H, H8 I2 ?& g#101=FIX[#101/2.]
, R+ `: X. q$ t#33=#33+1.
+ y% z/ P6 }) E: @. Y  @5 gEND1
M0
2 u0 q  X6 ]% x9 }4 g
结果：
#501=1.(低位)
6 d9 M% a3 k. L1 l. x! ~; S$ v7 q#502=0.
, P5 [/ l1 S' m; d$ R0 e$ q. _#503=1.
5 u: q7 U/ w2 I/ T3 n* y; P#504=0.
8 y3 ^9 ]$ n. ?' E#505=1.
#506=1.
* m. [8 o$ R0 m1 v. }0 k: E$ T- g#507=0.
6 V9 Y% ?2 s$ e  S#508=1.(高位)

) Q; T# N. L6 z  j0 E
) T' K( h2 x  p以下为10进制，想得知＃101有几位数的小程序
  g& N  i" S8 X$ o5 ^& ?; e#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
* w2 c$ G1 Q$ @7 t+ R+ D/ L7 s  yEND1
# [1 Q  w' [: n9 I3 s5 F4 y. j! ]! U#30=有4位数(#101有4位数)
  D  b4 J2 R. t" P, c) BM0

羅蓋仙

3 V: ], h) T: u. k% [
+ v+ J( l7 j( g* D! @如果嫌10进制转换成2进制，占了太多变量番号的空间
' B5 j, l( k" |; g& ^/ X1 f. A- d- u( y我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
0 m; o/ m2 f  r5 K#500=#500+[#101 MOD 2.]*#10
' P9 B& H2 m- [2 M. c& [4 M#101=FIX[#101/2.]
#10=#10*10.
3 v2 V0 s( w* wEND1
M0
; |( M1 C% ^3 a& P, \
! i- a! h8 O$ `( \0 ?3 ?7 C, L& O结果：
& b0 t, t1 z1 v& M#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
/ ^% m3 X) ^- _. V
+ n7 e+ [& p* B* {7 b' Z9 N) D) @这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
  I6 ?5 ?6 l  h4 q7 ]＃1=181.
6 S8 d- T/ H/ L' F# u#10=10000000.
#31=FIX[ABS[#1]]
/ x' |: X2 X5 I0 e% l3 W' E& r#32=128.
# |4 e" C; V% OIF[#31/#32GE2.]THEN#3000=200.
& b5 Z. ?6 ~' QWHILE[#32GE1.]DO1
- Q8 i7 ^. y* I& v7 Q#33=FIX[#31/#32]
; o2 x) V  U5 r+ _#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
  z- s: Z" P& S6 ?#10=#10/10.
+ y3 |/ o% ]# r+ b/ u5 VEND1
) f8 {' k8 B1 y' y$ v3 wM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
2 `* R' _! Y) D. O9 `: l

  S2 h6 Z  e3 k0 m2 V% o7 A    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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