數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
  f; J" L2 Z: L5 w，我看完之後有灵感，
/ [1 E9 h: t7 F9 }( C8 \) b( {有人說數據交換法.能用于何處???我來舉個例子
; k/ g7 ^2 {+ Y3 x: E
如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
' L3 B/ ?1 K0 ^: S#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
9 t+ L7 E6 q1 [& E0 o7 Z7 F% q#3=#3-#4
* J6 e2 N4 u4 n; e0 W" E+ IN5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
2 D& P7 f9 c+ N: U1 k1 f2 g#1=#1+#2
+ u6 o$ I+ `1 b  M9 N#2=#1-#2
#1=#1-#2
#3=#3+#4
* ]9 f8 H+ u) T#4=#3-#4
' F% B0 ~( |  F7 Y  t#3=#3-#4
END1
% ?5 {0 g3 D% D. w& B1 V( x/ ~......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
2 i: E' c! n/ y7 C5 L$ s#30=1.
* @: j- F9 \, O$ b) n( M/ ~# k1 S*#31=#[#30+#500MOD2.]
M0

, r) w$ a" z) B又想把它這樣寫
: @& Q" L4 |. }7 C5 D*#31=#[#30+#500AND1.]
/ @# _  L0 c7 a( JM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
6 s- f0 b" Z- I" S9 x4 J) |" V5 t. a/ z只有逻辑判断有些系统版本不支持
0 M; ~- u2 [0 a所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
' D4 M- Z% g. Y& l+ Q法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
" R" f6 N$ c  s: I0 j$ Y7 Y' g#1=1.
5 S& C' X* I, R0 l#2=4.
, ]- O) b& o3 g3 s* z#3=7.
#4=9.
9 N7 @; b$ j7 n4 NN1WHILE[#1LT#2]DO1
#1=#1+#2
' d7 ]- }& G" i! \#2=#1-#2
9 {% r# j' D) J+ ]#1=#1-#2
END1
. g5 L: u; Z* V( }7 [N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
' X* K( N# G1 i8 x, x( M7 d1 f#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
) Z. ]' t4 |: w#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
* n8 a; z2 F  w  z! e% b8 tM0


法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
* B4 S8 S+ Y& U" q% X! x5 A#4=D.
# l; g  B( t2 f& }+ `% g4 [1 ~7 HN1 IF[#1GE#2]GOTO2
, v9 T$ k0 c& j#1=#1+#2
#2=#1-#2
7 r  \+ `: Q2 U* d+ @2 x/ u#1=#1-#2
N2 IF[#2GE#3]GOTO3
7 R  l! ]4 o3 w. [. {& `  X1 }#2=#2+#3
#3=#2-#3
  K# g& w. ~5 _& E" O( \#2=#2-#3
N3 IF[#3GE#4]GOTO4
& {$ M  ]8 P5 _" c' k, j* R* Y#3=#3+#4
! n0 d8 L* B8 R7 u& U#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
- |# P4 X) E  RIF[#2LT#3]GOTO2
M0

羅蓋仙

) E  U) @( @. }) C
+ H7 _/ M- p% a/ I7 ~6 q法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
+ d0 K% O; M6 R5 m5 B+ q: w#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
8 [8 Q+ y+ T; [' u; A& X6 w7 a# h#32=4.
IF[#3LT#4]OTO1
: b" x% F7 D) \: ?# j8 R0 PIF[#1LT#2]GOTO2
! b4 Z& k& U0 m  h#31=2.
#32=3.
IF[#2LT#3]GOTO1
9 C% ~- H. o* a5 W+ W  _. R/ eM0

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

longmeier

好帖子顶