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

羅蓋仙

6 {3 y) X$ x# h2 m0 H( t- Q

登錄/注冊后可看大圖

: G6 g" C5 C! S. m1 E" p
十進制轉換成二進制：
#1=181.(欲想轉換成2進制的數值)
6 _: T6 ^2 d6 z" [, T2 Z' R#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
# b& H& d% W& l2 P, [6 O8 E% sWH[#101GE1.]DO1
+ r  f# v; v4 Q& D#[#33]=#101 MOD 2.
#101=FIX[#101/2.]
3 O# k# I/ Z1 F#33=#33+1.
END1
M0

結果：
#501=1.(低位)
/ i# R( e$ y7 }) Y  {' z#502=0.
#503=1.
" ]0 g8 ]  C8 j$ j7 O, d2 ^#504=0.
#505=1.
8 @1 w6 V! u% h- k#506=1.
* O2 q- c' S, i. ~7 g3 g9 ~$ A( y#507=0.
#508=1.(高位)


: O* l# b% i1 n( _8 }# Q以下為10進制，想得知＃101有幾位數的小程序
  t. p8 @4 x6 U' ~#101=1234.
- U* q8 W+ `! }* ~#10=1.(用1去比→用10去比→用100去比....)
" |) Q' {# Z6 V9 f0 ]( D  W#30=0.
WH[#101GE#10]DO1
#30=#30+1.
) Y" @* L; \: U- U* L; p#10=#10*10.
* q' f& d( U4 D# x( `4 @END1
#30=有4位數(#101有4位數)
M0

羅蓋仙

/ @: J. z- h% _  ]
如果嫌10進制轉換成2進制，占了太多變量番號的空間
0 _/ W, K' X3 _& A4 ^$ R0 W6 D我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
' K. [- w9 X) j7 r* I- ]#10=1.
& u0 O# D4 U" S  A& r5 x2 {#500=0.
2 }# d/ _1 n+ Q9 XWH[#101GT0.]DO1
( X  @2 H0 ]8 |#500=#500+[#101 MOD 2.]*#10
#101=FIX[#101/2.]
% t% d0 A9 ^5 V4 k#10=#10*10.
/ l# B" W- p% [1 s4 }! uEND1
M0
/ M- S- W% q! Q5 C
結果：
#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597
6 d) e! M/ V7 ^- z
2 F. Z% o/ t/ O9 g7 B+ M這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
#32=128.
IF[#31/#32GE2.]THEN#3000=200.
8 L9 T% _, i! j+ W+ XWHILE[#32GE1.]DO1
; [" j6 i' U$ D  ~8 X#33=FIX[#31/#32]
$ X$ u$ Q" L  |, e) ^" h+ m: C* t#500=#500+#33*#10
+ r) S2 u3 x" G  e& S#31=#31-#32*[#33EQ1.]
#32=#32/2.
#10=#10/10.
END1
/ c( }3 M$ Q& D- Q8 h2 l( gM30
& J' w4 t( g, P/ H
還是有改良的空間

bruceding

回復 2# 羅蓋仙
; f( ]- w  h: [3 T6 X. K
, |& L8 \8 c& Q# |2 {
    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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