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

羅蓋仙

3 @1 S0 ?. D, j$ W( b' n( V

登錄/注冊后可看大圖

十進制轉換成二進制：
3 T5 p1 T1 L6 U) T& R0 ?4 k#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
% J% H0 h6 q0 [! P' X% F#33=501.(儲存到#501～)
3 _/ t- {) [/ n" A# p2 wWH[#101GE1.]DO1
#[#33]=#101 MOD 2.
; C8 t  U, M  ?8 y* M#101=FIX[#101/2.]
+ d7 U( c2 X6 V" W#33=#33+1.
# [( h2 g. r: K- x; ?/ t. HEND1
M0
, y) {3 g) m: l, R$ Y9 M. q4 g
5 h: u4 D8 K# q* m結果：
#501=1.(低位)
#502=0.
#503=1.
/ P' R7 P$ m! p, L( l3 w# |  h#504=0.
+ I* W4 B, a' G1 j" U: f#505=1.
0 E- n, [, e2 c, W0 K, S#506=1.
#507=0.
, V% f9 r7 @' I#508=1.(高位)
5 z+ q, X) e! s* W7 P
6 y! k* T, F3 f) v
8 X# v& h- t7 e5 E- \% y' |, k以下為10進制，想得知＃101有幾位數的小程序
#101=1234.
8 w0 \& k4 F6 |#10=1.(用1去比→用10去比→用100去比....)
8 g$ Z4 F2 i( X6 q9 {* s#30=0.
' N4 D3 _% r7 C" r9 u. bWH[#101GE#10]DO1
#30=#30+1.
. g3 u8 |0 c4 e  b. B+ q#10=#10*10.
END1
#30=有4位數(#101有4位數)
M0

羅蓋仙

如果嫌10進制轉換成2進制，占了太多變量番號的空間
3 c: g9 K( G) q3 l" G! @4 \" T+ F我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
WH[#101GT0.]DO1
9 f4 m3 z+ y- g; B6 H#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
: E$ m; c' r' X* l# L5 d' L+ W#10=#10*10.
* X4 u8 H- t+ jEND1
8 q$ Q) J% ?8 S% g1 P1 z% SM0
3 G# S: {& P- s. \3 v9 g5 ?* V
7 y* ?/ {: m" P" R; K6 a7 i結果：
  @( D, ^, Q& G2 C2 ~* \#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597

! m0 _% Q7 Q: }  }2 m7 Y0 S這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
9 Y! A! N+ u3 O4 u4 T" b＃1=181.
( y6 ]0 i* D5 R, t, Q* f#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
8 O, l; y4 P1 T! Z) E: I! qIF[#31/#32GE2.]THEN#3000=200.
4 v( N9 m6 x) N3 a0 v4 IWHILE[#32GE1.]DO1
0 I4 c3 h. g0 g. U7 q0 L5 N#33=FIX[#31/#32]
#500=#500+#33*#10
2 d% d' v& @+ t, m0 M  U#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
M30

還是有改良的空間

bruceding

回復 2# 羅蓋仙


( }0 r' e8 j! n7 k- b7 Q. Q    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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