數據交換法的使用

羅蓋仙

  b6 s/ N+ O% A- v4 t7 i  W上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
' h7 }. v) L1 \- @' J4 |有人說數據交換法.能用于何處???我來舉個例子
8 _& D# S' E: l
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
/ a- R) _$ X8 g5 m7 y#2=#1-#2
#1=#1-#2
#3=#3+#4
- E% m2 ]5 V* [) {4 [' g#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

8 {& ~9 S/ d$ y0 ^我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
% a0 u& T  @/ F$ I方法B：
WHILE[#1LT#2]DO1
. \! n% ^  z; o+ {& Z3 ~#1=#1+#2
#2=#1-#2
9 Z, A& z6 r% F  {- w8 E: v2 J! }#1=#1-#2
#3=#3+#4
! r& p  v9 p9 L; ]' B#4=#3-#4
#3=#3-#4
END1
. @9 ]9 v* ?6 H* [( p% H2 N......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
* R" c, f" }4 n, s2 V#1=5.
#2=10.
#30=1.
$ X! ^7 s/ g/ s. ~*#31=#[#30+#500MOD2.]
0 F4 V6 {. O' S0 O( ^+ @M0
/ z5 Q) w1 a; O: g: q. W5 ^8 |
又想把它這樣寫
*#31=#[#30+#500AND1.]
( v/ u" l# P! xM0

空氣中的小魚

回復 2# 羅蓋仙
你的表達式中沒有只是邏輯運算，
' M$ `: c$ u0 H; n: T" E只有邏輯判斷有些系統版本不支持
所以，以上語句可以運行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
0 I, N6 E1 g) P/ F, t#2=#1-#2
#1=#1-#2
  Z) ^# N9 I9 i! g1 x/ z# d2 ^END1
, r) }( @5 m6 _% a9 D* e# IN2WHILE[#2LT#3]DO2
3 G7 y$ k3 A( b#2=#2+#3
#3=#2-#3
#2=#2-#3
) i+ _" b1 [; f* w' GEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
7 k( n) t% W2 U' o; j3 t; y" ~$ t% N1 wEND3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
9 v8 K, D& F+ a/ N, O! q
( x: O' r1 T6 E2 T
法1-2：使用一般耳熟能詳的IF-GOTO
! S4 T) t! C- c+ V#1=A.
4 P! E" s, p& B7 e#2=B.
  k/ E/ d! Y: _1 _9 {#3=C.
#4=D.
" O  ]+ I. Q5 ]; u- kN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
: I5 o9 F0 W; P$ l$ A2 k: G#2=#2+#3
8 M6 `5 J3 M' \0 \0 K#3=#2-#3
* D; C) l5 B' ]#2=#2-#3
N3 IF[#3GE#4]GOTO4
. m6 I! d' [3 A#3=#3+#4
  l8 P$ x: x# l#4=#3-#4
  I/ E7 [2 j  K# ~( I#3=#3-#4
N4 IF[#1LT#2]GOTO1
" }$ D4 ?2 h/ h" @IF[#2LT#3]GOTO2
, k3 \1 `# O  S, P- ?% d8 SM0

羅蓋仙

3 Z4 ~8 U9 u9 z+ F; d7 G法二：使用変変數^^
#1=1.
( r" B2 j  e  R0 A; m6 {* {! X+ \1 k#2=4.
- s# O# ~3 u$ l6 Z2 ~1 @#3=7.
2 o2 R" x6 Z% o& P- G#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
! Q, p* U$ L0 _) A7 n* j0 [#[#31]=#[#31]-#[#32]
) \3 m1 J. F+ x- f/ A7 K0 F+ kEND1
#31=3.
+ q5 H* R9 e/ H2 Y, K: a+ ~! XIF[#2LT#3]]GOTO1
#32=4.
3 C! [! X4 f1 a( V, uIF[#3LT#4]OTO1
# c, ]* L4 M2 o! n, i1 w+ e/ CIF[#1LT#2]GOTO2
#31=2.
5 B- T1 z7 L* N9 P#32=3.
IF[#2LT#3]GOTO1
M0
: `. b1 J% d' w) e3 @/ s
3 Z6 W$ o" Y. [! k" m+ p3 [$ `看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂