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

羅蓋仙

. i- W( P9 `. q  Z+ u6 G) p

+ c2 `5 Q: k  E
十进制转换成二进制：
5 V; h" k% p9 |  T4 R+ E1 y#1=181.(欲想转换成2进制的数值)
! p+ @& C9 e- o; Y& O7 z' A" [#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
) E; s$ W; n+ s  T3 {- d  C# \5 jWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
/ \' P$ U- Y: S6 \4 b" x4 _' x! J#33=#33+1.
END1
1 ~3 ], L% }0 c7 U, u' O) `; ~. FM0

结果：
, j( i- l! b( ~1 c. u& V& Z#501=1.(低位)
#502=0.
0 J& e2 R0 N: M#503=1.
7 e6 C2 C1 c! c- P#504=0.
4 V4 C7 U& X# V4 ^#505=1.
3 L  R% F6 a2 G#506=1.
+ i1 G# p8 c* n8 R% B#507=0.
8 }/ M, U/ O2 @8 s- D1 i#508=1.(高位)
8 w# @9 |1 g1 H( f8 a( M. h6 V

/ n" z2 z$ E7 e7 |' _9 R以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
! V* C- U1 \& D+ W4 g#30=0.
WH[#101GE#10]DO1
* s$ {$ I# H7 u, Q- \- D5 d. v#30=#30+1.
3 v7 w! P" Y' {% q1 v. l9 T) `#10=#10*10.
END1
( C5 a3 w( }% p" z4 U( P#30=有4位数(#101有4位数)
+ u, j) e  s- p% X& H) c) |6 H# w. K3 SM0

羅蓋仙

9 i! G0 N  F0 c5 T  Y. W如果嫌10进制转换成2进制，占了太多变量番号的空间
7 ?5 A0 m. B# s! i3 ^: e. A我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
; A1 [& P! ?" b! T$ kWH[#101GT0.]DO1
5 r. g) U+ d6 n+ B#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
3 w" D/ J# n" T; e5 W+ @1 j$ i#10=#10*10.
END1
M0
0 }6 b% I1 n1 M! }5 Z1 u
3 ]$ R' _" @5 z8 c/ c8 z4 d# [结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
+ e! y) B5 p  j) F) F' P＃1=181.
#10=10000000.
# b8 j4 f0 S+ ~& I: ?$ }3 i#31=FIX[ABS[#1]]
#32=128.
) U$ j3 ~% s% v- kIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
( x- t" a# t$ g  f! C8 N# Y#500=#500+#33*#10
) V6 G& s$ s! w/ y: b#31=#31-#32*[#33EQ1.]
. D! i% }  P' {: F. k2 u/ k#32=#32/2.
* t$ k( }  ~! _3 v" s7 `( y# I$ a: J#10=#10/10.
8 I. E) s; ^$ {+ J1 XEND1
* q0 v/ \! S* F& t' _: mM30
9 \! T/ G, q0 w: A5 z" ^
9 ?$ n3 A3 X' l, K; Y7 ]还是有改良的空间

bruceding

回复 2# 羅蓋仙


$ D: |/ m2 n4 ^/ W$ m6 `+ x' I    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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