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

羅蓋仙

. C9 F$ s! `. b$ f1 C

( t' A$ j0 z; d8 Z7 V十进制转换成二进制：
# d8 p; R6 X  ]' P0 L' \/ U! {#1=181.(欲想转换成2进制的数值)
6 w- M' ?: `6 p. i#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
0 O! \  G5 k6 f& @% Q#[#33]=#101 MOD 2.
6 m9 v6 P# b6 a1 r, L#101=FIX[#101/2.]
#33=#33+1.
- y' {1 R6 ^% x& {6 u/ @$ wEND1
! Y! U- E4 o' X$ W7 O* V; t8 U6 QM0
: @3 Y5 q* g' ^3 D% }. W
9 T' H! R. z5 y9 u- _; K; ~4 G结果：
* u( M/ W# N5 L0 d8 F' }#501=1.(低位)
#502=0.
#503=1.
7 }; d+ J" q4 I# @4 g#504=0.
& y- j( \7 ^- ?  [; i& d#505=1.
% Z& @( G3 M1 h& a) D#506=1.
#507=0.
5 p; @, t& [& ~9 @, S4 ^#508=1.(高位)


+ Y9 E' `2 t/ A' B2 ~' {  x2 b$ T以下为10进制，想得知＃101有几位数的小程序
7 u) H% o/ S% O; ^+ C% ^% g#101=1234.
8 z& @; _6 z. b3 N3 C# U#10=1.(用1去比→用10去比→用100去比....)
0 X; f" @6 v' B$ w$ Q2 w0 D# k4 t#30=0.
1 ]& X3 P, k  K/ lWH[#101GE#10]DO1
#30=#30+1.
#10=#10*10.
% x) K, h4 Y6 n- rEND1
#30=有4位数(#101有4位数)
% ~1 z# A) Y. f5 sM0

羅蓋仙

" t8 S! I  a8 a/ N如果嫌10进制转换成2进制，占了太多变量番号的空间
' C+ C- w- f2 J我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
* ]" b: q# L1 _. k3 L8 V- I5 U#10=1.
#500=0.
6 M4 W- a- v  c2 w7 A4 sWH[#101GT0.]DO1
1 e" o6 H9 D* a6 w/ W#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
( A7 e* x; ^& W1 L2 qEND1
% s' |( G. a& ZM0
- x+ l( ]4 h9 ^. i
结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

/ y+ [: C1 t+ z$ A0 q& a这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
6 G- X: h& e5 G5 Z! C; ?/ }＃1=181.
#10=10000000.
$ ^$ m4 p6 N6 D#31=FIX[ABS[#1]]
#32=128.
% }+ O$ Y, Q4 F% WIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
) J) X& ?! h6 C3 m3 H1 x#33=FIX[#31/#32]
#500=#500+#33*#10
5 J8 k8 F" F% {3 _. n4 T' |" X& i- s#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
- S7 b8 g+ h7 D* MM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
: E4 x4 C( I, U' V

9 ~( ]' V8 C9 X+ ?9 G* ~: c; h; h( c    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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