數據交換法的使用

羅蓋仙

/ N" {+ x" P# j: d, S6 r上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
8 c4 G. \) g* \; m有人說數據交換法.能用于何處???我來舉個例子

  c! ~# U% |8 Z/ _" o2 }如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
+ E- {3 U$ l7 g2 I( K方法A：
7 h$ a: w/ c1 q, g- r( f/ YIF[#1GE#2]GOTO5
8 w0 @2 u: N+ N2 L' ~) [* b. ^5 @#1=#1+#2
#2=#1-#2
#1=#1-#2
2 m6 s, T/ g) h# F( J9 m  h#3=#3+#4
# }& _: ?4 l- s+ P0 G#4=#3-#4
#3=#3-#4
% e2 B% S6 ]* `& C# {9 V+ g; a3 rN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
6 f" r, _  B, ]- h* ?1 ]( v- T$ dWHILE[#1LT#2]DO1
0 @" |3 ?- x0 _. A- K#1=#1+#2
#2=#1-#2
#1=#1-#2
7 M0 \$ B( _9 f3 P& x6 I#3=#3+#4
#4=#3-#4
0 e  h' j* M  g/ M% l% c- E#3=#3-#4
; B9 \2 \" U, E0 w$ B& cEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
  f2 K8 B! r! e, I' `7 x8 T
1 J- B% n4 s/ m方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
4 x+ g( U0 @' _
6 n/ L! ~/ P# [/ S又想把它這樣寫
*#31=#[#30+#500AND1.]
! w  W, ^8 R9 l" u0 I: \5 |0 {& XM0

空气中的小鱼

回复 2# 羅蓋仙
( C- p) B  d0 n! f1 Q- b" c1 N你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
3 l2 j/ p0 E0 U4 X法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
' R" M  L1 D# h% i- {: E) b#2=4.
# O. Z" G) Q/ F#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
- t0 @; C* \7 B& Y' [# b#1=#1+#2
7 I+ T; x9 o9 H% V7 b* R: n#2=#1-#2
; U6 E, v9 x8 U* |; h#1=#1-#2
! G; q5 P' J% [( Y8 w& }7 cEND1
N2WHILE[#2LT#3]DO2
) n3 T" ~) k. |2 Y+ N#2=#2+#3
( K; P; n& l0 t#3=#2-#3
. g5 [) r/ ]' v& @- v: r#2=#2-#3
5 ]; ~/ y* \( A& B/ rEND2
WHILE[#3LT#4]DO3
6 }! E- f! i! T! c) N2 n- ?* P#3=#3+#4
. @1 v( S' a' U" [#4=#3-#4
  W) R$ b9 e1 x% q# v" n5 _#3=#3-#4
END3
IF[#1LT#2]GOTO1
$ [6 K8 I" V. H) H, N8 ?8 QIF[#2LT#3]GOTO2
M0

  C6 `  J8 K. d: [& U
法1-2：使用一般耳熟能詳的IF-GOTO
! D' U# F; b% Z- S- W; R7 v#1=A.
#2=B.
+ z3 B' n7 ?% e: r. N& m0 ?) \#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
7 Q8 i; ~% u9 S* lN2 IF[#2GE#3]GOTO3
0 S0 A- R9 V+ L6 R8 f4 y#2=#2+#3
3 Y; B" Y2 b' {. s6 e( x#3=#2-#3
# J% `; i2 ]1 L#2=#2-#3
N3 IF[#3GE#4]GOTO4
/ [% M3 v& U# ?  `( p#3=#3+#4
! x. N. I7 c2 P0 C7 x#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
9 L% G' `) k" P9 @& AM0

羅蓋仙

' }1 k1 m& x( W1 u4 w法二：使用変変數^^
#1=1.
0 P- ~" C0 @2 D, u5 T#2=4.
( H8 G& L$ S! p, t. f7 {#3=7.
3 V" c8 s3 W: a8 \% F$ ]4 ]* @#4=9.
N2 #31=1.
& c" c- c, b5 w/ K7 z! L#32=2.
% D: ~$ N& a1 K' z' N3 F: ?N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
7 ?% {7 s4 h9 R#[#31]=#[#31]-#[#32]
END1
#31=3.
- d5 M8 z5 A  v' cIF[#2LT#3]]GOTO1
" j; l' U3 o$ j2 o0 w4 E4 s, }#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
) j# `: R. \8 i6 u; y) y0 [# i+ E#32=3.
IF[#2LT#3]GOTO1
M0

3 I4 Z9 u7 N" _5 G/ X0 {/ L看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶