數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
6 ~; ?# Q# O, ^6 p) p+ U" g0 s+ x3 P有人說數據交換法.能用于何處???我來舉個例子
7 \% o$ ^# A/ c2 N& [+ h
7 @& S( Z7 h* i如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
* l6 }# c: e. r3 p8 J- q. V方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
, {6 l+ `' s& M5 M: `. a( |#2=#1-#2
1 C" _$ m1 B0 X8 j9 V#1=#1-#2
" |& j! ~- W! ]# e! S#3=#3+#4
- P# r1 ]' w; U0 c/ o/ U#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
* P: q: n$ S% G# C
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
) \" O, ?0 s& A! L  [#1=#1+#2
7 v6 P4 f( W* I# r8 m# P#2=#1-#2
#1=#1-#2
* G0 ]1 X2 k: S# `# t# `#3=#3+#4
! |  q) I* e% y$ M/ T1 H#4=#3-#4
#3=#3-#4
END1
: z3 Q0 ~& V" P6 L9 }......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

+ j- h' f: z% w. _. U7 D( H方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
9 J* V9 p+ x% F#2=10.
#30=1.
" s: [# u5 [6 k  Y*#31=#[#30+#500MOD2.]
" {* u1 u" G" t/ h7 IM0

# o4 K3 ?& B, \2 G" G& I又想把它這樣寫
- X/ k) ^- \0 J5 D' s' `*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
/ _8 p8 b0 U# y9 X, \你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
5 t# S6 Q# L# e# S所以，以上语句可以运行的

羅蓋仙

- T; Z7 d# v' j5 W7 t
使用數據置換來按大小排列，大→小
% @1 D9 M. |4 X6 \+ p6 l) ^0 R2 I法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
/ y3 l# l; p6 }$ b#4=9.
/ h+ N( e7 ^5 B! r/ ~9 eN1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
( X6 u; ~" ~! o- \0 X) d' l" L#1=#1-#2
* I/ R& d# y% y. rEND1
N2WHILE[#2LT#3]DO2
#2=#2+#3
4 A5 h4 p" }/ K+ Q0 _* N#3=#2-#3
#2=#2-#3
8 R  N$ Q& W5 B5 g* u& ]: wEND2
WHILE[#3LT#4]DO3
#3=#3+#4
& I4 I2 O2 `3 ]: s5 m+ s& g3 @#4=#3-#4
& D; J! ]# K1 Z) f+ t1 D& V$ H$ ?#3=#3-#4
" L: ^, i8 W" V( i# hEND3
7 l  v" O6 S5 LIF[#1LT#2]GOTO1
2 [" V- \! N% ]8 N; g6 ^4 P: [IF[#2LT#3]GOTO2
4 H" |. G, O1 c5 u! F# P+ Y0 OM0

) n# @% R9 D" U' `7 n) U, e
' u2 o( w2 @* s( i法1-2：使用一般耳熟能詳的IF-GOTO
0 z3 Y) P) I& `: Z- G1 P" ^#1=A.
* E* b; W( M$ F) U' n% ]4 D) S#2=B.
#3=C.
! p8 w' Q$ H- {' z#4=D.
8 h8 t1 |$ V( w: @  p  K$ N7 nN1 IF[#1GE#2]GOTO2
#1=#1+#2
5 ]* i4 `" k, D0 `#2=#1-#2
#1=#1-#2
, Z" y* C7 S% j! rN2 IF[#2GE#3]GOTO3
#2=#2+#3
/ k: ~6 [  m+ [  h$ g% c; M8 C#3=#2-#3
# W: h4 V$ l* l. ], U( d6 ~" m#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
# T* B' g$ i! V2 F# A3 Y$ qIF[#2LT#3]GOTO2
M0

羅蓋仙

: y( R  V  `5 Y. I6 w2 Q4 A
! N: M/ s5 l/ S) I: h$ U& \1 `% V法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
7 J9 X$ r* y2 b* c0 ~N1WHILE[#[#31]LT#[#32]]DO1
: V& j4 K$ ^+ R7 ?#[#31]=#[#31]+#[#32]
2 p$ Y, s; H! [* A#[#32]=#[#31]-#[#32]
3 J  e4 ]* W- K0 v. V* |#[#31]=#[#31]-#[#32]
END1
#31=3.
IF[#2LT#3]]GOTO1
0 I& K, F$ d* e#32=4.
, M2 H+ Q- E* A1 y8 kIF[#3LT#4]OTO1
, m+ E% [, T  M7 P5 x( h: uIF[#1LT#2]GOTO2
' r* @+ Z, g* X# T6 ^#31=2.
8 {( X  d8 N0 }: I8 a3 u#32=3.
IF[#2LT#3]GOTO1
M0
; ]% U3 t% q% e6 p! S9 p
0 k8 X, \% k" p* ^9 Q! {看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶