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

羅蓋仙

  K) L: ?# f4 ]

" m2 c* R8 i& @6 \4 Q' N
1 c9 C" F* R% [; `8 M十进制转换成二进制：
. c. X! s, S1 w+ ~- G  k#1=181.(欲想转换成2进制的数值)
6 |9 G7 _' f+ y4 F: d2 V#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
5 x: B" r' u7 t: U+ r#101=FIX[#101/2.]
#33=#33+1.
$ c) Y  E- }% f7 KEND1
  \3 j  ]; e) [1 J/ D3 }  e3 B; ~M0

; {9 H8 Z* B" S- x' G; P结果：
1 U# ]1 H5 A! w( R+ e+ |#501=1.(低位)
#502=0.
#503=1.
( b* ?) m1 Z2 p#504=0.
#505=1.
#506=1.
#507=0.
7 F; f+ H: i& ]#508=1.(高位)

9 j% N2 h2 T% A% x, d4 _$ u
以下为10进制，想得知＃101有几位数的小程序
1 {& \! X- d7 t0 ^. o: g#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
* ?5 k, }  G, w1 m! a3 ]8 g: I! @#30=0.
. W. i, \1 b2 B9 [$ m% gWH[#101GE#10]DO1
2 {" Y0 v% u5 j( D" Z1 ~" W3 U#30=#30+1.
#10=#10*10.
4 U5 P# j' C& ]. g7 ]! q; Y7 s( L- rEND1
5 y& e& e. f1 v1 X5 L4 h! P" ?#30=有4位数(#101有4位数)
M0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
7 f9 Q! C& _; J8 P* d8 D% x#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
1 t7 P2 q0 A/ u: E1 F. Q7 v6 L, ?END1
M0

结果：
+ R3 e, J& ?0 l/ R+ O' |* {#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
1 H8 Z& G9 s! b2 H
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
/ B& O0 @7 [( P9 \% q' c9 [＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
- `+ C* ^4 j3 uIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
6 n& F7 I6 s* T6 z) p& s#33=FIX[#31/#32]
#500=#500+#33*#10
, u6 Q7 Y/ u  r  J#31=#31-#32*[#33EQ1.]
7 W/ Y$ l+ X4 @- \- C#32=#32/2.
; _% F6 i0 t6 }#10=#10/10.
+ P: m; ]! X* v4 ~1 [# ?END1
5 m+ A: ?9 b% O% tM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
: l! z2 F" U1 k+ h1 o

; Q3 W5 b  S# d) S    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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