數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
& k  s5 v7 a7 m% l# G5 ]，我看完之後有灵感，
# d( c+ a+ a* D8 x. y. @3 o有人說數據交換法.能用于何處???我來舉個例子
8 X9 B2 U# J( j8 y) ]' T
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
$ Q6 a+ g8 C* {2 G2 l3 p  i使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
% e4 b) C  c8 Z" Q1 C; u$ [6 Z' jIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
: g. W4 n) n# j8 T" B9 J  NN5......此時#1的值已經置換過來了.#1的值一定比#2大
0 K0 _$ F1 R* t6 [. `
" y+ D& Y5 c; a0 g我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
4 d! S5 q4 @6 \. E! f* B* e( |#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
5 R3 P) z' ~" j#4=#3-#4
#3=#3-#4
- K8 m4 C, O8 G( G& r2 hEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
# P; K! W8 R& w4 o0 ]( \#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
4 q! V% O/ e% d. T$ _3 zM0
( a7 T5 |3 B9 c
& L) H6 _% \  K  @' W. D又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
9 g4 k" U' R4 H; R只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

7 e- T+ j9 U6 q1 O& U. {
使用數據置換來按大小排列，大→小
8 \" R  P* s0 [" d' N法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
- T- P1 n6 G& E! k. \) {#1=#1+#2
' Y. G2 b# `- S. J9 k  ^#2=#1-#2
#1=#1-#2
END1
# o; E% U& V. y& v+ r1 w  @% ]N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
5 l5 C- k# V% K% n6 z; c% u#2=#2-#3
END2
; L! a/ ], T% K# t; k0 w' rWHILE[#3LT#4]DO3
#3=#3+#4
! _  ^/ o' s- \& ]5 A. ^! s#4=#3-#4
! [+ s! w# c# _9 s" O3 K. \#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
5 B1 K/ w' z, }# I# cM0
4 `) }. y6 k- P
' S4 f1 T- m: X' L. z
  X. O. |: l0 X8 U& C. T  v' B法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
. U; @8 P! D3 a1 l) ~) [$ ?#2=B.
#3=C.
#4=D.
7 y0 g' k1 z4 n1 J3 ?/ m! d* n* o; lN1 IF[#1GE#2]GOTO2
#1=#1+#2
+ h/ G" Q: \5 ~2 [( w4 T* Y#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
2 X+ S- {, W; A" d2 z+ C2 u#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
' X& V% t' m: K% G( q, u1 b#4=#3-#4
#3=#3-#4
# `* v% s0 R# w. o! u) KN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

, I6 K" h/ v! H9 d% l法二：使用変変數^^
4 ]# w- d* l, s#1=1.
+ p$ O; E& B, @. b. g. r. ^' v2 G#2=4.
6 ^+ `0 l2 ?0 {#3=7.
* {7 q9 }- z1 {+ j5 {' ^#4=9.
+ t, L; P/ q* Y% E+ j, w& Y- UN2 #31=1.
8 P" w1 k- Q4 n#32=2.
! |2 ]+ K' [" r6 V- F' W0 zN1WHILE[#[#31]LT#[#32]]DO1
& J  j# c7 F% G  N! z, t$ I% G#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
7 X, b" M8 l6 p2 }. ]#[#31]=#[#31]-#[#32]
END1
#31=3.
! B$ s, x5 j. k! IIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
; B/ l1 y* y: ?IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
* F# t+ [7 F# QM0

8 O% j: m" l" Q; u9 a# C看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶