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

羅蓋仙

# ~5 h: U+ z* p6 a; x( _0 s  b

登錄/注冊后可看大圖

- T+ h+ V% l! h( n/ o9 q, [
十進制轉換成二進制：
, @. [- T$ @7 D8 ]  i6 e( _+ v' i1 U#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
WH[#101GE1.]DO1
# \: {$ H0 ?* ^. E+ A- }' O#[#33]=#101 MOD 2.
% F4 Y+ i3 c% P, ?$ G6 R#101=FIX[#101/2.]
5 O# E6 K3 i6 U+ B8 ]1 ?4 e#33=#33+1.
1 @2 G5 O1 b8 }6 F" XEND1
( K" e. f1 n4 a( m6 A4 KM0
9 X, J7 V- l, R8 t/ {2 [4 O
  |4 O* q# X; M6 X  W結果：
1 h0 T) l% D6 i2 R# B#501=1.(低位)
. Y) g0 a$ k: l$ i6 R#502=0.
#503=1.
7 C" z  p$ u; \1 f. H' U#504=0.
0 A% @* e3 D( z0 B# p0 X0 ^#505=1.
4 T3 A' l; @! M' |  O  {! t#506=1.
8 M; l' I6 n( E) G$ Y#507=0.
  Y  V/ ]% i* H7 h& |& {. n#508=1.(高位)


以下為10進制，想得知＃101有幾位數的小程序
#101=1234.
4 @4 A* j, u( ~7 b$ e1 G#10=1.(用1去比→用10去比→用100去比....)
  J; t: Q+ s& K2 E% X8 L: t. W#30=0.
WH[#101GE#10]DO1
5 N) C4 I. V0 L& @9 _, L+ D+ O; S#30=#30+1.
) `( V- V9 n9 j  I, f5 W. H#10=#10*10.
END1
#30=有4位數(#101有4位數)
M0

羅蓋仙

' p4 T" h$ Y9 H
如果嫌10進制轉換成2進制，占了太多變量番號的空間
我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
- d1 A* t3 B5 r3 W( ?" u! @#10=1.
#500=0.
; ]$ x1 g, G5 z+ G0 lWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
#10=#10*10.
END1
3 s! ?( k8 B! Q3 O7 e4 C: X. IM0

7 P3 b: _# }: ?6 J- {結果：
#500=10110101.

丹存印才

真精神?。。。。?！

羅蓋仙

回復 4# ois90597

0 t, w0 _# D& k4 N7 o2 A這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
' B* B* a" q' G＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
% r: v& v  Q! m' l( AIF[#31/#32GE2.]THEN#3000=200.
9 |; q/ v- U/ [# I, P" R) x7 z) L( yWHILE[#32GE1.]DO1
#33=FIX[#31/#32]
#500=#500+#33*#10
2 K! _  s& q8 C; `! P1 {#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
8 ]& u* C9 m: TEND1
; ?! u- L) }" @6 W: C# P% {0 x3 x0 S. C1 LM30
( M# d' x  K1 r& G+ m* o
# g* `. ^" R3 ]+ B+ Q% E還是有改良的空間

bruceding

回復 2# 羅蓋仙
+ ]0 f3 M6 {; f( R; `' Q' i" F

    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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