數據交換法的使用

羅蓋仙

/ ~5 b3 H+ f4 X8 Q
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
5 Z8 j+ n; n' D3 U1 m9 [) V有人說數據交換法.能用于何處???我來舉個例子

7 Y  g5 @( m: E* K如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
$ j9 j, E  b+ ]% n: [3 G! L使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
1 ]0 ~) L; ]- E* G& q( u% U#1=#1+#2
9 h' t: J; o. }2 [! ~5 Z. f& w3 K#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
( z: ~+ L& `& f: u5 T方法B：
WHILE[#1LT#2]DO1
! s5 x# I* k% E- ^  n4 X. e) L#1=#1+#2
#2=#1-#2
2 P' l: R/ z& w5 B4 a#1=#1-#2
/ |  L7 N- e: P) A#3=#3+#4
#4=#3-#4
/ ^" P% @  O4 ~9 S- T5 @8 n#3=#3-#4
4 y% _: J0 H4 Z, ^9 HEND1
5 S! o3 j' D0 c) Z9 }& |......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
0 {* r2 e) W. ^8 b. ]( B; _
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
M0
1 w9 J( V* d' x7 u  I! V+ E
1 C6 G' k8 S* s( f9 D/ D又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
7 r2 v7 ^% E( s' Q你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

7 G# H4 K3 d1 l* Y3 p" _使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
! ^# @2 N$ ]! ]; ^' p#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
  A# C' i% r, q* l7 a7 q1 p) s1 w  ^#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
( ]- |& }. I" L1 v, b: H; I: n#2=#2+#3
+ s4 F2 c, F7 \7 k0 K#3=#2-#3
#2=#2-#3
5 r9 [$ [: |* B7 i; LEND2
; M- ~; j. x8 m6 O6 R# AWHILE[#3LT#4]DO3
#3=#3+#4
. C7 ?/ q& [& z! [" V#4=#3-#4
#3=#3-#4
END3
) ?7 ^3 O0 Z& `$ ^; ~+ k# JIF[#1LT#2]GOTO1
3 o3 H+ {" Z0 Z; CIF[#2LT#3]GOTO2
6 O- r0 w7 p2 O6 w+ S4 [# s  KM0

, N0 R9 v& ]' Q* y
- ]& N" I$ w; b6 P2 B6 U法1-2：使用一般耳熟能詳的IF-GOTO
5 X, K( O& t( N% U- V#1=A.
+ A' f; U6 F- v#2=B.
# g+ R: L$ r9 X. Y( \  J; h, c#3=C.
; R6 y+ c  R! ^% I$ U' ]#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
* w0 k8 r3 y, S) ?; v' ~#2=#2+#3
) E. i. T' `5 a: C1 y3 G#3=#2-#3
+ b4 M) Z* \/ u! \; L#2=#2-#3
7 ?+ Q7 u! m8 J# u. @N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
) J* D( Z! U& ]N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
7 S2 _2 x" \2 n$ s6 B# [M0

羅蓋仙

$ [- u8 d, b3 a; {. w+ E法二：使用変変數^^
6 e! m; w* V+ S: P. _/ S0 D& p2 @#1=1.
#2=4.
3 c+ J; b! C9 |/ H#3=7.
#4=9.
$ {6 ^6 ^& E" d% m0 yN2 #31=1.
- z, q, U& ~# @2 @" |+ s; l#32=2.
$ j% a; ]5 G1 z% s' l" d, ]N1WHILE[#[#31]LT#[#32]]DO1
" W1 D# T5 u! {: b. m#[#31]=#[#31]+#[#32]
2 U! K& v% [9 |  F#[#32]=#[#31]-#[#32]
, G5 x/ A7 M* w# w/ h  F% T9 ]/ b" F#[#31]=#[#31]-#[#32]
# `0 H2 \5 i2 l8 r" e# |* @8 ~  j- |END1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
+ x: f( \+ v3 M' p) U# T# fIF[#3LT#4]OTO1
' g0 B1 H# I- i/ G& N. w% ?" a, EIF[#1LT#2]GOTO2
#31=2.
. [- W) x) U# W; V) Z#32=3.
IF[#2LT#3]GOTO1
M0
+ a0 F9 }0 H6 E  U; s6 W
看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶