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

羅蓋仙

- y1 ?  ]3 f6 e8 m

登錄/注冊(cè)后可看大圖

十進(jìn)制轉(zhuǎn)換成二進(jìn)制：
#1=181.(欲想轉(zhuǎn)換成2進(jìn)制的數(shù)值)
#101=ABS[FIX[#1]]
2 ]" X5 t) ]& c' W#33=501.(儲(chǔ)存到#501～)
WH[#101GE1.]DO1
2 x0 R) a' z# W" r#[#33]=#101 MOD 2.
& F/ |2 o3 h) }4 i4 `#101=FIX[#101/2.]
( i7 l7 l9 X6 |/ Y1 ^6 i& @' @6 C#33=#33+1.
4 j/ I) m. t, Q4 M) v7 bEND1
) z" l* c0 n; D1 I& d3 DM0
3 }9 N( T- r% d" c
結(jié)果：
#501=1.(低位)
#502=0.
#503=1.
% s' U( {8 j/ s/ q  B4 C* [; P" t2 P#504=0.
#505=1.
0 S9 b. i2 A+ v#506=1.
& b3 `0 {; X  [7 b0 W* u& b0 O9 T7 u#507=0.
#508=1.(高位)
* N: v0 E5 B. k0 o1 V8 Y$ |. k

7 v: g; S' K5 ^, F  q( E以下為10進(jìn)制，想得知＃101有幾位數(shù)的小程序
#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
: o+ G2 g9 Y/ y  k# T#30=#30+1.
#10=#10*10.
0 V6 K- B' r! f* ^END1
#30=有4位數(shù)(#101有4位數(shù))
8 O: B. d; }9 L3 rM0

羅蓋仙

; l* m" N, J: p; G4 j8 S) n7 r& ~如果嫌10進(jìn)制轉(zhuǎn)換成2進(jìn)制，占了太多變量番號(hào)的空間
我把它修改了一下
#1=181.
& x7 K7 j1 h/ ~% @: G#101=ABS[FIX[#1]]
) k  z3 B+ I. O# {1 i+ \#10=1.
7 P0 E# T, a8 q. \#500=0.
$ z* x" @+ o9 CWH[#101GT0.]DO1
( z6 b% M2 D! P4 \9 ]#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
: J$ C" Q# b2 G7 z$ k4 KEND1
M0
4 N  C$ c1 _6 Z- h
7 S2 \& I& t# V結(jié)果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復(fù) 4# ois90597

- ?  v) O1 l$ x6 E: q) Y" f這是我那臺(tái)灣某網(wǎng)友，我們互相分享討論，他的寫(xiě)法感覺(jué)比我好：
＃1=181.
#10=10000000.
5 K; r$ p  S: E, R#31=FIX[ABS[#1]]
0 ~) l$ V, v  H2 ^  \" `, M#32=128.
IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
4 |' |7 T* L- U#500=#500+#33*#10
8 }, M% K2 {" S! v2 N$ d: r#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
( F/ K4 O6 Z( ]' Z) H+ P% kM30

+ Y# M& z2 Q' Z$ I3 D還是有改良的空間

bruceding

回復(fù) 2# 羅蓋仙
3 v& r6 Y. H, ]* e6 w9 W( }5 j  v5 g7 @
9 s) f3 i# O) R! w. S
* w4 c4 Z& {1 i! I& m    精辟

zhangjun

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

wslaoa

好久沒(méi)來(lái)了  挺不錯(cuò)

getto

很好，就是看不懂

ya_blueang

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

919616

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