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

羅蓋仙

/ X- r  X3 c3 L5 G+ q* [& L

登錄/注冊后可看大圖

% j9 w! I$ Q( g4 I3 ^
十進制轉換成二進制：
8 R( f( k8 u" p& x) \7 d( R( S  m#1=181.(欲想轉換成2進制的數值)
#101=ABS[FIX[#1]]
' `- D% l  D  N; u; [#33=501.(儲存到#501～)
$ e. S; @& W8 p& NWH[#101GE1.]DO1
' H" N- w) m- y1 U. E; V1 I#[#33]=#101 MOD 2.
3 j9 W) ~: N9 h5 W#101=FIX[#101/2.]
#33=#33+1.
END1
M0

結果：
8 E* S% m* _" s' |0 g#501=1.(低位)
#502=0.
/ B! }* O& J- x9 R; e* U# A6 J#503=1.
#504=0.
. U+ u! @' l) S, d#505=1.
; e- k2 [* I) B6 A4 c1 f#506=1.
' d0 \! T3 p' w4 o( h- t#507=0.
#508=1.(高位)


" T8 {* q& K  h' ]2 D以下為10進制，想得知＃101有幾位數的小程序
#101=1234.
% i) k. j: ~; H' g7 |( {#10=1.(用1去比→用10去比→用100去比....)
& Y9 l! R; I0 t! V0 W, c* b#30=0.
WH[#101GE#10]DO1
#30=#30+1.
( M5 \7 H# O$ H#10=#10*10.
2 F2 H! o9 \4 n$ h) [4 M: f; EEND1
#30=有4位數(#101有4位數)
M0

羅蓋仙

* h; z7 P7 i- X/ N, i
如果嫌10進制轉換成2進制，占了太多變量番號的空間
9 M0 W6 m# T2 }; g我把它修改了一下
% E6 S0 |# E- p: S#1=181.
/ q/ O, C# M4 J  D6 G- a" |3 o#101=ABS[FIX[#1]]
#10=1.
3 d; o3 m! b; m#500=0.
6 X1 L  V* J' H1 WWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
+ L; P# n6 n; [#101=FIX[#101/2.]
1 O" u/ R5 u' K3 u#10=#10*10.
END1
M0
; s8 Y5 `8 i; z& j# c
結果：
#500=10110101.

丹存印才

真精神?。。。。?！

羅蓋仙

回復 4# ois90597

這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
: P8 E) J6 f7 v  z( h& b＃1=181.
#10=10000000.
#31=FIX[ABS[#1]]
1 N) ^1 d0 j8 @' y  Z. s& g#32=128.
9 v( j/ Q! t' B& p% s& E3 uIF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
6 V, [# `" |, f6 v1 L#33=FIX[#31/#32]
#500=#500+#33*#10
#31=#31-#32*[#33EQ1.]
#32=#32/2.
- ?; V/ q' x5 O/ b#10=#10/10.
# b! Z" g+ H* P$ U1 [3 jEND1
M30

還是有改良的空間

bruceding

回復 2# 羅蓋仙
; a7 Q8 p; `( w' J# ^
% I' c9 \7 t' X$ i* G! |1 s
! l9 X6 h6 P3 m: V0 X( N1 `, S    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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