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

羅蓋仙

! t7 ^- K% D/ V  T2 G! l! z% s5 B
' S& L) n& c6 X! Z* \- s" x

" V; g9 i5 J6 f: E% @8 ^( v十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
: e' o0 m& ]1 V/ T- O: T& M1 w' F#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
' i2 g! {$ s0 X/ m- l' Y$ ]5 u+ [WH[#101GE1.]DO1
: N/ m( ?* ?6 [5 X& l#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
% [7 g1 Y* S5 W( g- k#33=#33+1.
; N! B3 H9 p  p" QEND1
M0
* M1 D, H3 g6 L! J4 a
结果：
: |' q, ]/ C1 `! t#501=1.(低位)
#502=0.
- j2 q: m  q( x" l: t7 H#503=1.
* c/ C$ i- ^9 U#504=0.
; Z5 W4 j* `1 V; i4 q5 j" @; u9 b) F#505=1.
$ x+ g4 |( R$ q0 _7 r5 Y2 \) A( |8 R#506=1.
#507=0.
#508=1.(高位)


7 B3 A8 C. a3 j0 b0 d6 T1 U以下为10进制，想得知＃101有几位数的小程序
+ u* B+ U. `& {% l5 K1 G- w0 ]% ?#101=1234.
' I' z- i9 f2 m- r# i# E3 @% Y0 |#10=1.(用1去比→用10去比→用100去比....)
#30=0.
" g8 h' o. T2 x$ f" c, x  Q% B. R1 aWH[#101GE#10]DO1
#30=#30+1.
* _8 l5 G8 L7 Z* U+ V#10=#10*10.
+ t8 g; W  ]4 d/ pEND1
7 S. p8 B  f  W9 S#30=有4位数(#101有4位数)
M0

羅蓋仙

1 T5 l( v& Y# c7 P: V3 L如果嫌10进制转换成2进制，占了太多变量番号的空间
! L# _) {* x0 h: P我把它修改了一下
  `$ f& h, h* L3 O#1=181.
#101=ABS[FIX[#1]]
9 z- U/ q: v+ j+ V#10=1.
#500=0.
; f- f6 Y  u# A9 g$ rWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
( J" _4 n$ Q, E, M. u% d#10=#10*10.
* r3 g  q* ^" W: B$ y4 c  JEND1
% n3 q) J+ M/ b$ E% S( m1 ?M0

结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

, N5 k+ b+ O5 ~4 X" d+ v! X这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
1 w4 W: A: x* q% v0 ?: Z& h#10=10000000.
2 V; v6 |0 M0 C! M& E#31=FIX[ABS[#1]]
8 o: A' l0 @5 K, e#32=128.
( f6 u+ `1 m9 f6 f8 N. PIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
+ t/ [# ?9 d- r8 l: p#33=FIX[#31/#32]
& r; E0 [3 s5 V2 [#500=#500+#33*#10
( }6 T  @' [  D. L/ S4 n" q#31=#31-#32*[#33EQ1.]
. u8 W9 a2 P( B$ O6 a#32=#32/2.
" R5 q8 w4 K/ w4 I#10=#10/10.
END1
M30
+ f. c4 i* Y- B  _4 j% c( ~
还是有改良的空间

bruceding

回复 2# 羅蓋仙
  b, H1 p- f& c1 l

& V9 X$ W! [. i+ B) {" I; m1 {    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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