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

羅蓋仙

1 q/ |  f- I) w

+ _! ~/ z: `. ?8 D( R# L
十进制转换成二进制：
#1=181.(欲想转换成2进制的数值)
#101=ABS[FIX[#1]]
4 L2 V, c  g6 R6 ^9 [- ~#33=501.(储存到#501～)
WH[#101GE1.]DO1
) }0 m* h! c3 p+ ?8 U, s$ J& v#[#33]=#101 MOD 2.
3 ^' n, R5 u0 I2 F# f) N* @#101=FIX[#101/2.]
! ]( W! k, A7 m* k9 A#33=#33+1.
. |7 Q. Q+ w! T' Y  X0 SEND1
M0

结果：
#501=1.(低位)
- e/ F# m, k( ]: L7 B# i+ ?% p#502=0.
#503=1.
#504=0.
+ ?% X9 l+ y3 ?#505=1.
#506=1.
#507=0.
#508=1.(高位)


以下为10进制，想得知＃101有几位数的小程序
#101=1234.
" W9 t+ g! O+ I#10=1.(用1去比→用10去比→用100去比....)
* N$ m9 x1 m' F+ @) J& ]7 [# ~. T#30=0.
' G6 k4 ]- I5 ?WH[#101GE#10]DO1
#30=#30+1.
$ T; I! T- i0 F, O6 R#10=#10*10.
END1
#30=有4位数(#101有4位数)
M0

羅蓋仙

7 S  ?2 H: F" i1 V, @! [% S5 y
如果嫌10进制转换成2进制，占了太多变量番号的空间
. U6 r+ f& C2 @3 a2 W$ n7 T, o  @我把它修改了一下
#1=181.
4 n/ A# m  G9 N9 Y) ^7 H#101=ABS[FIX[#1]]
6 Q5 F# l. [7 D( L4 W- m$ K#10=1.
: p! y0 A9 u& I: ^#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
END1
3 J, M: g- n; I: |! C6 u0 E+ YM0
+ ^& J' A4 }) s; h
结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
2 ~% }9 }4 g$ c3 Q1 \& j  {) }6 L
4 i8 i- Z9 u2 b6 j这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
. X9 M. _1 p, d* u  \＃1=181.
4 E1 h; r; f& w# \, p, E! T#10=10000000.
7 f1 \$ }3 z1 q& d1 `9 \8 x#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
  p$ w6 S( {9 j#500=#500+#33*#10
+ q8 f! f7 U2 U# b4 {0 G. B* W3 o#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
1 H% D5 ?) `' ~* s! @M30
7 \! p( [- A* E1 M1 p7 x3 C1 e
还是有改良的空间

bruceding

回复 2# 羅蓋仙


    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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