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

羅蓋仙

) m8 ~; V: m; |5 x8 ], _
( L4 ~; K1 j3 J& J8 M
$ ^; k9 s! l' j' U& d十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
" R7 a* A; p) j8 a#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
. N- P, d* q5 G: K+ B8 o#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
5 m0 h: }+ Q4 a! \/ h" CEND1
$ b5 n0 ^  ]# w7 fM0
' T# Y" r9 H; [) n- }
结果：
#501=1.(低位)
#502=0.
#503=1.
# K8 u- F# y- {6 z7 [# O#504=0.
( O4 O- s/ Q! v- T9 ]4 Q#505=1.
( \1 G0 ?6 U! `+ d: C: G#506=1.
#507=0.
2 U4 T+ [1 }' C! d0 c4 A#508=1.(高位)


9 _$ ]3 A2 U/ J以下为10进制，想得知＃101有几位数的小程序
#101=1234.
8 U+ `7 a' Q2 x: Q; ^  Y! u( S$ k#10=1.(用1去比→用10去比→用100去比....)
" H9 g: I0 ^5 q* N#30=0.
* b& p# v) V/ {" \1 l. \WH[#101GE#10]DO1
, P0 o1 {$ T1 A% S2 W% X6 P  ~#30=#30+1.
$ L+ H* Z: Y( O#10=#10*10.
END1
/ i" j* ]2 N/ U9 {7 S4 B#30=有4位数(#101有4位数)
- S. [3 ?1 N, c  eM0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
0 N: f; }; d5 b' Q我把它修改了一下
2 T4 D  E( R6 \' b& E7 b! V& |$ Q#1=181.
( n/ m% x1 h, S8 _0 I: S# s! R: Z#101=ABS[FIX[#1]]
#10=1.
8 `9 L( l$ c9 ~% [! o3 `#500=0.
+ Z) J; q$ [6 X! Y2 i2 o4 k& bWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
& J- x+ v  {7 `- b$ H$ t! F8 ]#10=#10*10.
/ f  s4 N* O6 @END1
M0

结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
# j" p8 O) S0 r: q/ ~; h" f& Q＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
9 }9 U& ~1 h1 uWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
2 v1 D0 g" @% G) y; g#500=#500+#33*#10
. d+ Y  i) n9 Z/ S3 H0 }#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
1 @2 r7 v4 q& ~# h* I" r' YEND1
; |* w( \- R1 C% U( ~2 LM30
; `# H$ Y0 x5 R/ F, V- {$ G
, s8 D. Q) Z' E7 q) e+ |6 b7 v# k还是有改良的空间

bruceding

回复 2# 羅蓋仙
* i: f5 z- k) q; {, }/ k6 X

3 Z; u0 D3 [& j) c# N! I    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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