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

羅蓋仙

5 s- K- D" V0 N$ T; `9 F4 A  k
. M/ |0 @# t5 U' P# j3 g3 {# Y% R" u* M

! q5 I0 X/ s* l$ m( b% @十进制转换成二进制：
0 V- @! W! ]8 B8 q#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
: ^; X' `& }5 i) }. Z6 d#[#33]=#101 MOD 2.
1 m- w0 R& g. b7 c2 \+ \#101=FIX[#101/2.]
#33=#33+1.
END1
$ y/ c0 W) @: l3 c& K9 u9 h3 OM0
5 {0 V) \, \2 E1 G
结果：
- t, p8 R3 c; K, t1 F! F) E6 {. P* R; J% F#501=1.(低位)
8 m. u3 D- q+ A#502=0.
#503=1.
. O/ t8 w* i, @+ {4 d#504=0.
#505=1.
7 U8 c9 j; K# N( f- B# o6 Q#506=1.
; L* D% j0 J  F5 g#507=0.
#508=1.(高位)


以下为10进制，想得知＃101有几位数的小程序
#101=1234.
2 A0 ]6 I& L& S0 y% ^8 {* S#10=1.(用1去比→用10去比→用100去比....)
3 r3 [' h" B8 G1 a8 M& N#30=0.
' l( ?8 X: d4 H2 LWH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
' l5 a7 D0 O6 e( I% m# K& R#30=有4位数(#101有4位数)
" M; Z" K1 m# k- H8 Y. m; G& DM0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
: T( H% i0 y9 M' l+ `我把它修改了一下
0 A6 E6 F' {( B! w#1=181.
#101=ABS[FIX[#1]]
#10=1.
$ M2 T0 @$ B" }2 H1 N& _#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
  z% h7 N! ?4 V0 ~" d! V#101=FIX[#101/2.]
#10=#10*10.
( u' J& z4 ^$ _END1
M0
' o' Z+ e& \) k
+ O" W) E5 I- u0 F结果：
2 r! ]' Q* H! T- p* @#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
; |4 K7 S2 M3 q/ p5 B3 n
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
: u7 T+ P! H7 T. |3 ?＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
4 O% W8 r3 Z$ G. b9 T3 U& O#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
4 J7 v. _8 D$ r9 D- V0 s#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
* N5 c5 G9 S) o& H  a# M1 x0 ]END1
, V" G( _' c5 K7 m- n' t  y) z* SM30
  W, g  t" ~! J0 i$ x
$ g4 F0 [$ k0 v1 G4 M/ A% @还是有改良的空间

bruceding

回复 2# 羅蓋仙
; M3 p% X. n8 @% F" j
0 U7 q3 `. H+ y4 H
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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