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

羅蓋仙

1 C, q2 H3 V; m, j: E. K
9 u$ f% g( B0 D
$ _* T9 ^- {+ t# G* T7 ^5 o十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
( |0 n: X# V  q0 c/ ^#101=FIX[#101/2.]
#33=#33+1.
: s- F+ O& `  n; BEND1
M0

结果：
#501=1.(低位)
#502=0.
#503=1.
#504=0.
" |7 P" i9 M4 n) L: E#505=1.
( j9 W" ?0 n" ^* V* Q/ E5 v/ H, g#506=1.
9 {! I) L3 x0 o4 p3 t4 g4 Q' N: X& ]#507=0.
#508=1.(高位)


* E4 I- W+ Q$ c) a8 u以下为10进制，想得知＃101有几位数的小程序
9 q; b, w7 N+ ?#101=1234.
5 F/ F$ z  D4 ]+ Z" p, A1 i#10=1.(用1去比→用10去比→用100去比....)
( L! g$ ]% Q# {( c. l. c/ o  l#30=0.
WH[#101GE#10]DO1
, [! j8 s5 |0 {% c5 ^1 D#30=#30+1.
#10=#10*10.
4 X( ?5 r$ f8 v2 DEND1
5 c8 ~' Q; b* ?8 s: ?7 E0 |  z#30=有4位数(#101有4位数)
1 Y& h/ i8 _. s, B. mM0

羅蓋仙

2 k& z/ \* f! A- i# `# Z如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
0 U2 g7 O( }. U0 d9 }  A#1=181.
( r& {2 b% a% D% K) O. o#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
2 ^- T- d6 K5 R) k$ T#10=#10*10.
! y% r% {( P2 o8 j) w* F: |7 ]END1
+ r$ y3 h0 d' v; V. X2 C* b3 t; ]M0

结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
; T% s( w& {+ v0 V& {% h! v
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
$ _* J3 [# `" w1 r& j% Z! q! D1 t9 e＃1=181.
9 N" k* Z5 M* K9 K- ]) S#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
! D! f# V1 M, V2 Y5 J6 |1 s5 bIF[#31/#32GE2.]THEN#3000=200.
  a/ B6 e1 O/ E8 n, R0 DWHILE[#32GE1.]DO1
2 ], X5 ~) T( w' f4 ?#33=FIX[#31/#32]
#500=#500+#33*#10
6 L5 J. ?" I7 U+ ^) b& g- z/ D6 Q#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
9 C- A( q( T8 S* L7 t# FEND1
M30

' g* q4 w& |2 Z# n8 p* r3 e% B4 A还是有改良的空间

bruceding

回复 2# 羅蓋仙


& S6 g4 T& g+ R* }7 ~7 X( l- G, [    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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