數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
% `. [+ U4 v" |5 T' [! _有人說數據交換法.能用于何處???我來舉個例子

) ~, M4 W- p7 Y' n7 {9 U如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
; k# E( [2 m) M6 g6 d$ O使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
" h* Y! D$ s1 J% v5 x#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
) U! X  }! p7 e- Z6 j6 X2 ~& `#3=#3-#4
) ]4 N" p$ g( p- L, j' Z) Y' i3 E" ]4 sN5......此時#1的值已經置換過來了.#1的值一定比#2大
8 Q# ^- J1 v& D4 a/ O
; P- v) B6 i) |* f; S3 n5 b我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
2 w2 ]5 O3 R5 p- o2 G方法B：
WHILE[#1LT#2]DO1
* }7 k' j  U3 N#1=#1+#2
#2=#1-#2
#1=#1-#2
. x7 M+ ~1 L. y3 {( l#3=#3+#4
9 c1 e/ F5 ^; C% Q/ D% Z; k) ?* Q( X#4=#3-#4
9 m; n: K% `( t% E7 {/ Z2 w#3=#3-#4
END1
6 T8 z; b. c5 g$ X......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
# Y. i$ J, s1 B2 v$ |$ k
5 J3 Y* O) L" j" v" C方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
& L. {1 y1 j- @* `' j4 p5 g#30=1.
; y: m, H$ t. t+ l% M1 _9 ?# A2 T( f. V*#31=#[#30+#500MOD2.]
M0

  V$ b3 T% C. J! c又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
6 Q; {8 ^; k1 \只有逻辑判断有些系统版本不支持
* L& C- u* {) Y/ D+ \5 w所以，以上语句可以运行的

羅蓋仙

/ {. b4 y! A. \) X' H  x1 m3 J
使用數據置換來按大小排列，大→小
5 [% \2 t0 ~% v0 L1 ]法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
3 ~$ s" N/ M1 F, C#2=4.
#3=7.
#4=9.
" q+ F3 P3 v! Q" b9 V0 u! v; CN1WHILE[#1LT#2]DO1
: w6 {% d* T* U$ e& l9 ]7 c" R#1=#1+#2
#2=#1-#2
- ~$ @7 Z$ U$ G5 K#1=#1-#2
* h& G3 i, W  {6 O# U/ n2 g3 }END1
N2WHILE[#2LT#3]DO2
! N; e5 H8 J# k) y, c#2=#2+#3
#3=#2-#3
#2=#2-#3
END2
! q# B" Z5 l5 W, }* q! jWHILE[#3LT#4]DO3
: d) t0 W8 s/ D$ A$ r#3=#3+#4
2 R3 W- a' r# D; J$ m9 Q5 ^& N8 m+ V#4=#3-#4
, q% ]* d* m/ N4 B#3=#3-#4
+ |% X: h3 F0 F/ Z/ S" |  [END3
' |; F7 |5 j7 N1 `8 |$ ]IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

- l8 m6 G5 H- r) v. j
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
# ~6 l, M" D* J; h#2=B.
& _9 j* ?5 u. B& Q#3=C.
#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
; i% }! Y3 B+ o+ a( S$ J#2=#1-#2
#1=#1-#2
# ?- S  ^& \5 j5 yN2 IF[#2GE#3]GOTO3
& m- @$ x) b9 x) h$ w  I( B#2=#2+#3
#3=#2-#3
+ y2 v- k! x$ X, u: z) q#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
#3=#3-#4
N4 IF[#1LT#2]GOTO1
# `$ V) x# S: X7 j, Q3 F: }2 {IF[#2LT#3]GOTO2
; H. I' g1 m  ^8 uM0

羅蓋仙

法二：使用変変數^^
#1=1.
#2=4.
, L8 k) e9 `. |1 p, K: C#3=7.
4 m( D5 k* q% d#4=9.
& _! a) L* g+ ]6 ^N2 #31=1.
#32=2.
# c$ V7 i& H9 b3 f, cN1WHILE[#[#31]LT#[#32]]DO1
  ^! K/ {% d+ V7 b2 b- h#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
/ d" N% ~# _- {# }  N" d5 S( H#[#31]=#[#31]-#[#32]
  ~$ }4 l* C8 U* OEND1
#31=3.
) H2 k! k" K" W$ t4 e4 _IF[#2LT#3]]GOTO1
$ @' J: V* J0 E* j: F#32=4.
IF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
/ d# O  ^3 `4 s/ S#31=2.
#32=3.
% r, G: y; {  C" JIF[#2LT#3]GOTO1
# @4 G2 {; z" Z" |9 _1 B8 qM0

. h1 F4 a) p1 J看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶