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

羅蓋仙

9 q4 m; [; v& ?5 U6 A
- K2 s9 F1 a$ o! Q
# U4 I, I& ?  l1 I
十进制转换成二进制：
. v% M) E, r) R- Z% O* H4 K#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
5 k* u) C6 `( K0 G4 ]7 N#33=501.(储存到#501～)
WH[#101GE1.]DO1
# T: v$ Y7 i+ j- L8 o& e( T#[#33]=#101 MOD 2.
, b' X; P3 ^1 v#101=FIX[#101/2.]
#33=#33+1.
1 m/ k4 J+ E% @% L8 EEND1
  O  V! O3 c- f! a9 d3 DM0

* G$ Q7 u; ?1 o4 x9 Z6 f* y结果：
: W+ ?3 Q2 ^3 A% P, J8 f  n#501=1.(低位)
2 B' d9 e3 H" O2 @" X#502=0.
#503=1.
8 X( _5 D) ^: W3 Q$ x& K#504=0.
#505=1.
9 D) A1 ]: l( b/ u#506=1.
1 K9 z5 i  x# @! F, E8 y  G#507=0.
#508=1.(高位)
1 W; _& o: T7 H- b/ _% r" N

以下为10进制，想得知＃101有几位数的小程序
5 r) F+ o* f3 N8 K! u% f. w. k#101=1234.
6 V8 B# N( d3 p/ x( a- g: @#10=1.(用1去比→用10去比→用100去比....)
, e4 s4 Q9 G5 q; ?& _#30=0.
3 S9 t, D) \" f( d! k, q' `WH[#101GE#10]DO1
6 R5 |. B6 T8 A7 e: T#30=#30+1.
#10=#10*10.
END1
#30=有4位数(#101有4位数)
  H2 m! Y3 c0 s  yM0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
7 i0 V3 Y/ D* S" b#1=181.
#101=ABS[FIX[#1]]
/ ~0 x) r0 L; W% M2 A1 F#10=1.
, P( v/ H) y( L7 m, ?#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
" I) j8 o  J! B, A% d7 A#10=#10*10.
8 N* g' b7 D% REND1
M0
. L6 q' p$ F2 D; U( s" ?% M
结果：
$ S+ B, }2 G9 t+ b, e#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
4 o  G$ G! }+ o7 N# uIF[#31/#32GE2.]THEN#3000=200.
! J1 _( _- K2 }& E* w$ W( ]: o' L5 xWHILE[#32GE1.]DO1
$ b& m& a  U% ^& ^0 T5 Q#33=FIX[#31/#32]
' F2 B+ {6 Y. {- H3 G; x#500=#500+#33*#10
7 j3 c$ c6 S+ I. ]- `* x#31=#31-#32*[#33EQ1.]
# m: `( g- q; u: K/ o#32=#32/2.
#10=#10/10.
1 D+ x/ C8 ]+ J6 o. t/ fEND1
M30
" X# ~; m+ J# S1 i/ A7 A4 x2 o
/ M, n  L1 `# w9 _) R3 R还是有改良的空间

bruceding

回复 2# 羅蓋仙
' u9 B; e' B; v% P

    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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