數據交換法的使用

羅蓋仙

; a( S. V" T' l0 N上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

# C' ~% a3 ?/ g8 c  \1 t; s如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
1 F1 j! G& r* |  {方法A：
1 {8 F+ W- V8 q7 t3 @+ k( NIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
! |( `8 B# H- y: D& V5 N#1=#1-#2
; p$ B- ^& h$ Z+ @8 `8 I#3=#3+#4
0 [- N& b( \$ x# {#4=#3-#4
( R5 @: K+ S# ^1 j; L0 ]#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
" _& r' h# ]% W. H
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
/ w; a, a- b- Y' ~5 q2 O/ ^WHILE[#1LT#2]DO1
- v: ~+ s  {/ C1 V4 V1 ?$ ^#1=#1+#2
#2=#1-#2
$ O3 w  d; m/ L#1=#1-#2
0 p  X5 W) r- U/ U& m* b#3=#3+#4
# E& i( d6 y* d4 m! g6 p#4=#3-#4
$ ?' U4 p# i$ U: I. v$ ]#3=#3-#4
END1
/ B, |4 @) `% z; o# H0 Q7 ?......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

' u; A, u. w: @* ^& @) O0 I/ h7 k% J/ J方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
  X# Y' x1 A6 ?& j- U% E8 j" K#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
  ?( g( A; Q( F$ H, y8 AM0

8 i& Z3 F/ q% g又想把它這樣寫
*#31=#[#30+#500AND1.]
* |0 b# h8 J, m: v' U* qM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

# U. o& B( H. O+ g* u
$ A0 R# K% v$ V3 Q使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
9 Y4 _' b9 J, Q% \: u#3=7.
+ X# M8 n1 _( v$ i#4=9.
( o  G0 ]# _" i+ H* a$ g, bN1WHILE[#1LT#2]DO1
#1=#1+#2
4 N$ G; _; |6 i( G, l, [4 W#2=#1-#2
#1=#1-#2
END1
! N; r. r; D; v4 S  e0 HN2WHILE[#2LT#3]DO2
3 I) K+ u8 F. ?; }0 \#2=#2+#3
, A/ k& d# l2 T2 \6 ?/ F9 ~#3=#2-#3
# S; l1 a+ ?* }4 j  A+ y3 U# u' f4 r#2=#2-#3
3 M: T2 X' c) pEND2
5 }2 w" h& z9 z9 \" X& BWHILE[#3LT#4]DO3
#3=#3+#4
" x: x% v5 R( l+ p! u#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
7 \* n3 ~; P7 Z4 l" _

法1-2：使用一般耳熟能詳的IF-GOTO
, b1 g6 v# H) Y6 h# R; f#1=A.
#2=B.
#3=C.
/ s! H: z# V8 ?% a9 H9 g#4=D.
8 L; l4 J1 T1 V- G( zN1 IF[#1GE#2]GOTO2
" Q$ P1 C) Q1 M1 f5 h6 y3 Y4 S" M#1=#1+#2
#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
: T( k" A; B% |#3=#2-#3
4 ?. @4 |+ z! `' X  E) C#2=#2-#3
  B  l8 D1 C' S6 L9 X% `$ yN3 IF[#3GE#4]GOTO4
#3=#3+#4
' l( p7 y$ P9 q/ B/ p  W#4=#3-#4
, X0 Q) K& \' A3 {) z3 x#3=#3-#4
3 }2 u9 S) `; {3 a; o) |% LN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

) y" v" e. Q* p: {. V% n% T! W
法二：使用変変數^^
/ q& }+ d7 B: l* Z# g+ j( a' C7 p3 P#1=1.
#2=4.
#3=7.
#4=9.
& v; w# ?/ ]5 M" A9 ?; N/ wN2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
  b; Y" |3 f& L  fEND1
" m1 R' z- W3 n- e5 n#31=3.
/ V( n& _4 Y, z1 qIF[#2LT#3]]GOTO1
#32=4.
' L5 g8 X, ]! E0 QIF[#3LT#4]OTO1
; K" f. [* e1 B7 j) {1 `, IIF[#1LT#2]GOTO2
  X7 g; X0 i" F- c9 _#31=2.
#32=3.
6 `* U" O3 n7 N2 ~8 k- l7 x# sIF[#2LT#3]GOTO1
# C8 F) U8 y! e* E6 \M0

9 y$ b% @* }0 m看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶