數據交換法的使用

羅蓋仙

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

如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
* w9 |  W" D# t使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
8 x6 D% T8 u- b' R方法A：
IF[#1GE#2]GOTO5
  l" [0 c( R" D! N#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
2 w/ H6 j( k" @' E  C#4=#3-#4
#3=#3-#4
4 X/ ]8 M9 v7 l) T) b  MN5......此時#1的值已經置換過來了.#1的值一定比#2大

7 L; ^" L% F, N4 F1 L! O- Y2 R* W1 {$ ~我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
7 W9 d- {4 I& Q方法B：
" e9 X, T: ~8 \9 VWHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
9 a5 ^8 W+ e8 T- B6 L4 x#3=#3-#4
9 @; L$ M' R, `% m' K+ b, n, PEND1
1 K' Y% d, K0 G  g# \; n: Z......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
1 C8 x% t: S. U9 o* h/ K#1=5.
" q! l" W7 d" m9 k' Y#2=10.
#30=1.
! w2 R% X9 u5 F% e3 R2 A6 o( {*#31=#[#30+#500MOD2.]
# i+ I; B. \8 Y( dM0
0 I& b( C# i4 v
又想把它這樣寫
*#31=#[#30+#500AND1.]
1 ]( {9 K' W  o8 PM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

* T3 h' w4 E; L  y$ u" f
5 u+ U+ H) C  O* D使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
, i. W+ T3 `' u" H' G$ \5 E#1=1.
  B. _' d+ g" S) g) ]4 y#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
9 V) e' \3 O8 h! ~2 \: n#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
9 m* ~; |2 @) h2 h" D1 X#2=#2+#3
#3=#2-#3
1 z# {/ J9 G6 d( E#2=#2-#3
END2
WHILE[#3LT#4]DO3
3 X6 Z7 u5 I# S. _$ B#3=#3+#4
#4=#3-#4
3 D5 Q5 W6 Y$ u  m( `- G#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
2 a8 _# N! o+ B- Y. N9 W, c

) e/ _. P: |, d3 n# W法1-2：使用一般耳熟能詳的IF-GOTO
0 x4 x, a1 {, a4 C  j2 O# ~#1=A.
: x2 ~% |+ t/ L! R. K  _# _#2=B.
#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
$ w8 o9 m: i9 Y8 G! Y#2=#1-#2
3 d- L9 T2 I5 d#1=#1-#2
N2 IF[#2GE#3]GOTO3
. M# B; M, r; I! ]0 S7 U#2=#2+#3
3 w/ I! A& ~( d6 L3 A#3=#2-#3
#2=#2-#3
/ \$ I% r! z6 ~N3 IF[#3GE#4]GOTO4
/ v" [+ T5 p3 d' d% r#3=#3+#4
( R4 [% C2 e; j#4=#3-#4
% Y2 o0 m: J" N3 i3 [9 a6 a# s# n#3=#3-#4
+ @3 n3 I+ n. F3 PN4 IF[#1LT#2]GOTO1
7 a& t# P! `" G  O# x+ LIF[#2LT#3]GOTO2
M0

羅蓋仙

& v3 Q' N# Z0 @3 A) ]% J
- ?% l* K+ J& r' k) c8 h法二：使用変変數^^
#1=1.
; v5 `% R; y+ F3 D#2=4.
9 ?# F& ^2 e; t1 @. t( I4 a5 X5 Q#3=7.
#4=9.
N2 #31=1.
, C& G0 T6 I! i5 J9 _% `3 B5 g#32=2.
/ |9 ?) T0 I: U: wN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
# K2 k) Z! }/ aEND1
# A* p% |$ V+ [+ U$ m: c$ ~3 m#31=3.
# z  ~7 O3 h  K" d! @) }IF[#2LT#3]]GOTO1
. d- B' ^: k" y9 M: A#32=4.
IF[#3LT#4]OTO1
# G4 \5 z! P, `# w4 e- a1 y4 [IF[#1LT#2]GOTO2
#31=2.
#32=3.
IF[#2LT#3]GOTO1
6 u4 G+ m5 ]- {+ o0 ]) C* DM0

" }$ ^' I5 b9 i/ j1 t看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶