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

羅蓋仙

! c: T* L; g! E$ b5 @( p

登錄/注冊后可看大圖

: Z# X+ H1 S. `2 t
十進制轉換成二進制：
) {& O% n" _& x1 ?( T/ X#1=181.(欲想轉換成2進制的數值)
( }4 K% k* l7 h7 ~8 @#101=ABS[FIX[#1]]
5 B" K7 B9 F2 [; [#33=501.(儲存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
" p+ v0 h) V* H7 D5 j#33=#33+1.
END1
& C* c: {! g' tM0

結果：
#501=1.(低位)
6 n4 X+ l1 b7 u3 A7 t) P# n#502=0.
#503=1.
#504=0.
#505=1.
#506=1.
+ k' i$ ]& N$ U0 \#507=0.
7 X# s8 _. l9 H8 t; ]#508=1.(高位)

* X7 x2 o4 k( `- ?( d0 n9 g6 T; B: R
9 R7 {7 ]( Y7 a1 l5 Z- u以下為10進制，想得知＃101有幾位數的小程序
#101=1234.
8 o' p) g# ~1 G$ T: D/ \7 |#10=1.(用1去比→用10去比→用100去比....)
3 \0 l( B1 V* U% r3 \#30=0.
WH[#101GE#10]DO1
+ p+ h$ W% W" @: ~$ y* y#30=#30+1.
#10=#10*10.
END1
* R$ M4 p' s! W" H4 [% {#30=有4位數(#101有4位數)
0 p# }) [) e# o1 U$ H5 L& nM0

羅蓋仙

* a0 f* S/ M* ~+ j  R
0 ?8 ?7 @: S* ]: q, {如果嫌10進制轉換成2進制，占了太多變量番號的空間
我把它修改了一下
4 z1 ]1 m6 O$ T# H. J; `: b* F6 x#1=181.
' e  Q2 z4 P: _: X5 R) ~#101=ABS[FIX[#1]]
#10=1.
% @5 D0 N+ M) _( I#500=0.
WH[#101GT0.]DO1
) I+ Y# I9 ~# g% X& ?! j6 F#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
# a  I8 q# e% s' }' G" t- J# O# V* j: G#10=#10*10.
END1
M0

結果：
  y% p  l0 N9 [' R#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597
% X3 K3 @5 H; _5 }9 d
這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
( F* q( j- w9 k- N, f1 J7 S" Z! }1 j＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
- P6 \- A9 q% {: d; R( x" PWHILE[#32GE1.]DO1
" @2 s8 g' N5 Z: B: Q  }#33=FIX[#31/#32]
#500=#500+#33*#10
) H. ]$ A8 c  S2 @. Z$ c) b#31=#31-#32*[#33EQ1.]
+ t9 W- z6 c; W: G+ {#32=#32/2.
2 o9 W- g* k1 {' i$ ~#10=#10/10.
5 _& h0 R* Q/ d6 {END1
M30

還是有改良的空間

bruceding

回復 2# 羅蓋仙
) F, z9 M. J, P+ f+ _' W' z

    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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