數據交換法的使用

羅蓋仙

# G$ x7 S5 M7 L; E& |1 [' Y& L上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
+ F0 V* V7 J# \# M3 x; Q$ z7 A6 \  H) M使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
- F! }- ]* e9 A& W. \0 `6 b8 T#1=#1+#2
9 b0 O) i1 d/ R$ N8 t#2=#1-#2
#1=#1-#2
#3=#3+#4
. Z% h  l+ o4 s' {3 p: m#4=#3-#4
#3=#3-#4
' i5 L  ?! Q8 @( R* HN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
) g' B) v' J2 W, q  f2 B, ~: yWHILE[#1LT#2]DO1
#1=#1+#2
3 O6 t. A% n5 X; \! E#2=#1-#2
#1=#1-#2
2 C: J, B/ `  x- g7 s#3=#3+#4
#4=#3-#4
#3=#3-#4
! z& g0 ?- B, yEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
% v* F! k+ b( K  J( c9 p% ^#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
' V( d- `6 t: Z0 y+ j5 K/ CM0

0 g! r0 Q- {8 Y" G, P又想把它這樣寫
*#31=#[#30+#500AND1.]
/ J9 X6 O1 @" x  h7 S, X" W' u# \M0

空气中的小鱼

回复 2# 羅蓋仙
: Y' Y0 Z9 k4 }* I, B; o你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

* t+ F+ l+ U' G; a0 U
" I( M0 D/ R4 ^. ]7 S使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
5 r7 ]/ o7 I3 f5 u#2=4.
#3=7.
#4=9.
% m  G# v  c3 e6 I! f& ~N1WHILE[#1LT#2]DO1
5 ^2 @9 A) Z: W) B6 {% ]' F  V1 K#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
, k6 b$ h6 h( D  g' Z+ kN2WHILE[#2LT#3]DO2
#2=#2+#3
/ n7 L  _! u# Q5 J3 L5 N  J4 l#3=#2-#3
3 C# O1 {. I" G$ Z9 K+ V  O$ z5 X#2=#2-#3
. G! i* K3 \- VEND2
2 P+ a5 e) G) m9 OWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
6 W% ^: g' x3 L8 v3 eEND3
. f% _( U' |" YIF[#1LT#2]GOTO1
# ?! o; p; d& S1 j5 N! @1 n! PIF[#2LT#3]GOTO2
M0
3 o( q3 e2 @, `7 b7 a1 H" G/ E

7 J7 n: C( l% x2 t% B- Y1 _' x法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
; `# A; y  Z; V; h#3=C.
#4=D.
5 a5 ^) K6 j: Q* IN1 IF[#1GE#2]GOTO2
#1=#1+#2
6 p' v0 J& ~) [- P#2=#1-#2
# t* @: j- D* i2 T4 E- S( s#1=#1-#2
. W: h1 n( Z: Q. M- i; l! J1 X5 aN2 IF[#2GE#3]GOTO3
  s' i+ |/ A' @  A8 y#2=#2+#3
5 g: v6 c6 n4 p$ _* t$ h#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
" }3 ?2 |! O% B4 W* B' q7 \/ [#3=#3+#4
3 k; v/ ^& ^6 Y/ M9 D" ^#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
6 o5 P/ P$ J+ dM0

羅蓋仙

法二：使用変変數^^
) S, b1 X7 q6 ~) P#1=1.
0 z  K, o  i# U  L6 C! R( M/ x#2=4.
#3=7.
#4=9.
, I8 H/ z' F# U% T# K& HN2 #31=1.
#32=2.
( g' U* y( ~4 ], yN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
( s, h- ^! I; }#[#31]=#[#31]-#[#32]
1 u4 s) T( f, V0 e9 fEND1
) ?1 W' T: e, K+ e#31=3.
7 ^+ Y2 n: U" D: sIF[#2LT#3]]GOTO1
#32=4.
9 ^% y) E; m3 Y5 F4 V# R4 c! DIF[#3LT#4]OTO1
' ~4 k7 V( S& ]% I& s; sIF[#1LT#2]GOTO2
#31=2.
5 P: c. s; |0 [! s* A5 t3 v5 v#32=3.
IF[#2LT#3]GOTO1
' t0 h: Y6 r% z- E, F) S+ S- sM0

$ f& P4 b# i" x看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶