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

羅蓋仙

" G" P8 O% r$ h3 O  j
' W* t1 E; _9 C) B$ J. f- F. p

十进制转换成二进制：
" A: n& \2 w$ g# G, l#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
2 h, U: O! i( L$ G/ w# QWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
8 w$ z: e7 W! |7 H0 d* W: g3 I#101=FIX[#101/2.]
#33=#33+1.
, U" Y, R6 [: X  K' i! g; ?6 q5 C0 QEND1
; P+ {3 O* |# oM0

结果：
9 `3 A5 h% ^3 h- F: J8 G" [#501=1.(低位)
#502=0.
#503=1.
#504=0.
#505=1.
8 w! ~% K9 y: m$ n) ?#506=1.
#507=0.
#508=1.(高位)


9 j/ J+ v& u& z以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
- M9 ]$ {1 t' |$ S; M9 e2 ~+ E#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
. y# t2 o! A! o" k: K; d. T7 h1 B2 xEND1
- e- i% L8 ^' W4 K# C! K#30=有4位数(#101有4位数)
1 v. \- Q+ N) q- N. z8 A0 |M0

羅蓋仙

6 X! z) [- a$ ]
" M4 f& b/ {, `! j$ T如果嫌10进制转换成2进制，占了太多变量番号的空间
! t( ?! W) U1 q0 x8 _5 C我把它修改了一下
0 W7 ^' T, i" q% I0 r#1=181.
#101=ABS[FIX[#1]]
; A- v: Q+ {( H2 V0 V# N#10=1.
#500=0.
- w1 P/ x4 m" z) u$ A. Z# D# mWH[#101GT0.]DO1
$ {! O3 M) d0 ^7 [4 i' \1 J" a( u: n8 B7 e#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
) N; n* n$ q/ B) u8 i( [#10=#10*10.
: Q. `5 r- p# ?4 ~/ M& t, F# IEND1
M0
/ {. b# c- I5 A/ a9 A
结果：
* d; u. y8 M9 i$ @. `) r9 f#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
0 V" L5 o$ N& D" y＃1=181.
( J/ e8 S% w0 l" h; w: T#10=10000000.
( j% w0 n. J/ |# j) F2 Q! n2 W#31=FIX[ABS[#1]]
#32=128.
/ Y& d  r+ r* e* L" ?IF[#31/#32GE2.]THEN#3000=200.
# s$ p0 b# a/ `WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
" p$ K' ]0 X; F  x, H* o#500=#500+#33*#10
) B1 x6 ~$ D) n8 t+ k#31=#31-#32*[#33EQ1.]
$ k: J; Z6 j7 {3 S, B2 w7 C; g#32=#32/2.
#10=#10/10.
3 l) A$ D1 o3 E, A5 T9 |4 vEND1
' w& }) u; q, zM30

: ?8 \3 y2 V: S, N2 _还是有改良的空间

bruceding

回复 2# 羅蓋仙


& Q7 g4 y2 t$ h" m% N    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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