數據交換法的使用

羅蓋仙

( }( B2 x5 o  K
上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
9 |8 n: Y, Z2 t有人說數據交換法.能用于何處???我來舉個例子
  k8 @/ q3 b- ?7 }  F' t) r, F) R
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
, }' o  U  H% @2 T2 M) _方法A：
9 l! l4 s; J% X- S! k5 NIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
#1=#1-#2
, S  L$ ?& F8 O#3=#3+#4
#4=#3-#4
#3=#3-#4
1 p: s, ]; b6 m. t5 [% _. x: ~% G) GN5......此時#1的值已經置換過來了.#1的值一定比#2大
0 \5 D. K% h( V) M' r5 ~
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
, |+ ?8 g* m- N7 a; g3 _WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
- {7 T3 o' S$ n: q) K0 g#1=#1-#2
#3=#3+#4
#4=#3-#4
* T& t1 [/ ?! i) p8 A: e7 G$ H, K#3=#3-#4
4 S( w0 N8 X  fEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
% {8 _; n5 s+ o#30=1.
# f+ m; w1 q9 R* ?; U: W. K*#31=#[#30+#500MOD2.]
M0
; H/ g* `& v% L: {
0 ~/ W6 e6 j0 k) n$ B1 ]3 |又想把它這樣寫
0 P- H: q4 @& ?9 l# N*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
; u' S9 Z* O; Y' q/ l你的表达式中没有只是逻辑运算，
( j. S; C* r  h9 c  N" s8 Y只有逻辑判断有些系统版本不支持
0 Z. n' o' I+ l% M) l& {所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
: t7 Y- x6 G% Q6 M0 F#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
END1
2 r. U* Z4 {3 j6 x- d+ c& dN2WHILE[#2LT#3]DO2
; Q: }/ }- h" {% C( t9 |" B( }#2=#2+#3
1 M" L! G/ L7 k- U; y#3=#2-#3
#2=#2-#3
2 J; _( C& u) F6 ?# R+ nEND2
; y  A6 ~0 \( _+ b, h% eWHILE[#3LT#4]DO3
4 T" A0 Q! @" s- g/ ^3 i$ G; p#3=#3+#4
2 k; P% {5 ^: T+ ?#4=#3-#4
#3=#3-#4
0 D8 F% p; h2 \3 YEND3
IF[#1LT#2]GOTO1
3 q: b. i0 g5 _" H" wIF[#2LT#3]GOTO2
/ e9 \0 L; Z. wM0
' h# {  s# Q1 D

法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
/ r/ L' n( G3 p# e+ B#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
7 J7 I, {% b% L( \* k; _#1=#1+#2
' ]4 ]/ c: G9 _) Q#2=#1-#2
#1=#1-#2
* _5 v3 j6 \* c. w: fN2 IF[#2GE#3]GOTO3
#2=#2+#3
5 I% x$ [0 x3 n7 f1 U' \2 A# \#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
. K3 }, b" H5 R" a* m; V#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
- B" H# @1 m  ~( B  xM0

羅蓋仙

9 w$ ^; d# a# `3 z! ?% N: B; `* T
法二：使用変変數^^
! I0 i' ^7 z: U4 a  A#1=1.
9 }! G8 {. d) y#2=4.
#3=7.
) z4 \0 D$ ?# k" W% W& R7 {) L#4=9.
4 I8 Z5 I" h0 }/ c+ H- kN2 #31=1.
#32=2.
3 u; g% I, c7 V) l6 s# T0 nN1WHILE[#[#31]LT#[#32]]DO1
2 @! \) V; Z: ]- n, G" Q( M#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
6 r! Q0 G+ [* ~#31=2.
#32=3.
9 w& i; r+ |& U0 }/ y" d( g8 rIF[#2LT#3]GOTO1
+ v, ]* M# U7 ]" w+ BM0
' {1 b  q- W) f% G! u9 X
, n% h- ~/ m: v$ {看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶