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

羅蓋仙

& W& b3 K  X( M) b# h  y
* J& v" x2 I  f* O) Q. e
. X9 P6 t- I$ p十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
$ c4 ?6 J  {6 w6 o# l! r#101=ABS[FIX[#1]]
1 y) k3 W6 V; }/ n! k#33=501.(储存到#501～)
WH[#101GE1.]DO1
  w1 x' H( K1 R! |#[#33]=#101 MOD 2.
9 i) i* ~7 L8 p: N" g/ x#101=FIX[#101/2.]
#33=#33+1.
9 b' x/ S5 F) {9 [5 }7 `  e; |END1
( U0 N0 O, h# N7 Y+ mM0
6 h) R5 y- X/ K
结果：
; A. y# \5 W" r$ @* [#501=1.(低位)
  Z- \6 V$ f/ M1 j#502=0.
# v! _% k. x- U/ X#503=1.
2 g8 [7 Z, }4 h) X#504=0.
#505=1.
#506=1.
1 _9 ^6 u1 q$ H7 Q9 X  a, k2 f#507=0.
! F: H0 r$ l! j3 t! V% R2 |#508=1.(高位)


以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
( d& \) m( |2 a. f2 @WH[#101GE#10]DO1
. @" i) G$ H3 V" Q" {' s6 Y  ]% g#30=#30+1.
' D; |, B6 t& B. H5 o6 {7 ]0 D+ u#10=#10*10.
; i( p6 K1 W! iEND1
' c; G+ P2 v5 q( @) a- s+ y#30=有4位数(#101有4位数)
4 a8 i& t0 R4 \4 R( w. tM0

羅蓋仙

! a, [: _& |$ {1 T如果嫌10进制转换成2进制，占了太多变量番号的空间
9 R/ c- N! A; q我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
& ^& G, o2 l4 b0 M$ _0 f#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
END1
M0
* J2 ^7 \' s9 H) _+ x. P
: {& n/ e! M4 P# h- t2 M8 I' B: ^结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

/ T/ |' H* `, y6 E. v2 E这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
3 y7 |' ?. l4 j- G＃1=181.
#10=10000000.
9 E( E9 S/ w: S' z4 i; N# F#31=FIX[ABS[#1]]
#32=128.
& a# P; h8 e% [8 X' e2 L0 OIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
: q9 T2 n/ W8 V2 |; J: K% q( M% K#33=FIX[#31/#32]
0 }  |5 x( ^- R9 p" V' k. d# C#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
4 H* R- v* ^$ Y4 }+ {# i) x/ w#10=#10/10.
- |/ \$ o( T, C9 v6 ?! r8 _" }( gEND1
) k+ q, }! G' |8 e1 b" dM30
+ K  C1 E) _" C( R& ^* E' L2 W$ S$ L
/ f: g9 }  E4 v6 g' A/ }. _  k  z还是有改良的空间

bruceding

回复 2# 羅蓋仙
0 R" Z8 }& o* p& w

8 m4 v' u: f: ^$ u# r% u, M& v! R# @    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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