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

羅蓋仙

! j0 c$ s0 x% w* B- A! f- ]

登錄/注冊后可看大圖

十進制轉換成二進制：
& b: N) t: o3 y% i8 q5 M, q#1=181.(欲想轉換成2進制的數值)
) R; d2 m* `9 W5 N#101=ABS[FIX[#1]]
#33=501.(儲存到#501～)
WH[#101GE1.]DO1
#[#33]=#101 MOD 2.
- a2 g' F& E7 I+ w#101=FIX[#101/2.]
& \) E. e% a  H. ^; l( O#33=#33+1.
# f3 L, L6 f: g, ~END1
9 W8 L4 S# U3 i9 G! H! \! YM0

) B$ M  L' c/ {$ Q結果：
#501=1.(低位)
#502=0.
) W  r+ A/ b& n! p#503=1.
8 e# T6 w, x* o  b' q#504=0.
#505=1.
#506=1.
#507=0.
0 k7 K2 J* V1 m; u#508=1.(高位)


以下為10進制，想得知＃101有幾位數的小程序
5 \2 V3 m) z( D#101=1234.
#10=1.(用1去比→用10去比→用100去比....)
! t* `" b- z# E; O; P9 j) \#30=0.
# c. Z; L6 V# PWH[#101GE#10]DO1
8 [  x9 C7 [* Y" p#30=#30+1.
. H$ v5 C) f1 T#10=#10*10.
END1
) O2 `. l  S0 ?. S#30=有4位數(#101有4位數)
M0

羅蓋仙

如果嫌10進制轉換成2進制，占了太多變量番號的空間
我把它修改了一下
#1=181.
#101=ABS[FIX[#1]]
#10=1.
#500=0.
$ e; x+ E3 h# X7 P. J3 l. dWH[#101GT0.]DO1
#500=#500+[#101 MOD 2.]*#10
: E5 E: |8 ]! z#101=FIX[#101/2.]
#10=#10*10.
END1
M0
" E- O  _( u% R, f4 E* L* L
/ W3 o* ?8 }1 @# L3 |9 B結果：
! A& {7 Z' B5 V/ i/ V0 I. q#500=10110101.

丹存印才

真精神！！！！！！

羅蓋仙

回復 4# ois90597

這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
. S9 t' w- {# e8 ]6 r; R: U) L1 E＃1=181.
#10=10000000.
4 K3 o! B9 w" e% `2 J1 _! Q#31=FIX[ABS[#1]]
4 ]# [* `3 l" z' L8 J8 W/ P: J, G& J#32=128.
& Z7 a& T$ l+ M, A! p& {IF[#31/#32GE2.]THEN#3000=200.
WHILE[#32GE1.]DO1
; h% @( P, ~5 J2 W) \+ f2 Y, `#33=FIX[#31/#32]
#500=#500+#33*#10
# e. e4 i0 B0 `#31=#31-#32*[#33EQ1.]
6 Z& B5 s5 B- P7 P$ S#32=#32/2.
#10=#10/10.
9 u0 H- E& I0 i- DEND1
M30
1 T9 @- u. m" M) T
( A, A, Z* ]/ m- n/ {3 J5 R. H% G還是有改良的空間

bruceding

回復 2# 羅蓋仙
- C- ]" m/ r6 r9 s

$ J! }' W# U# U3 ?8 N+ M    精辟

zhangjun

不錯經典資料，值得學習

wslaoa

好久沒來了  挺不錯

getto

很好，就是看不懂

ya_blueang

學習，謝謝樓主分享

919616

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