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

羅蓋仙

十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
* f' L. r1 z- c$ v#33=501.(储存到#501～)
" T' h8 G  `2 x0 a6 Y( `WH[#101GE1.]DO1
1 R8 ?& Z7 W/ O1 ?9 a#[#33]=#101 MOD 2.
$ i5 C( r) I5 K! H#101=FIX[#101/2.]
#33=#33+1.
END1
M0

结果：
# q) ?  O6 X3 Z#501=1.(低位)
#502=0.
#503=1.
#504=0.
4 M" B0 u0 J7 J8 z* E& T" p#505=1.
$ t7 ?6 z( P$ ?#506=1.
#507=0.
4 s6 P, y7 `- x#508=1.(高位)
, V# [8 ^; R/ [8 Q+ w9 j* b
  ^# g; c# ^- i( i. a) H
4 i1 P! v3 W* ]9 G以下为10进制，想得知＃101有几位数的小程序
( j9 s/ X7 S& c/ t#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
3 l" g% p8 ^$ S4 R* q# vWH[#101GE#10]DO1
" x. G$ [7 Q+ l) v4 E#30=#30+1.
9 F" X. \* Z( p" v: f#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
#1=181.
( B$ D1 z, i; {# F) S#101=ABS[FIX[#1]]
#10=1.
5 W# h: n. k1 ^6 d#500=0.
WH[#101GT0.]DO1
2 v0 P3 V* z* V7 R+ e# T) E#500=#500+[#101 MOD 2.]*#10
  u) |% {% R% d  {5 N2 \* w$ U8 C#101=FIX[#101/2.]
#10=#10*10.
- r; u8 r) K; S  R9 fEND1
M0

结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
( H) q0 Z1 }9 m( K6 Z* g
这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
6 O2 }' Z! K- f#32=128.
/ \) f) ?! H& \$ B0 `# }- g( wIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
5 f! }5 \# v5 m7 ^: _#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
+ G/ \0 ^$ V" d- g, a8 ?# S#32=#32/2.
6 `) L1 }' ?# k0 G- S#10=#10/10.
END1
6 e( U' d: v1 [+ F( ?) M' o" rM30

& `" f( b8 y+ k" z还是有改良的空间

bruceding

回复 2# 羅蓋仙
3 }4 [- x% O2 ^1 B' X

    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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