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

羅蓋仙

/ h2 i$ E0 D( X8 t" m* c
9 G: M0 I0 j4 J0 o) B, @

登錄/注冊后可看大圖

9 g7 R2 r3 K2 R, F/ `% {
, g3 |  A2 H9 x- V十進制轉(zhuǎn)換成二進制：
9 [5 K5 b; O. [0 Z#1=181.(欲想轉(zhuǎn)換成2進制的數(shù)值)
( q+ h  l+ ^9 o! Y9 @#101=ABS[FIX[#1]]
4 d' t5 p, [* ?* e#33=501.(儲存到#501～)
" g& S: Q" K- wWH[#101GE1.]DO1
# T) N4 l; R# U1 q! Q0 f) b#[#33]=#101 MOD 2.
& N5 o2 l$ m, h8 R- `% M4 \#101=FIX[#101/2.]
- ^2 Z9 g/ H( l2 g7 x' z/ W+ U7 J5 D( p#33=#33+1.
END1
& ?9 Z3 p  L  y$ k# v% }- g) wM0

3 l% k; A/ g! D2 r6 d結(jié)果：
#501=1.(低位)
#502=0.
#503=1.
2 T! ^" c( ]' ^* r1 c% M#504=0.
$ F4 }- W7 g( J$ M+ ]: E4 p/ ~#505=1.
#506=1.
* H, E6 E6 p; _% n7 Y! O2 F#507=0.
#508=1.(高位)
9 S+ y# Z2 A  w; }2 d' F

以下為10進制，想得知＃101有幾位數(shù)的小程序
#101=1234.
& ?0 k. E6 a7 A$ t0 h# k#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
3 S+ X# e# Y, `( I#30=#30+1.
. c/ p  X2 [; L! m: M8 |#10=#10*10.
END1
#30=有4位數(shù)(#101有4位數(shù))
/ [: ~1 Y6 p4 h0 H0 B) ~M0

羅蓋仙

- _4 {) n, ]7 S4 P7 k2 ]& ~( ]9 Z$ D
9 \  d0 Y% O2 F+ D0 t% C9 N& f如果嫌10進制轉(zhuǎn)換成2進制，占了太多變量番號的空間
4 ]5 F5 R8 G9 e9 `8 ~我把它修改了一下
5 j1 R. L5 t5 Y#1=181.
#101=ABS[FIX[#1]]
' f0 |) l* p; y" q* C  Z0 G2 J9 ?#10=1.
' I9 b1 g2 L+ d#500=0.
0 u5 W1 s) B0 ?" aWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
. d2 N8 n0 c! a4 y/ O#10=#10*10.
END1
/ X8 Z3 _$ O) _8 E' V( pM0
' t- V( k7 i$ q$ ]7 F+ ^; H2 i: P
結(jié)果：
#500=10110101.

丹存印才

真精神！?。。。。?/td>

羅蓋仙

回復 4# ois90597

4 C1 k& {4 U1 [6 I, c: |5 _這是我那臺灣某網(wǎng)友，我們互相分享討論，他的寫法感覺比我好：
＃1=181.
#10=10000000.
6 W8 ~( i- d8 U; z9 i4 {#31=FIX[ABS[#1]]
$ C+ n) j' G7 p9 ^( e#32=128.
# g+ M, C6 P( A6 @8 OIF[#31/#32GE2.]THEN#3000=200.
& m$ ]2 `) P9 N9 H+ N0 M# LWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
7 a! \- M) s% W, D#500=#500+#33*#10
! k0 I( @' R$ B( e3 C( G#31=#31-#32*[#33EQ1.]
#32=#32/2.
, g& B  ]% @0 n% G0 c#10=#10/10.
END1
M30

還是有改良的空間

bruceding

回復 2# 羅蓋仙
+ {2 _2 A2 f8 Y

- ~; i/ k( O  |( D8 ]# v) g1 ~/ C    精辟

zhangjun

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

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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