數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
! N9 H7 ~  P/ G) t/ t- \4 P使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
" F8 v, |- I' O: lIF[#1GE#2]GOTO5
) S" U& p+ y' J#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

. B- ?3 x6 I2 q9 p) V我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
' a6 J- P, y. ?/ q/ b% ]#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
+ r/ H& B* j: v#4=#3-#4
, ~) {! m, u. B& G#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
9 q4 }# B4 [# i; ^, J# U+ J5 q; U
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 n5 h8 Y9 B) ]  D# Z#1=5.
1 p& n. y3 Z( _9 H; ~0 b0 N#2=10.
#30=1.
, [7 ]  _3 Q/ E8 a8 ^*#31=#[#30+#500MOD2.]
M0
% N& w" b1 l* L& A1 a1 a1 {
! Q( C& m8 \- ]: i8 F0 Y又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
% G+ ^2 ~6 d( [: l  G/ Y只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

* c+ p; g- I' j+ S" J2 B7 t
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
$ J0 T: Y1 T1 y  N#1=1.
# \# V" W% k8 r) w#2=4.
5 o* j$ k+ w% G# w* _9 I#3=7.
#4=9.
% v) r9 f5 [6 E' d. X8 E. j1 `: bN1WHILE[#1LT#2]DO1
- T* ^4 Y$ P( K' n8 D$ D4 v! n1 Y#1=#1+#2
$ G, y' E5 ?) A#2=#1-#2
#1=#1-#2
END1
0 G; Y9 ^. ]# X8 F3 H( WN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
6 s7 a$ w; o0 D  `/ z#2=#2-#3
2 Z1 \% S) I; e4 {4 q5 D7 ?0 LEND2
WHILE[#3LT#4]DO3
+ M" H: g( F. }# M9 m#3=#3+#4
#4=#3-#4
#3=#3-#4
3 [# K" H$ o; G  k( H# N- j: Y# oEND3
+ M' n# K4 ^. X. `; HIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
7 S" z/ O* M3 L+ \7 v, VM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
$ x6 `2 W* n* ~7 P#2=B.
. V, ~. [% ~6 a2 U' u6 [( |1 ^#3=C.
; [% n" r) [( U#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
; ^0 Y. W$ _. L! f3 A#1=#1-#2
) k) i! Q9 h9 [) ^8 `9 `N2 IF[#2GE#3]GOTO3
* E7 w# p  z8 X* P2 e! j0 t#2=#2+#3
#3=#2-#3
1 Y$ e3 y) u3 W8 {+ \9 [#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
/ y: F7 M* y- N1 e! }4 H$ x#3=#3-#4
* {" X; Y3 I' d' u/ nN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
. v# d3 P% P% m* MM0

羅蓋仙

% U( C% Q! P- b$ ^/ C' a+ c
法二：使用変変數^^
#1=1.
' H. L3 |7 j& \; w) P7 Q& r#2=4.
#3=7.
#4=9.
$ p. Y" T" c  A5 |3 T& g  AN2 #31=1.
#32=2.
# ^& F, y* X* y( {, `N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
/ M9 I. c- C- l( v& L#[#32]=#[#31]-#[#32]
* {9 P# [& x0 N' n  l2 m8 a- Z#[#31]=#[#31]-#[#32]
END1
8 W/ ^; ~( p( Y5 o/ l' h& S#31=3.
& p; s! w) B; G% W' r6 D/ aIF[#2LT#3]]GOTO1
#32=4.
* h& d- L; ^) e0 FIF[#3LT#4]OTO1
8 A8 w+ ~  c; B( e  o, G# XIF[#1LT#2]GOTO2
/ O" S0 E  }6 |8 a" d#31=2.
9 K& n- [. N  {: q#32=3.
; _3 G4 I4 m3 _# ]# l" QIF[#2LT#3]GOTO1
M0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶