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

羅蓋仙

十进制转换成二进制：
" D' C0 o# l. J3 X  s+ r0 Q#1=181.(欲想转换成2进制的数值)
9 \/ C; K/ }) c  G! v#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
6 u7 r/ G  S  U4 Y0 D' y3 gWH[#101GE1.]DO1
& j  O9 u4 I3 E#[#33]=#101 MOD 2.
+ r8 q. J: I7 O: v, a1 E: [+ r#101=FIX[#101/2.]
' J: M) @0 s6 T$ Y* ]4 v#33=#33+1.
- y/ L+ K& o7 c+ v3 s% H/ BEND1
4 J/ O5 t$ F2 ?7 ~M0

结果：
, D7 X1 P. s4 T( p* _; S) g' w#501=1.(低位)
& I$ D% R: I8 o: H#502=0.
#503=1.
#504=0.
#505=1.
#506=1.
' ~. E$ K+ H+ U8 J6 q2 v#507=0.
#508=1.(高位)


8 ^5 d7 r% d2 _: T2 b6 }* Y  F1 R以下为10进制，想得知＃101有几位数的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
3 ^! |+ [: @9 [5 _: c/ Z7 D#30=0.
WH[#101GE#10]DO1
/ x( Y  R0 E6 e' G# I! c/ c8 \" _4 \4 }#30=#30+1.
* W9 Q$ ?  n1 U0 K#10=#10*10.
END1
8 _4 M2 T; m. z9 k' H0 N  i#30=有4位数(#101有4位数)
' Q) d5 X, v% Q8 k5 N- T' r+ ?M0

羅蓋仙

' ^: C8 f1 F: s8 E1 {$ C2 Q' E( s
如果嫌10进制转换成2进制，占了太多变量番号的空间
我把它修改了一下
1 O; _) a# N# q! s#1=181.
5 K. h. N& c- ]  g- x' b9 ?#101=ABS[FIX[#1]]
#10=1.
& y% z. {2 }. `& \' q+ ~2 P#500=0.
WH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
" b7 F) Q/ c6 g6 ?. |END1
9 ^5 j2 Q/ [8 a& JM0

. I! W* O# a' V: J结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597
( z( T- O. i8 f, M7 b7 f" ]
5 p7 ~; O* B2 W4 }6 P( h这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
3 w' \$ N. e, m: Z$ F1 ?- f#10=10000000.
#31=FIX[ABS[#1]]
  X. W- I8 l- d4 N. Z#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
4 _# l  m1 U& [0 w: F2 K#32=#32/2.
#10=#10/10.
* g: _  ~- K  a6 h. e" AEND1
& s' ?9 }8 N. D5 QM30

还是有改良的空间

bruceding

回复 2# 羅蓋仙
. \8 u5 D; C( }. M9 l$ F. G( _2 {

    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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