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

羅蓋仙

( u. [, L6 h; y8 y- O) [3 t
/ P& S1 Y" i$ L) ^十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
* @. Y  e$ V9 v! `#101=ABS[FIX[#1]]
2 K. j* [! S  \1 Y1 u1 R+ z#33=501.(储存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
; p/ i3 }! E, ?2 n5 Y3 E$ G#101=FIX[#101/2.]
0 N; ^6 q2 T  v#33=#33+1.
END1
! L- Z% ]/ v% r& v/ h0 BM0
5 h$ w. I0 i5 Q3 P8 ~
8 x5 x3 H- B) O) k7 S结果：
/ D* Q# H9 N6 R( d; T$ C#501=1.(低位)
#502=0.
% H' R3 n, q' p" V3 l#503=1.
4 \: f% F7 g  |( A% M, x9 W( e4 l#504=0.
: V2 |6 Q4 a' l5 g#505=1.
#506=1.
#507=0.
#508=1.(高位)

0 v: H$ h! j2 ?" r
: o9 l. W0 s* @" s; H" X! w6 P以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
% u$ Z/ G$ j3 v3 g#30=0.
: g% I% ^* F8 L7 r. }WH[#101GE#10]DO1
9 u* u" P/ V  a! l#30=#30+1.
#10=#10*10.
' p. e4 G1 B% e  ]9 v1 ^END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

; ^' T6 Y& q$ O
" H7 N3 Y" p  n. J2 J' u; e% w如果嫌10进制转换成2进制，占了太多变量番号的空间
! n* i( U5 f* K, D+ M5 v+ X" E我把它修改了一下
0 X* u: J- W# h& f6 |0 T#1=181.
#101=ABS[FIX[#1]]
#10=1.
* P/ t; s: m( u8 S: R5 K6 n#500=0.
- ]0 J5 {, E+ ~# `6 e8 iWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
! m( Z1 H. D& Q8 R+ b- |' |#10=#10*10.
  t  c1 Z) Y* a9 `, LEND1
% z/ S6 \* I, l% _% pM0
& Y# v9 ]4 t. H& c. h
结果：
- o% c1 o4 i" M% Y#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

/ y; B2 N" F& W, f这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
9 s# }. d6 h/ g9 d% y2 wWHILE[#32GE1.]DO1
% g& m7 H( M. s( S0 `. q#33=FIX[#31/#32]
% T1 p# j# X% S& g#500=#500+#33*#10
. J, A& V9 M( J1 z! @# c- |1 t+ u#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
/ E$ d2 R5 J* b6 h9 W& QM30
, v& B) l4 A8 S, E
还是有改良的空间

bruceding

回复 2# 羅蓋仙
+ }) I5 Y/ \6 c  K
( A: v$ k7 P1 m
7 X* ?$ m3 ]4 d5 s: N, p- s    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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