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

羅蓋仙

* p$ V: \9 r( n9 g& z2 G2 D) B
4 e0 m, V  L( ]6 A9 K4 `* T

  A+ n4 t" t5 E$ A十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
' {0 b% c$ \3 D  M3 w#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
' W* Y: H# s' h#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
; i" u, q1 @2 o1 N#33=#33+1.
& s+ X! Y( t+ I( z* gEND1
$ ?6 L6 o6 X- E; S, @: zM0

结果：
#501=1.(低位)
2 Q  ?- e5 l) _, o6 a#502=0.
3 u; S* |' Y; Y  D#503=1.
#504=0.
# @8 Z6 H8 `$ v4 k#505=1.
#506=1.
% t0 F6 y' U! i( T9 z1 ^#507=0.
7 h& w% `0 _! A#508=1.(高位)

/ D+ w# c3 x  ^9 D
以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
% b" o# O( b! ?7 v8 J#30=0.
8 P0 [' N& P* @" t. q2 fWH[#101GE#10]DO1
#30=#30+1.
& s  O% B6 Y% ^# H4 v: s#10=#10*10.
END1
" K: ~& b% U9 F#30=有4位数(#101有4位数)
( \5 G* Z& s. h- AM0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
* G; c2 }6 L3 X* D#1=181.
) Q4 K" M, O; ?#101=ABS[FIX[#1]]
7 t2 ^6 t0 O$ }9 W) m2 x#10=1.
#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
: h' [! ]% H2 v( K% s0 O#10=#10*10.
END1
M0

: E8 C2 R. H! @5 a& H结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
4 E! B2 ^! S3 T% a#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
7 A1 b+ t$ ?0 ?2 FIF[#31/#32GE2.]THEN#3000=200.
2 {. v0 T7 j5 _1 \6 E: i2 ZWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
% O. O9 \" C/ ]#31=#31-#32*[#33EQ1.]
#32=#32/2.
+ M* r% I  e, Q- Q3 {8 W# ^#10=#10/10.
8 n) z$ q5 y" oEND1
M30
0 G( k5 ]& p" |0 i
) S2 r$ S' R* j7 p5 s还是有改良的空间

bruceding

回复 2# 羅蓋仙
/ c+ Z# j5 c4 l. I: ?" B# P; ^

    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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