數據交換法的使用

羅蓋仙

2 Y  I0 H# g( _9 A5 _
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子
( w. V/ F1 y) v0 C( e/ J$ O
$ w7 O6 N# G' ?+ n" |" H" a如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
% a( `4 |+ b) f. d8 s方法A：
IF[#1GE#2]GOTO5
# R2 `: p' l$ k#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
8 x3 f8 U4 j6 ?#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
7 D9 t, i4 v+ R' W9 n4 e, g: a
2 U/ n5 v5 Y( v, M5 C; b4 E9 b我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
; s& U( K# ~$ |  b. p0 f2 L6 p方法B：
WHILE[#1LT#2]DO1
- z- B- W) F/ g- K9 [6 M* H0 y' I#1=#1+#2
5 J5 C, N: ?1 }$ n9 O+ \) E( _+ M#2=#1-#2
5 j3 F9 A/ E. m. A" T$ Z* x9 W0 T#1=#1-#2
+ Q  j! B( y. T' d% W1 R6 {2 F#3=#3+#4
#4=#3-#4
#3=#3-#4
% k* w8 Y6 b7 S8 j* ?END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
8 ]7 Z. g% Z& z* r  V( z
' V9 b2 \1 U  {" @4 V方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
- u3 p6 v+ k+ D#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
2 E. D# I$ h9 c# V5 aM0

又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
% X$ E0 ?% q  c; m: i你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
" r4 D$ c* i# G# Q( A* k( v所以，以上语句可以运行的

羅蓋仙

8 N9 q" l' Z% e1 w使用數據置換來按大小排列，大→小
( j) z% A; X3 E0 q# ?7 q法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
' V9 m' U& y5 {3 W: l/ {+ _#2=4.
& C$ }2 D4 l0 d) L3 e#3=7.
% m1 P) I+ N8 w6 Y$ D6 F#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
+ W7 }( Q4 c: S- B1 s0 N; n#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
. O2 \5 n& s% G3 v4 Y( p#3=#2-#3
8 o" @, f+ ^. M% A: V#2=#2-#3
2 C3 e* U5 k. M+ I, N( gEND2
WHILE[#3LT#4]DO3
- |2 R- M% |; \3 E0 Z5 b$ w#3=#3+#4
, w3 @0 Q; y" p% Z#4=#3-#4
#3=#3-#4
  N; S2 x' X9 m+ u5 G4 }END3
3 P& k8 s' }* }9 X" l% ]' LIF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0


3 i0 t& h$ W' }/ q% j& C9 A法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
. E' ~! {" r5 _( E) Y0 E#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
+ z# @9 H8 \5 c6 M9 S$ @. o. `; \#1=#1+#2
- ?; X) K4 {" A4 K; L#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
1 g7 x6 I7 Y: m#3=#2-#3
#2=#2-#3
8 ]5 `5 c# j+ M3 aN3 IF[#3GE#4]GOTO4
#3=#3+#4
6 X9 Y& O% g) f- I* M. {; ]#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
: d  P$ ?  B1 k6 _IF[#2LT#3]GOTO2
M0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
#3=7.
4 T2 b* H) n' ?4 t; U  n#4=9.
7 _! u- U  e2 Y  F! ^$ kN2 #31=1.
9 y8 p, Y; r% J2 N! Y#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
' K3 @  Y  Y! b6 Y' SEND1
#31=3.
- Y/ f) g9 j- |) I2 C! P% yIF[#2LT#3]]GOTO1
/ I9 l6 U' W+ E9 J#32=4.
5 J1 j; {3 m3 B7 \$ NIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
. q/ X4 W# i* j/ B#32=3.
IF[#2LT#3]GOTO1
; i9 r1 I. S% b7 {4 i3 BM0

( E. V2 ?' W9 Z: J2 y# b: k5 o6 v7 \看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶