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

羅蓋仙

  }( W' h9 b2 H& p8 B' h# O7 D7 L


十进制转换成二进制：
( Y, w+ D* j% Q% Y6 \. e0 t) L* M; Q#1=181.(欲想转换成2进制的数值)
1 ~+ Q7 K% m2 ~; w' `" E& v#101=ABS[FIX[#1]]
8 b, r+ A/ P) k# p: {#33=501.(储存到#501～)
WH[#101GE1.]DO1
& {. L$ J9 i5 x" R* L! e#[#33]=#101 MOD 2.
3 E! I' z% u4 j#101=FIX[#101/2.]
#33=#33+1.
2 L1 G0 c5 }2 V+ P* xEND1
( P; e5 a  p$ f2 Z7 r* FM0
2 O* F8 U9 Z% f0 t5 Y7 B. Q1 J
结果：
#501=1.(低位)
7 e* Z1 O% ?( H: }  `4 B! i7 }#502=0.
/ L0 x' D" m+ m+ X5 Y#503=1.
#504=0.
#505=1.
5 }! p! r2 K9 B' g#506=1.
9 b6 Z; D( j% n9 ]! n  G. T#507=0.
#508=1.(高位)


以下为10进制，想得知＃101有几位数的小程序
! U0 d6 _7 [9 `8 a#101=1234.
2 _$ `- J! x) o$ I2 t#10=1.(用1去比→用10去比→用100去比....)
* U# y; \7 ]2 B: x#30=0.
WH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
END1
* _3 ^3 Q$ G! R2 H* d# l, \#30=有4位数(#101有4位数)
M0

羅蓋仙

' R3 @0 Q  k6 w5 a5 j如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
8 H4 n9 i; x: ^( N" y#1=181.
: u' b. h; R0 s+ _#101=ABS[FIX[#1]]
: |+ w- X# D/ i( ]/ _#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
0 A3 P; L4 s1 v" d; cEND1
4 D* @+ K" S7 E- qM0

结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

) w# p& c' T% T8 Q  _- g5 j) C这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
4 A- k: _" D+ ?( r$ m, S3 i/ g#10=10000000.
#31=FIX[ABS[#1]]
/ w; E. ^" l: [" p#32=128.
% l' Y" q' U# y( {! K* E% IIF[#31/#32GE2.]THEN#3000=200.
4 a9 a4 i6 l/ N4 B- HWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
3 p: m& E5 D! X$ i#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
) W: K+ [5 w% p. u' nEND1
M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
3 h* U! ^+ d9 i. _

: O* v/ |+ S. g$ W, p- N; z1 N    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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