數據交換法的使用

羅蓋仙

- U0 v  w6 S% Q# ~
0 z5 u9 P0 W  b+ L上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
' Z7 Z1 t( H( |, U" Z5 N
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
# r6 E6 \# c: ^% h#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
8 U, \$ s/ T- K4 w4 B2 u6 @N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
7 I/ b! `! G- |WHILE[#1LT#2]DO1
3 f: i0 [  k* ]9 a/ {7 k#1=#1+#2
1 c; Z9 q: G  c0 A# U9 y4 Q#2=#1-#2
9 Z, Y7 \! g3 W& P1 K  P8 D: r#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
) {3 y6 @5 f" d; p8 D1 Y: i9 M, _END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
1 l% Q# \% ^( D
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
$ f1 P! N( G& c5 `0 Z& j% F1 y#2=10.
% {. ]' w2 A, T) T, Z# I#30=1.
*#31=#[#30+#500MOD2.]
# K8 M! _" Y" uM0
5 m0 ]9 C% J: i) z
( ~8 K6 I" c, E9 @# K2 U又想把它這樣寫
*#31=#[#30+#500AND1.]
& n& f- d. ?1 y+ y- `; y/ i4 wM0

空气中的小鱼

回复 2# 羅蓋仙
1 V- Q4 t6 z) k* E' g! V你的表达式中没有只是逻辑运算，
$ K" `7 U$ ]8 Q5 S! W只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
; X4 Q1 I6 ?: G/ Y- D#1=1.
#2=4.
#3=7.
# X, e% ~! y6 }8 S6 _  L$ [#4=9.
, L' F+ L" I; X( Z5 r- JN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
. ]4 z8 k: n% |/ G#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
3 Q  A, q6 B( d+ B) L# @2 S; T#4=#3-#4
+ }0 Z, z& q6 ~#3=#3-#4
7 Y# j( p5 r1 R" W! t: oEND3
IF[#1LT#2]GOTO1
- A: V. c, A/ z5 j% p" Z1 r7 DIF[#2LT#3]GOTO2
M0
' y) s8 \8 N3 j1 S+ l) A
3 k: j0 U# D1 S. y
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
+ f9 D( v+ Q: T9 d) V( B: h#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
. z& s! L( U4 c  u: X( s#2=#1-#2
$ S4 f/ @  s4 Z# t' r' x- u1 _#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
5 Y# L& p# |, l0 x#3=#2-#3
#2=#2-#3
% [# R1 j8 `- C" ^1 W/ [0 z; AN3 IF[#3GE#4]GOTO4
#3=#3+#4
  F+ l% K5 \4 t+ k3 ?#4=#3-#4
+ Y2 h) W  S: d* Z2 l8 N#3=#3-#4
N4 IF[#1LT#2]GOTO1
" d8 E0 A/ w8 E* u0 q8 k. qIF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
  A9 Z8 G+ n; S+ a* `#2=4.
#3=7.
#4=9.
N2 #31=1.
% `9 Q: R' J4 e/ M2 b9 |* p1 ?$ g9 k#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
0 v0 H8 _' ?  H4 S6 a#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
" y6 {% \7 [; G8 X0 |  w& G8 ^- ~( PIF[#3LT#4]OTO1
+ j" A: B7 z* k6 `8 k) D/ Z5 |, TIF[#1LT#2]GOTO2
( ^" r8 _/ B2 E) b% Z. h#31=2.
* X! ?6 Q& m5 g! U( d#32=3.
* w+ \, B% c  s) {IF[#2LT#3]GOTO1
M0
7 {% O( X. Y/ w4 M; p, v# n
+ d2 G- E6 x* a4 o" j看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶