亚洲二区精品_国产精品com_日本高清精品_国产高清一级毛片在线不卡
若楓后處理論壇
標題:
十進制轉換成二進制的小程序
[打印本頁]
作者:
羅蓋仙
時間:
2013-8-18 12:29
標題:
十進制轉換成二進制的小程序
本帖最后由 羅蓋仙 于 2013-8-18 12:35 編輯
2 N& }8 L! C9 N
* ?, @2 o: U: r* b7 ?3 p! ^! f
[attach]7280[/attach]
( m3 ^) D& {, ^) l C- n! I& H) ?
7 G, r9 J; `; [$ d
十進制轉換成二進制：
Q- @; m- L; @
#1=181.(欲想轉換成2進制的數值)
7 [4 G. ?* [& U3 {% i* k0 l- v0 E
#101=ABS[FIX[#1]]
7 r. B4 {! t5 I f/ W( @
#33=501.(儲存到#501～)
( @9 F, c i' ~5 a: x- }
WH[#101GE1.]DO1
7 I7 F3 n) ^% T) q1 }$ ]% J }
#[#33]=#101 MOD 2.
9 k% Y) O8 D' a4 K) i7 Z! ]
#101=FIX[#101/2.]
5 _4 }% o/ c* k9 k1 q
#33=#33+1.
+ j+ E0 i ?5 `0 `/ O9 e4 `: S% Y! `1 w
END1
/ K0 g& W- R- h" c" C
M0
3 D0 G5 Z$ _ R# g! C! d
& p) |3 @5 K) |5 a- P( y
結果：
' n5 e, k4 p7 I8 L# M3 b: A7 ?
#501=1.(低位)
3 _# Q+ d& F. T( T" x0 W" M
#502=0.
: F% [3 f$ j8 `
#503=1.
6 P) O: c$ x' e" r B+ B$ L1 }
#504=0.
- j4 C7 E. p& v s" V' s
#505=1.
/ v: s/ F( H+ z, S. w* o
#506=1.
: B9 |5 [; S# W0 h% Z: e
#507=0.
3 s- S6 x# w$ E1 @; @; E7 o/ \
#508=1.(高位)
) b+ Z- v7 i% h: N
6 C5 r& b- U" u; m' w" L8 K5 Z
m4 a3 `3 I% Z; ?" i+ q
以下為10進制，想得知＃101有幾位數的小程序
9 [: b/ H3 h g6 s" J9 `
#101=1234.
f9 @7 i L, N
#10=1.(用1去比→用10去比→用100去比....)
e% i, _* @7 z8 {2 O1 I
#30=0.
( r M2 N4 _4 O! F, `/ ], @: j+ l% Y
WH[#101GE#10]DO1
0 @0 G' h3 K$ Q2 M" ?" j. o9 O/ i
#30=#30+1.
+ \% T* e% R9 X9 `& x* A8 T& d
#10=#10*10.
J6 l$ r9 c0 o3 l
END1
, i8 @; }3 Z; d2 |2 N- M: H
#30=有4位數(#101有4位數)
* O$ M, V* j% S' z- a1 y
M0
作者:
羅蓋仙
時間:
2013-8-18 13:32
本帖最后由 羅蓋仙 于 2013-8-18 13:40 編輯
" F9 N- ? ?$ F+ ?5 \
8 ?$ Q, }0 c" ]$ ?+ Q4 H, _
如果嫌10進制轉換成2進制，占了太多變量番號的空間
: X. t( w$ b( o( P$ P
我把它修改了一下
1 F- Y+ o5 Q* m7 d
#1=181.
& S8 Z: g& m" ?' g1 V
#101=ABS[FIX[#1]]
# u: d# l, B3 r. Z
#10=1.
' u% `' U, @# E& C$ J
#500=0.
4 w. Q# n: c+ P
WH[#101GT0.]DO1
. a) H/ h8 f5 f. ~$ m. T {
#500=#500+[#101 MOD 2.]*#10
' B* ^2 ^; L( H. T
#101=FIX[#101/2.]
6 B$ ?. }2 d( p3 Z1 _$ U
#10=#10*10.
$ a* k8 D! i/ K) K3 n1 M
END1
$ \- D9 e, G, F- G8 E5 j5 ?
M0
; z( ?, n* u+ J) X
& {9 \1 }* H: L) r: v! ~
結果：
$ D0 I, e% p+ x% j( h. i) t
#500=10110101.
作者:
丹存印才
時間:
2013-8-22 11:22
真精神！！！！！！
作者:
羅蓋仙
時間:
2013-8-29 18:57
回復
4#
ois90597
/ i8 q, [2 b1 h8 x, _' q
% ~8 i( K! J: h# L
這是我那臺灣某網友，我們互相分享討論，他的寫法感覺比我好：
0 t; U% k# |- i) o* I: b0 Z" h6 l
＃1=181.
+ t, H- t# n$ e) j
#10=10000000.
# y7 x5 |+ H5 F' _) O( d7 u
#31=FIX[ABS[#1]]
; U4 @4 l" T# v" A# M; v
#32=128.
: h0 g. ^- @( u2 d3 x: D
IF[#31/#32GE2.]THEN#3000=200.
* ?6 M2 |) t2 `+ B2 F! E% n
WHILE[#32GE1.]DO1
* ~9 P. a1 R5 F
#33=FIX[#31/#32]
6 ^& ] v" t% {$ i: r
#500=#500+#33*#10
9 x6 L9 {+ G+ \1 G2 ]4 _: i- p; c
#31=#31-#32*[#33EQ1.]
- V' o; ^! R- Q+ S+ J6 z+ z( _* |
#32=#32/2.
# y4 z7 ~* w) e* M) v
#10=#10/10.
' B; P* m5 T8 T* Q; G) n+ y
END1
, G6 @# k/ d9 B- n
M30
& E$ l$ E# K Q6 p1 j a0 T
5 B0 ^2 A; m% v$ v1 ? o
還是有改良的空間
作者:
bruceding
時間:
2013-9-21 22:25
回復
2#
羅蓋仙
- I2 A% U; p% ^. D# \; U
2 k: H( C! K5 L% ?
( p5 ~% [' e4 j7 P, G8 d# G7 l
精辟
作者:
zhangjun
時間:
2014-4-4 00:23
不錯經典資料，值得學習
作者:
wslaoa
時間:
2014-4-4 20:05
好久沒來了 挺不錯
作者:
getto
時間:
2015-1-8 10:49
很好，就是看不懂
作者:
ya_blueang
時間:
2015-2-18 16:18
學習，謝謝樓主分享
作者:
919616
時間:
2015-11-6 10:48
good..............
作者:
GD_lx558
時間:
2015-12-5 15:15
這個看不懂呀
作者:
sbb52038
時間:
2017-7-24 11:36
有沒二進制轉十進制的程式
作者:
boye28
時間:
2017-7-24 21:35
好東西，多看看，也能學會不少東西
作者:
qq9051349
時間:
2017-9-29 08:22
對宏一點不了解，該怎么著手學習呢！
作者:
niejinyun
時間:
2018-3-16 11:25
多多發帖回帖就可以賺錢，呵呵，我有很多錢了
作者:
abnor
時間:
2018-5-23 21:04
厲害了，樓主高手 啊
2 v# c/ @, ]4 d9 T
作者:
1426437527
時間:
2021-6-21 13:18
謝謝分享，謝謝分享
作者:
1426437527
時間:
2021-8-11 13:05
宏程序程序比較復雜暫時看不懂
作者:
云與海的故事
時間:
2024-4-23 11:50
不錯經典資料，值得學習
歡迎光臨 若楓后處理論壇 (http://www.buddhismlove.com/)
Powered by Discuz! X3.5