數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
- u; v5 v% o8 z) p8 A$ z，我看完之後有灵感，
$ h/ C# N( b! ?7 c有人說數據交換法.能用于何處???我來舉個例子
* d' U+ e& i! @7 t# P+ x
& ?" F9 o# `3 h如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
5 o/ N( J; G# J#1=#1+#2
/ F" O& S: h+ N* [' k#2=#1-#2
( E/ q, a1 d( P( t' N# s! {7 Z#1=#1-#2
#3=#3+#4
#4=#3-#4
( z, h% M# b, W  u) T#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
! ~+ y6 w: e9 D( L" n9 \( C0 u6 OWHILE[#1LT#2]DO1
% e7 x5 T) r  Y7 e7 @( a& ]$ J#1=#1+#2
9 E* M: X$ ^2 |0 e; ]$ X#2=#1-#2
, K: U) ?0 r' Y- r#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
, G9 _  _  |+ S% a- B( eEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
. X# h# W4 k% n9 ]- k
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
$ U0 k. ^" G, P$ }$ @#2=10.
#30=1.
$ Z( q' l, W* h1 z5 ^1 \*#31=#[#30+#500MOD2.]
& X  C- v# P% j  u3 eM0
" }9 P% c* e2 M8 u. R1 Y
又想把它這樣寫
! K" F2 B' \; K$ x( T7 s*#31=#[#30+#500AND1.]
, X% |& Y7 Y/ c8 L' L' N! y+ Y: lM0

空气中的小鱼

回复 2# 羅蓋仙
& b" Q8 |" o2 Q  n你的表达式中没有只是逻辑运算，
  l6 `+ `, i. K# E$ [只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
9 Q8 v/ {* u+ ~8 z2 N#1=1.
#2=4.
#3=7.
* E) N5 O2 v/ D#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
% y$ @1 t6 T( j3 O* N5 C2 D- s: c0 |0 w#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
  \" D. C% H8 g1 a#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
3 x& H; V4 w( w: B  \9 }4 I#3=#3-#4
2 l# {- D% E+ _END3
IF[#1LT#2]GOTO1
; F$ N  {- N- m1 a/ yIF[#2LT#3]GOTO2
M0
5 v) i/ b, g% b  k. V. H

1 ^+ C& j& R# v, u2 t8 T* n5 `法1-2：使用一般耳熟能詳的IF-GOTO
$ Y  S3 P  |, ]+ T8 ~0 m3 n" j7 C6 f#1=A.
; u5 `) u" b9 f2 c. X3 c#2=B.
$ ~2 z+ u; a2 t' k% d' L#3=C.
, _) J2 a# r6 f3 ~#4=D.
N1 IF[#1GE#2]GOTO2
! G% U. u6 {2 l+ Z#1=#1+#2
% I& [7 v/ M. F#2=#1-#2
#1=#1-#2
2 k5 _$ J7 w8 R" _* {3 v# UN2 IF[#2GE#3]GOTO3
+ }8 O" m3 r/ ^. h6 }#2=#2+#3
- U+ \  Q) i# f6 ]0 M6 [$ {6 Q  j' P#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
* b5 L- B( F1 `+ b6 ?, s#4=#3-#4
#3=#3-#4
- v+ f$ d9 m' X1 ]* D9 l  HN4 IF[#1LT#2]GOTO1
, P8 C+ J# o% E  ~* DIF[#2LT#3]GOTO2
' E6 ?; h! ^5 ?; w! A0 @M0

羅蓋仙

1 q5 g: K4 d1 V6 A法二：使用変変數^^
#1=1.
9 d5 e# B* E" ?' J; E9 Q#2=4.
#3=7.
; c) s+ u) M* `- _#4=9.
5 E9 N* u' A# P8 F) u1 ]N2 #31=1.
) f1 s4 `# w9 }* Z* ~! Z#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
4 J$ h( S9 t2 X$ G5 O" r* u#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
#32=4.
, t; E2 H- I0 C7 S- P" ?0 F$ dIF[#3LT#4]OTO1
1 j1 [7 q$ {4 XIF[#1LT#2]GOTO2
#31=2.
#32=3.
# ]; ?3 |+ H; a7 pIF[#2LT#3]GOTO1
) ]0 H1 t5 [" I/ e6 ZM0
# K# P& L" {4 H" K+ L. k
) t5 H3 s, E6 t4 n* z看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶