數據交換法的使用

羅蓋仙

4 }7 C) M8 `5 z7 m% @9 _
8 _& @2 i* S6 p6 Y6 q; X! Z上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
' N" v$ e* y8 B# P, ]- r% I' V& d有人說數據交換法.能用于何處???我來舉個例子

) S$ @5 d3 L8 K- ~如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
4 p  ^5 E: E& D4 S使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
5 `5 P( ^1 L) R- G; W" p% x  g方法A：
9 R; J+ x1 w' U& }1 J- d; @IF[#1GE#2]GOTO5
/ ~' F  i% O' D% W% r5 v8 y. h#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
5 T1 M/ A$ W0 s#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
7 G. E# I$ `" x9 x& b, P6 p4 D
/ r& C/ _9 J" V  ^1 b# C) \% _我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
3 K6 A6 F, x+ _4 m5 k0 |! O#1=#1+#2
#2=#1-#2
; {) P3 W, _; i0 O4 J% P" _, [#1=#1-#2
! B  f0 L, p' D#3=#3+#4
" \- _: j" B8 _8 x6 K, b#4=#3-#4
' B3 W  d# s3 I. M. c5 k5 I' Z#3=#3-#4
1 N- b2 R# W' i, q# E4 z5 EEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
5 Q" r7 ?: y* t/ c#1=5.
#2=10.
#30=1.
+ j3 h+ {- \2 S# |: Y# C$ ?& [*#31=#[#30+#500MOD2.]
M0

1 g8 {: Y  y4 v3 Q又想把它這樣寫
*#31=#[#30+#500AND1.]
( k9 q" w# I4 `( i' b8 U1 q1 ~M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
! t& j3 A) l/ I% h4 w+ d/ R只有逻辑判断有些系统版本不支持
: ]( q6 n9 F2 X2 r- F所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
6 E: w! J1 W2 i/ R* H法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
% u4 X" P# F  o6 x! x+ o  q/ rN1WHILE[#1LT#2]DO1
#1=#1+#2
6 w- y: M5 [! k& h8 c# A0 `#2=#1-#2
8 i; B: |# `0 `+ m5 c' C#1=#1-#2
6 t/ D; R$ J: c2 TEND1
5 ]* X7 M/ [% T+ VN2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
* l/ p4 d7 O3 G; R#2=#2-#3
+ K; d+ g: Y2 R  \; G* }2 j. vEND2
WHILE[#3LT#4]DO3
, l% O1 n7 p4 n, }) d% N+ E#3=#3+#4
#4=#3-#4
9 p& m3 s/ ]$ L; J% e#3=#3-#4
- P$ k9 P( l# }3 S6 y7 e" qEND3
; i, i) l3 Z1 {  D% E; W, p1 lIF[#1LT#2]GOTO1
% `! t. R' ~7 ^/ l5 }IF[#2LT#3]GOTO2
! Q9 s% P* @9 m8 UM0


2 u% ~% O0 t% S1 G) ]法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
3 h$ B% x, w2 h5 r#2=B.
) d( X& s% {: w  n#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
8 c# S4 c+ w7 t# E6 l; e1 K* M4 W#1=#1+#2
7 D) ~' h6 ^/ R#2=#1-#2
#1=#1-#2
8 S% J% v/ O7 T- P; k- KN2 IF[#2GE#3]GOTO3
% T  R4 ^) z3 A9 Y#2=#2+#3
' z: h% E! K9 o. Y- T#3=#2-#3
: h9 p/ {0 P( J#2=#2-#3
. U* o$ P" {5 r2 g* B+ iN3 IF[#3GE#4]GOTO4
& C0 r+ y, |3 f#3=#3+#4
#4=#3-#4
' d( v5 r2 T& a, Z& a0 a#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
: k8 P: @( a# l, sM0

羅蓋仙

! k5 o9 f  _% j+ t& C+ ~
1 T0 I  Q. o, h& X* g  g+ B法二：使用変変數^^
#1=1.
1 A  n4 y; R! {" n#2=4.
#3=7.
: f. a$ M0 [( @& \; r! G: g#4=9.
: q9 {" s& V5 B* G: Q) ?+ MN2 #31=1.
" z2 S& d+ ~* f4 I#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
* X6 o( y- G! u+ q1 Q0 Q8 @END1
#31=3.
# y! S0 P& k# r& W) qIF[#2LT#3]]GOTO1
1 S! W, \( ?5 v#32=4.
IF[#3LT#4]OTO1
7 o$ o+ {  Q" X- bIF[#1LT#2]GOTO2
. |, `$ P! f! r#31=2.
#32=3.
' N% p& Y( ^+ MIF[#2LT#3]GOTO1
/ w4 F: o  s- ]6 v8 U/ E$ IM0

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

longmeier

好帖子顶