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

羅蓋仙

" X7 L( }& K6 S7 }: Z
- u6 V  d: ]' N0 N( d十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
+ L4 H( B. W- U, v* Z#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
. \- j6 e1 i" r$ J+ c  F0 Y9 v  _END1
M0

结果：
#501=1.(低位)
+ B( }1 R  h6 W5 T5 A1 {/ G#502=0.
8 f$ v; o! D* i* I1 O1 T#503=1.
#504=0.
) M- @* f: H1 I, u#505=1.
, _+ p# i' ^% w# ~$ I, _#506=1.
#507=0.
0 m5 \9 v9 r/ ~#508=1.(高位)


5 ]. y5 |7 {7 p1 X% Y以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
" T8 S! G4 ]+ ^- G% u) z' {#30=0.
WH[#101GE#10]DO1
#30=#30+1.
/ j% T% G0 `, x4 M7 L% j* o9 E( `* _* p) Z#10=#10*10.
/ _3 C1 q8 O6 V- {: m* O+ k8 MEND1
0 L% J% ~6 }# b. m7 |#30=有4位数(#101有4位数)
M0

羅蓋仙

" D! F) u! ]0 y0 G+ h# V
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
+ `, O# O  P( v#101=ABS[FIX[#1]]
" B2 {4 W/ J5 k' @) \4 i& q/ @#10=1.
; y1 E# k! W8 y" C3 g6 f/ Z#500=0.
& |+ b- y! L4 p$ D& F2 ]) s3 B  BWH[#101GT0.]DO1
! u0 }( }$ q1 {" a2 C#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
/ x& |' D6 w  p& k# B* O#10=#10*10.
9 f# E6 t- Z1 S2 I! y! M; e1 FEND1
+ T" `  {' l' M" a  k' |' d. ?M0
. u: k' V  j) r* ?
0 A, e8 h/ A* M; F5 ?结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
; ?3 N4 w; a; w( j# e
5 s: O" v) G9 @0 T# H这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
7 w$ K: i1 Q: i. v; a+ e#10=10000000.
7 v/ q8 f* l4 m& b#31=FIX[ABS[#1]]
& `/ V) q: t* }7 \5 {8 C' p$ r#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
7 r) H+ ^  T8 `' O#33=FIX[#31/#32]
#500=#500+#33*#10
5 N( |! t) D, z3 v' f7 O7 x#31=#31-#32*[#33EQ1.]
#32=#32/2.
# U7 S2 K9 {# P3 k2 Y: B: ~#10=#10/10.
END1
M30

1 ~9 }; N* S# b; B/ y0 b+ U9 [1 W+ `还是有改良的空间

bruceding

回复 2# 羅蓋仙

8 x9 S- j! v6 D
, F3 n! s; i3 m8 l: A$ F, O9 |    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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