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

羅蓋仙

& }( q3 |1 R" M7 j6 L
  Y3 P$ g0 ~" W# o6 B% @3 D$ O' ?十进制转换成二进制：
# x- W" _7 P$ {4 m: x( A  J#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
% I; r" z- K, `. d#[#33]=#101 MOD 2.
: }* c4 S# p, X) G#101=FIX[#101/2.]
#33=#33+1.
( q: |0 Z! q* m3 `END1
- V: m% J1 B% J- a1 QM0

! U7 z. Q' L, ^0 Y, L" ?. u结果：
#501=1.(低位)
1 b- Z% M8 n, Q  E& l1 n#502=0.
#503=1.
2 g5 w: |! V) m# i( T) _#504=0.
#505=1.
#506=1.
#507=0.
#508=1.(高位)

# k, E1 u: ?, F; v5 d- M8 p) Z
% b+ {3 D6 r; R: ]: ]/ x$ l+ w% A以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
8 i- R' \# a& q9 _, y) f9 ^#30=0.
WH[#101GE#10]DO1
) I2 Z) f" N4 [! y- E& ?#30=#30+1.
8 _9 r+ ^$ Q+ x7 l#10=#10*10.
6 r+ {5 @, L& p4 W2 xEND1
3 E+ |* q; p) `& k4 y1 v/ O#30=有4位数(#101有4位数)
6 z: J, Z- k( \) g5 [( ?- k3 a" oM0

羅蓋仙

7 \. E$ X6 t0 S
如果嫌10进制转换成2进制，占了太多变量番号的空间
* z' H1 l6 m, o我把它修改了一下
0 L- ^. k& |, w. w! `0 _. i#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
4 ?8 q" S% g  b  s& @" EEND1
+ V. \; C% y0 N& `: A: @M0

结果：
3 }- t, ~( z" N* R3 _7 i% h! f#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
0 N8 c6 X) O+ q% s＃1=181.
#10=10000000.
2 D# M" E  q5 E! J2 X+ l0 i8 U. u#31=FIX[ABS[#1]]
! {" P9 X$ t: \6 r; G#32=128.
) R' }8 j6 q; }- _IF[#31/#32GE2.]THEN#3000=200.
0 p$ |% ~  c( c6 k- P) n6 D3 Y. RWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
$ Y2 k  Z# r/ f* \#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
- h1 ?7 n# |  l! A  Q' j/ r8 [& e5 k#10=#10/10.
3 s. [7 d. S2 K5 C. }2 ?* AEND1
7 C2 j# c: }, c1 [( M; {5 f, u( J6 ^M30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
' _' L& i/ ?3 U7 `
: S; }8 X- k3 H4 C
    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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