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

羅蓋仙

( w2 @- l. d! b
6 m, Y2 h  [7 b! o9 v
9 t! F3 d$ O8 }% w: l- K/ ]2 n
十进制转换成二进制：
+ y9 s; ]! l: Y+ a9 o1 p#1=181.(欲想转换成2进制的数值)
$ ?+ g, A7 H4 p% l9 R0 \- F  Q#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
* R' V4 L" o, R8 s! P#101=FIX[#101/2.]
#33=#33+1.
1 _: u8 G4 p+ K3 A0 m% k% c6 V2 ?3 \END1
M0

结果：
#501=1.(低位)
9 k' \! N& {0 w+ p#502=0.
#503=1.
( B  G5 S  U4 r$ L#504=0.
9 |! I( Y1 q& [! P0 l( b#505=1.
#506=1.
#507=0.
#508=1.(高位)
3 d  D" m" U, V9 e
5 K0 N$ M" K6 o; h8 i
以下为10进制，想得知＃101有几位数的小程序
. }) P% G7 f/ n* D+ |; n, P#101=1234.
) X- T; \2 }  u+ e#10=1.(用1去比→用10去比→用100去比....)
& K4 u2 x* ]( e2 Z- w) |#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
+ S, ^' T: |' R1 f7 Y' Z! v1 yEND1
#30=有4位数(#101有4位数)
& p( U. v; a9 |$ d' }2 }8 }M0

羅蓋仙

; H3 A/ m% x  K' Q# i: a3 u
' h7 T' s/ q3 a. i" g如果嫌10进制转换成2进制，占了太多变量番号的空间
' T1 h1 L) I8 d% C8 p- j我把它修改了一下
, q6 ^: f& k+ j, L, J) W#1=181.
1 f4 m5 P2 D0 V2 j$ m" g#101=ABS[FIX[#1]]
) j+ |& R& `7 {8 `) g% v3 a3 f#10=1.
$ k1 N+ |% W- [# S. `; j#500=0.
WH[#101GT0.]DO1
/ K4 f( s' P! O#500=#500+[#101 MOD 2.]*#10
9 T/ z' {- w! [' |# P#101=FIX[#101/2.]
#10=#10*10.
. p: m1 E* ]" u/ |4 S4 k. dEND1
  _8 x+ ]' F# ^. [, Y+ A1 O& I# Z( hM0
1 K; G) i) ~! v" f4 z5 A
1 ~4 L- M2 h3 v结果：
. v  c6 ]1 L- r' _' `1 ^#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
8 h- ~" i3 ]3 Q3 l4 g% R
! [8 q2 M  B( L9 o" ^, X% F" z这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
' Q: M7 b, z9 y5 L( W' j#31=FIX[ABS[#1]]
" {) `% X9 v- e#32=128.
, G8 o, `7 W9 D5 E0 NIF[#31/#32GE2.]THEN#3000=200.
, J  e6 y" R( j8 n1 r: m$ yWHILE[#32GE1.]DO1
# X+ H) l5 t: @3 w0 {. L#33=FIX[#31/#32]
) L5 w6 f3 H, N8 P, q, C#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
2 j4 |$ Z' t. _0 ~2 t! _4 r' J#32=#32/2.
# f: s9 y! G5 q, n/ @" |: g#10=#10/10.
# A9 A  l8 P* U) i  @9 k, w4 ?0 JEND1
M30
) ?+ p8 H" `$ H6 u. P
还是有改良的空间

bruceding

回复 2# 羅蓋仙


: m4 o4 K) e2 _/ [: r0 @    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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