十進制轉換成二進制的小程序

羅蓋仙

8 d& d3 _$ w$ k

登錄/注冊后可看大圖

" {3 [$ S- ?  p9 P7 U" `5 U
2 V$ Y3 \) j! S" A& d十進制轉換成二進制：
) n& u6 V9 m$ v* E. a#1=181.(欲想轉換成2進制的數值)
% l3 v! g  z# S" o) P5 R1 K+ x#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
, l) \9 a% N. _, iWH[#101GE1.]DO1
8 R" h1 o' S+ _' b' J+ X* x#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
9 M  V7 T# Q% E" |#33=#33+1.
END1
+ N, P7 R* `# }% ]0 QM0
* X9 b0 Q4 c, k& G3 H
結果：
#501=1.(低位)
#502=0.
#503=1.
#504=0.
% c/ Z! |3 v  Z2 f. B! g) C6 t. n#505=1.
#506=1.
& d5 I3 z6 ]( [: |- J#507=0.
#508=1.(高位)
/ g! F$ d! ^( x  p3 M0 a: O

' C3 ~0 b/ L$ Y! ?以下為10進制，想得知＃101有幾位數的小程序
* ?* G% h* ?) E( l$ }  k#101=1234.
* t- N  [  q. [#10=1.(用1去比→用10去比→用100去比....)
#30=0.
WH[#101GE#10]DO1
#30=#30+1.
" r  i  p) i& F" C: I* R' n#10=#10*10.
END1
% b* ]$ J, e+ r5 Z' O' r#30=有4位數(#101有4位數)
1 f1 U, C7 i& T/ p: q0 sM0

羅蓋仙

5 h6 ~3 [9 {6 k3 r8 `( _/ h如果嫌10進制轉換成2進制，占了太多變量番號的空間
2 y. b' {( w% |+ Y, O我把它修改了一下
- K" u" l, Z4 V#1=181.
+ E% q7 K* ~5 o5 o; V# H% {. S#101=ABS[FIX[#1]]
/ o8 X  Y4 E+ |4 Y$ T4 }0 [#10=1.
% m/ X( D8 F% Q+ N) Q. o1 }#500=0.
- O5 ?3 c" {2 s  X) |6 v% U3 KWH[#101GT0.]DO1
0 h" a  A5 _- z) k3 I0 J#500=#500+[#101 MOD 2.]*#10
; n( h& @/ v% J* T#101=FIX[#101/2.]
#10=#10*10.
END1
( R  a7 k8 w/ R  |% xM0
' x) z! s$ S- c
結果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597
8 ]/ j5 ~" c" e& k- M
% a, ~8 L1 x% \5 |7 H9 P這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
! ^9 O3 X- ]) p$ ^9 w/ D2 z＃1=181.
#10=10000000.
+ H$ E. w7 i4 \1 A4 Y% V5 m#31=FIX[ABS[#1]]
+ [$ i$ x% b/ D. k#32=128.
* V* K( e* p5 D$ dIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
#33=FIX[#31/#32]
- l" M  p2 ]/ Q, w#500=#500+#33*#10
4 D4 y* A: _( O1 o2 x, S& t#31=#31-#32*[#33EQ1.]
#32=#32/2.
8 t- M, ^- S. D& H- N$ @+ ^#10=#10/10.
8 \. r% f8 ]! I% I4 C; m. ?( M) y) h8 v) JEND1
- y, n6 \/ m  l4 GM30
  z8 Q/ d( r4 R' c6 ~
" j% W2 D/ d" p8 O* l還是有改良的空間

bruceding

回復 2# 羅蓋仙
/ j( F$ H' c1 c- Q" F& B5 f
7 m3 G; M6 O  r3 r% D
6 q2 Z. U$ q; a/ e2 _    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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