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

羅蓋仙

& a4 w" ]. G6 I2 n% s: U, O
) q7 \! b( C; N& z" O+ h

4 ?; [, m$ F7 D2 L十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
! m2 f: s! ]/ C1 n#33=501.(储存到#501～)
; @1 l) w: H3 v) ], D* JWH[#101GE1.]DO1
$ S; t1 f* R) `' H; i#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
& _6 E9 n9 }" u# k: w#33=#33+1.
END1
M0
9 E7 o1 \+ D) {. L
结果：
( g! `; }5 ^0 N  w8 M  z#501=1.(低位)
! @" ]5 y- `- G4 D& K#502=0.
#503=1.
#504=0.
( T8 W# Z, O8 w$ `% u2 ^#505=1.
2 ?3 i1 ^3 a0 e( x#506=1.
#507=0.
#508=1.(高位)

5 A: W+ z! l1 z; O$ `
4 x, R  |+ t, T  C$ P' w以下为10进制，想得知＃101有几位数的小程序
#101=1234.
. C, \5 `5 r: I, {3 h#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

9 }' w% P2 m* ^' O如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
: j! F/ s( E7 ^% b#1=181.
#101=ABS[FIX[#1]]
+ ?: [% Z( U& O5 v#10=1.
#500=0.
5 d$ k: m, L' c/ NWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
! O2 M. [+ R) S& c5 AEND1
3 G4 x$ {4 ]  `) t: @M0

, |+ A+ U! H, E  _1 {) c结果：
( J  J! R9 n1 I1 j+ y5 Z' N#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
3 G! `* b% q4 a" }6 ^1 t
) I5 U( a% W1 L这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
' f& o- J2 i7 U, X＃1=181.
$ `. j4 l5 x- r#10=10000000.
' Q# Q7 U; ]) [" H#31=FIX[ABS[#1]]
% o7 ?0 K2 o9 W* q: M#32=128.
+ s; ~- k) h3 Y- {3 J) F+ \( mIF[#31/#32GE2.]THEN#3000=200.
& D- F: ^6 p" o# I8 p! ~; [WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
1 F6 x: D- e: T  F+ y#31=#31-#32*[#33EQ1.]
' \* A$ b' W* f" }; M% |#32=#32/2.
#10=#10/10.
: }  q% m. S( g2 `, u6 d; I8 M' UEND1
M30
% n$ u4 g" m, x! m7 W1 C8 e
还是有改良的空间

bruceding

回复 2# 羅蓋仙
% M5 w$ {6 B$ w& a, K& V; }  d" h

7 r- p) O/ K, s6 O" v    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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