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

羅蓋仙

0 Z8 _( @- |8 d4 k3 v- K  h
8 I; k# D* d& N! g

0 V3 n9 G! B# b6 l十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
/ n1 r& P* h% u& M; t) R5 B* z#101=ABS[FIX[#1]]
$ y0 z# r8 K% G#33=501.(储存到#501～)
8 l1 @1 L( y5 S( m5 \  IWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
0 `0 N3 h) T+ }( E& r0 v2 V#33=#33+1.
END1
M0
  `  H$ `# C6 G2 j% x. ^* h
结果：
#501=1.(低位)
#502=0.
#503=1.
#504=0.
4 h9 J( t/ g. ^- t! h; [7 J#505=1.
0 z4 B" e0 J9 K2 b5 T) j# w#506=1.
#507=0.
#508=1.(高位)

% v$ _! w/ ~3 R5 \. `. ?
2 _- f: `: G% D, n以下为10进制，想得知＃101有几位数的小程序
1 U8 p$ t- F/ h. `#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
9 A3 z; V6 r0 [* j#30=0.
WH[#101GE#10]DO1
5 h3 Y: ~4 L5 h5 p% j. B- ?! q#30=#30+1.
8 V3 k5 M& _5 j/ M#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
/ L* {9 l$ u) c4 i* ?' _我把它修改了一下
3 G4 [% b( j: v! p#1=181.
#101=ABS[FIX[#1]]
#10=1.
) x' ?4 G4 v/ y) Q4 i' o# G* F#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
END1
  K+ T. R6 k4 @% e, \M0
$ A" u2 O. l: Z' Q8 {- [
结果：
+ a8 b. U; K# p9 V$ Q#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
  L0 U. p* o9 d/ q' f+ q% M) J
7 J6 j- S2 H5 w" ~6 ?" W这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
- ~1 G5 Z1 b" ]" D( r- W6 q#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
! ?+ w! `2 `' F4 S7 @* FWHILE[#32GE1.]DO1
, O& }( _3 h4 l6 o#33=FIX[#31/#32]
. w$ U; h! i9 ]8 `#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
: ^! }8 w, s# t/ v#32=#32/2.
#10=#10/10.
END1
M30

. L) ]* G9 A. ?还是有改良的空间

bruceding

回复 2# 羅蓋仙
6 J$ J( D  @% d
: x, U2 k7 Y& f
' u4 {  T, d  y3 b! w' U: l) B    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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