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

羅蓋仙

8 Q% ^. f3 E' {+ `" o! W7 T% }# f' k- D# r

十进制转换成二进制：
( F/ O% ~/ Z: I' n* T#1=181.(欲想转换成2进制的数值)
5 D& d6 ^4 V; l5 u4 [& \$ F#101=ABS[FIX[#1]]
#33=501.(储存到#501～)
WH[#101GE1.]DO1
8 s  e% C. Q, I1 c& g7 o* H#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
) G, j# P+ [- q8 e' N: W+ |#33=#33+1.
END1
. l8 W, q# I; J( CM0

" A/ u: w  a. r' |结果：
& \: ^" E: J6 ?! b4 z0 c4 n' I#501=1.(低位)
#502=0.
6 v( S5 N  x  z. c, K$ K- ~. C#503=1.
#504=0.
& f  t2 j# m# g1 N5 Z: \#505=1.
  |: n/ r& b! K" [7 ~" X#506=1.
#507=0.
#508=1.(高位)
0 N. g4 q, ^2 Z1 c% I' a
. V' {' _7 n4 \4 z' ~, s! U& U
以下为10进制，想得知＃101有几位数的小程序
  ?+ q0 v6 R/ q: c* e0 P#101=1234.
# d+ i% L4 W7 R. g0 I6 ?+ s4 x9 h#10=1.(用1去比→用10去比→用100去比....)
# }4 d$ T" }7 n* {* j; Q#30=0.
WH[#101GE#10]DO1
#30=#30+1.
, w8 F8 G- {* T1 C) @; K' c/ x#10=#10*10.
' i; y6 M0 g  h7 @; pEND1
#30=有4位数(#101有4位数)
M0

羅蓋仙

  @) Q( _. l# E  P
2 D& r8 h0 _* \! i  |- E如果嫌10进制转换成2进制，占了太多变量番号的空间
, W4 Q7 s! ^+ r; Y我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
6 y- o: D  t/ u#10=1.
#500=0.
: \# I! A( ^% p5 o6 f% dWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
3 q0 S/ a  ^3 [. A0 Q#101=FIX[#101/2.]
#10=#10*10.
7 N. c9 c8 v7 I8 Z: i' xEND1
M0

, Q: f3 V2 y" Q3 @0 h结果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回复 4# ois90597

2 x: V- z; r. ~这是我那台湾某网友，我们互相分享讨论，他的写法感覺比我好：
＃1=181.
#10=10000000.
# @5 ^; L1 }) G& X0 L#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
+ p' O/ w/ o; S* t2 L$ e# t  _WHILE[#32GE1.]DO1
: E: z, h! s) Y; f  K#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
1 F1 Y7 W- x2 w  G% p) s# p' |, ?#32=#32/2.
#10=#10/10.
3 D' g$ b* r0 fEND1
1 a2 m7 Q; X7 I6 T" N& TM30

* V9 N$ }7 E: u! ^4 e/ I% Z还是有改良的空间

bruceding

回复 2# 羅蓋仙


6 Q! F, e; q. v" ~, H$ ]  O    精辟

zhangjun

不错经典资料，值得学习

wslaoa

好久没来了  挺不错

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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