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

羅蓋仙

* T  @/ Z% r3 ~; {; i, S

5 Q. r* ]. O# q% M1 ?
; p- [6 }$ C: `- P/ P1 H& e十进制转换成二进制：
2 Y; U% E- Q- K- |#1=181.(欲想转换成2进制的数值)
% f8 Q, P, \9 z#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
( r4 _( d& u8 ~! X7 wWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
! N: E% T! J/ K+ v#101=FIX[#101/2.]
" a! x  t* ?, j#33=#33+1.
, V' l( a" O7 `/ ?7 x. nEND1
5 L& x/ X% V$ u7 d9 [M0
0 ]$ f# ~9 e4 d" o+ @- N$ h
* ~' n# b7 b% \5 ^- B8 _结果：
#501=1.(低位)
* ~6 t2 W3 [; o1 W0 Q! ^- ~1 v#502=0.
#503=1.
#504=0.
$ l5 G+ w/ w1 Y) d, e8 ^$ c#505=1.
#506=1.
#507=0.
#508=1.(高位)
  d  \- {. S3 ?  ]9 y9 q' B2 W
3 H5 y/ p( g7 i* ^2 B/ S* z/ e
% k/ t" z2 z$ f: c5 S* z以下为10进制，想得知＃101有几位数的小程序
- ]/ n$ U# [% r/ y  a) h#101=1234.
5 l+ f8 S6 @: i( A#10=1.(用1去比→用10去比→用100去比....)
& ~5 f& \% d4 ]. N4 g( c#30=0.
- h' D8 a9 |2 H4 MWH[#101GE#10]DO1
8 l* M- [$ N5 E( L#30=#30+1.
#10=#10*10.
3 q: s- m/ t! rEND1
#30=有4位数(#101有4位数)
M0

羅蓋仙

  q7 L! R" W3 T! g
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
# k) I/ c# h, Q3 j  s* ]( |#101=ABS[FIX[#1]]
#10=1.
#500=0.
7 z; r, O8 J! R# EWH[#101GT0.]DO1
9 `) y( k2 Y& n& _#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
1 Y8 G  k% u: T6 v3 y#10=#10*10.
END1
% j+ \1 F9 k* p& w3 M3 hM0

; b( U6 S0 A6 G( V0 O3 M4 B  Q结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
  D1 e& I% N* T
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
( s  I1 r" C$ x: \. d#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
5 e4 a/ }' t' W6 XIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
& m1 x- L2 c/ k1 `' t#33=FIX[#31/#32]
#500=#500+#33*#10
5 z( f3 i: R, i. S* Z( H7 z#31=#31-#32*[#33EQ1.]
# `  |, r0 O* Z0 \2 G  A" u#32=#32/2.
#10=#10/10.
END1
M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙

% G" t+ S: o* Q5 _, q$ d. o
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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