數據交換法的使用

羅蓋仙

. i. s* I/ i& o' K& j3 f$ j
) G- z* g* ~( l4 U  V  q3 J上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
( H: s/ N. L7 _，我看完之後有灵感，
7 D  R2 \# S2 g有人說數據交換法.能用于何處???我來舉個例子

$ O0 N6 L7 c+ J- C2 s3 \! [- d8 j如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
1 W, z2 Z- T! B: U: ]% z使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
1 w; e% W' ]6 @! E  u0 _方法A：
# t% O# g4 w) z0 ~% ?/ JIF[#1GE#2]GOTO5
5 L6 }8 H4 I4 D2 E#1=#1+#2
#2=#1-#2
4 X- [5 N- A. s" \) T  ^( N% _. b#1=#1-#2
#3=#3+#4
#4=#3-#4
4 K$ S) _: O: x  l+ C#3=#3-#4
2 i9 z# ?% T* k- i8 R+ dN5......此時#1的值已經置換過來了.#1的值一定比#2大
! x! a! O- B6 ^/ _2 t
- I; m( Y, Q. L$ ^( B我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
. r9 d& `; n1 I$ K7 r: o* nWHILE[#1LT#2]DO1
#1=#1+#2
/ O7 x$ f  u; x2 }#2=#1-#2
: U/ T' S  f& n; v6 h! E#1=#1-#2
4 }% ]  T5 m5 e$ B. Y#3=#3+#4
/ ?5 N4 H  G6 a- ?% ~5 w#4=#3-#4
/ H8 f$ S  y8 Q& Z( f$ w7 Y+ I3 W#3=#3-#4
! W" y. y2 K0 V2 A3 H; TEND1
' f" z: ?% n9 b2 {" V......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
; n3 o+ ^& c2 O) e' wM0

! J. {8 C- s  G9 k9 L又想把它這樣寫
*#31=#[#30+#500AND1.]
/ y( E% T5 z- [: d9 ]M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
* w) ~6 l6 O! q1 y" s2 ?6 d% u! z所以，以上语句可以运行的

羅蓋仙

; c5 D4 Z( E8 ~
2 d# B( U0 r  X/ J1 N, a3 |使用數據置換來按大小排列，大→小
8 y1 f1 J6 e# }8 F法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( ?6 _1 `6 S3 n# \1 X" z$ f. o#1=1.
# H+ }+ I0 Y; r% g#2=4.
#3=7.
: _) |# f5 O" P8 a* m- o, K5 |+ e#4=9.
N1WHILE[#1LT#2]DO1
4 i+ n) y2 M- B$ p- Q#1=#1+#2
: ~4 w) {$ y2 B  w: x#2=#1-#2
#1=#1-#2
END1
  w3 p' K- g- P. w$ F" a7 H: nN2WHILE[#2LT#3]DO2
) y/ e( {1 g! G- r; m#2=#2+#3
#3=#2-#3
) R2 f, R5 i3 e( `- d7 w#2=#2-#3
( u3 |8 {7 R- ~- p& _END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
; U" z2 u" R2 ]$ ]#3=#3-#4
END3
5 M+ ]: x6 o+ x7 y/ n- K9 N" B& W/ ~IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
: _3 g- t5 x& y  `7 a; n9 JM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
6 v3 o4 i+ M/ k, J& y" l" p#2=B.
1 ^/ d2 c7 @! M2 I#3=C.
#4=D.
& r6 M% R- Y' }$ H% C$ t) \$ @N1 IF[#1GE#2]GOTO2
+ u7 v1 |5 Y  x  `#1=#1+#2
  D0 m: o; ]* Y+ Z( A1 Y#2=#1-#2
0 h/ `# m8 l1 i" }) Z+ H#1=#1-#2
& L* p. Z2 e4 ^0 z" [N2 IF[#2GE#3]GOTO3
- c; D6 u8 F( O#2=#2+#3
#3=#2-#3
#2=#2-#3
. {9 i% ~$ @' |) _9 bN3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
4 j! E8 B. ^! L, g  C0 vM0

羅蓋仙

" q$ U2 r! d: P. w' M6 O. K法二：使用変変數^^
#1=1.
#2=4.
1 ~$ a; b' U; M/ ?0 x* ?' I2 G#3=7.
% n/ ~6 V% {  \/ J, y#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
* r+ H! k  W: e' \# h#[#32]=#[#31]-#[#32]
: e: Y6 h9 @7 }#[#31]=#[#31]-#[#32]
4 X- g" ^& u8 @; ZEND1
% A; L- M; R, L  ]8 M9 A; v2 `#31=3.
IF[#2LT#3]]GOTO1
3 u6 k, o/ q3 s) U( Z#32=4.
# |8 {3 Z% F; y2 ^' i. x( A* eIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
* }7 i! |- Z$ x3 L) i6 a1 Z#31=2.
#32=3.
1 w0 X& f4 @6 N5 pIF[#2LT#3]GOTO1
* ~0 G/ r/ c/ y9 B6 P" I1 ~M0

3 H* a1 I2 d- `4 v  Q; p看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶