十進(jìn)制轉(zhuǎn)換成二進(jìn)制的小程序

羅蓋仙

8 N# L# t( X; q, V; h/ C' m$ H& x
2 i: c, [% g0 V

登錄/注冊后可看大圖

1 Z, R: }6 [0 [5 }: Q7 F8 f十進(jìn)制轉(zhuǎn)換成二進(jìn)制：
#1=181.(欲想轉(zhuǎn)換成2進(jìn)制的數(shù)值)
& F# G) q  U/ N* d0 q+ Z8 L  m#101=ABS[FIX[#1]]
6 l' U# X+ k: t4 g! B5 m#33=501.(儲存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
! y, p+ y5 w! k8 f  Z#33=#33+1.
END1
M0

結(jié)果：
8 u( ^; Q  G( S. Y9 c#501=1.(低位)
#502=0.
+ U7 d; R) X4 P6 [0 Z7 Z#503=1.
  x4 W. \3 ]6 M! Y4 o#504=0.
' a1 N% ?8 |3 s( U; c3 \0 G1 [" T#505=1.
- c3 o  L# V! P6 l1 G8 U#506=1.
#507=0.
#508=1.(高位)
7 K0 k1 m) b- S) C: v4 c# A

: {/ t: i/ y; ~7 e6 ]以下為10進(jìn)制，想得知＃101有幾位數(shù)的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
" q# N' l8 J) ?, r0 [WH[#101GE#10]DO1
; L: S. b+ X3 P* R7 K#30=#30+1.
#10=#10*10.
END1
#30=有4位數(shù)(#101有4位數(shù))
% J9 J3 S: u  j& d# t: w. L4 eM0

羅蓋仙

2 m+ B7 f5 H  ~; a" p% k9 B如果嫌10進(jìn)制轉(zhuǎn)換成2進(jìn)制，占了太多變量番號的空間
我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
( @, X3 C9 w% m& g+ y5 c/ T" v" z#10=1.
) P( r, {# j1 L5 \- [& ~#500=0.
WH[#101GT0.]DO1
2 L5 ~5 \  H/ ~: o#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
END1
3 D* {3 e; j: m6 J' SM0
; [) n% X1 u. u! M6 r/ h  @: g4 ^
1 h' C/ O6 s$ ~  J6 z結(jié)果：
* o8 H7 X5 L: e, a#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復(fù) 4# ois90597

& l0 f  O: ^' J3 s& l. O! b這是我那臺灣某網(wǎng)友，我們互相分享討論，他的寫法感覺比我好：
＃1=181.
#10=10000000.
- D! y4 E9 L' l7 H- W6 W! t#31=FIX[ABS[#1]]
" Z( i  ^5 a) M  ~#32=128.
* }) Q2 v) T- c9 k3 ~0 I  u2 vIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
  ~4 ^: q# s- ^/ c#33=FIX[#31/#32]
#500=#500+#33*#10
+ U$ c2 B* q. g#31=#31-#32*[#33EQ1.]
#32=#32/2.
" |# p6 h" B% m; |$ [; F5 S2 @#10=#10/10.
END1
M30

還是有改良的空間

bruceding

回復(fù) 2# 羅蓋仙
, M: M$ z$ [+ q# I$ e3 n& H6 |
) Y8 A8 W  r& v
    精辟

zhangjun

不錯經(jīng)典資料，值得學(xué)習(xí)

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學(xué)習(xí)，謝謝樓主分享

919616

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