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

羅蓋仙

" }9 g" [/ \! c0 ]( v& D5 k: |

" j6 f& N+ g- H0 E& A; B十进制转换成二进制：
5 x; m0 H, }' h5 V  t6 Z! q* Z" `8 L#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
& g4 D+ J: c8 Q- \2 N7 RWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
#33=#33+1.
END1
M0

( U1 J/ t; ~  b1 j# `* T2 X! z结果：
" \! m/ `3 x' _* b- e$ G! V" T#501=1.(低位)
#502=0.
& m# o# l. O1 I# Q0 M1 c/ ?#503=1.
2 N* j# P0 E4 e2 g4 N) ^  C5 @#504=0.
6 S2 x% H# K" A- Q#505=1.
' N& n! K: H0 `6 ]5 v#506=1.
* Z1 c: j- R. j$ }* h#507=0.
0 l, g- z) N) z/ U( T, {#508=1.(高位)


8 ~6 R, r( Q) m& W% C' e% W以下为10进制，想得知＃101有几位数的小程序
- V7 A5 b* R! C( X7 K: F6 u#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
2 L1 M, k/ \! n. c2 s6 ]WH[#101GE#10]DO1
8 x5 c" _9 ^0 ^2 \2 T: X#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

5 V5 ~" p6 z4 u6 h1 W2 u% a
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
2 @3 w/ ?0 C% d#1=181.
% o; o* P5 E$ @' B6 \#101=ABS[FIX[#1]]
! [( M( J- Q9 i! T. U2 B& M#10=1.
3 q( ?0 F# y! I; Y, l#500=0.
  E* b! ]( v0 P: g0 F( F+ ZWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
( u* j. p9 }" M2 L2 O#10=#10*10.
END1
8 M; F9 q! J0 [0 s' P+ e" z/ hM0
8 }. v; i. L$ h8 C* n
结果：
' Q: v- z4 _$ z! k; h#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
+ f$ K; o( t( D8 A
( v# b, ~* Z4 W/ ?这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
  d& {6 _7 n5 ]3 U9 c) c! b  W& A#31=FIX[ABS[#1]]
$ P, K7 Y& G2 @* D1 E0 b#32=128.
8 N8 x5 [8 s3 aIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
5 s* ^  {# k) X1 H  V( M#31=#31-#32*[#33EQ1.]
#32=#32/2.
" |5 B7 _" F4 e! M1 l; ]4 I+ E6 w#10=#10/10.
END1
1 H) P( b) ^  F1 c0 u: mM30
+ i( E5 \. J- q: G9 T& W' L+ Q, C
还是有改良的空间

bruceding

回复 2# 羅蓋仙
  ]5 P. f& v6 ?6 k/ I

, i  X. k2 g1 W6 ?- v0 r: r, O    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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