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

羅蓋仙

# @6 H5 I, Z4 `$ n2 [/ u, F; M

, n7 W4 @. b) z9 X) N
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
. t* M# C2 k4 @0 _' p#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
2 w$ e5 v  v/ J) Y8 G9 }END1
M0

8 U3 e+ }9 D: _/ w6 Z结果：
#501=1.(低位)
; k5 \3 v% P5 h6 M) ~% A#502=0.
$ d5 ~5 G, N8 M3 B  _#503=1.
! c" Q+ _/ O1 g# s* K#504=0.
2 a) O0 e+ o4 j#505=1.
+ V% M8 \  _5 |1 d#506=1.
! A; c/ u) t# k; R; q6 [1 b#507=0.
#508=1.(高位)
3 O9 \$ ^8 K2 }; S$ d: ]0 T
, E9 C& L# e, O" l
以下为10进制，想得知＃101有几位数的小程序
  d. z( e" V1 H( c#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
8 U- |# o9 P) _$ ~#30=0.
. y/ b) [* S" x4 IWH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
& c/ q' U8 g" [6 {M0

羅蓋仙

, Y' E3 c9 w: f$ C; k
) m# P7 J! Q' j9 r/ h8 S* w如果嫌10进制转换成2进制，占了太多变量番号的空间
6 P0 E" J4 U- i3 I. S0 u4 Z% V) `我把它修改了一下
. z6 a; k6 A) q, R7 o0 F  d$ `#1=181.
#101=ABS[FIX[#1]]
  J4 c; |/ [& Q+ m( C#10=1.
6 W- \' i) Z0 P2 V#500=0.
+ `) v' }' W6 j3 M+ QWH[#101GT0.]DO1
0 Y5 n$ l, w2 o#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
1 h( z/ @  Y* |/ tEND1
M0

, k% Y( O- n" z* K3 C. ?结果：
1 c5 N& e: \% M5 R9 }  L* [#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
% X% j$ B; l: z: J# Q- y#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
. ]* I# F' v* e# ]1 F#33=FIX[#31/#32]
# K! r3 I! w2 p1 g9 i( G& z( k#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
# E0 Z& V% F, G8 _, i5 d#10=#10/10.
END1
+ h0 N, ~# e  I: z$ qM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙

! K3 t) [5 q% ^, B
+ y$ }. X% n! _# U8 S& A    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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