數據交換法的使用

羅蓋仙

6 ?- W. i9 w% l  q  V/ p+ \2 V
% P! A; ]+ n# ~/ L# e$ ]上次某個大大發：「編寫加工中心優秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有靈感，
1 y& E7 q5 ^& R8 Q有人說數據交換法.能用于何處???我來舉個例子

, F" ^: L/ k) |+ t如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
: U0 t8 b8 m7 d. z2 `  wIF[#1GE#2]GOTO5
#1=#1+#2
#2=#1-#2
; p- [" d0 Y0 w% q- x/ G2 F; c% E#1=#1-#2
#3=#3+#4
9 ]" [0 [  E9 `+ E7 S. }4 |#4=#3-#4
#3=#3-#4
  _( p9 _3 T4 f- \N5......此時#1的值已經置換過來了.#1的值一定比#2大
- R: Y% S% ~4 z4 p4 D! a
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
: S$ x" x6 a; U" y5 K9 Q6 LWHILE[#1LT#2]DO1
" L) }! T7 ]' i. c& z' P#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
- f# {# M8 f: d9 H# G  |; j#4=#3-#4
$ T( O) X) q! E" C' V#3=#3-#4
! p) A4 Y0 S" zEND1
2 w6 q% Q1 d& R& z2 F& v......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

% S) b4 ]- d" E9 T+ k, L+ L& M9 T方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
#2=10.
9 A9 N9 r! H5 m2 T, P9 w#30=1.
*#31=#[#30+#500MOD2.]
6 C, Q9 g# c* tM0
, t& ]; y7 m+ G& N- q) `# [
又想把它這樣寫
*#31=#[#30+#500AND1.]
4 C  m1 A7 K0 G$ z, X  [6 ?, RM0

空氣中的小魚

回復 2# 羅蓋仙
6 Z& Q4 D# z$ f" w: w你的表達式中沒有只是邏輯運算，
$ j% G2 I' g" g8 d0 b( k7 B7 J只有邏輯判斷有些系統版本不支持
所以，以上語句可以運行的

羅蓋仙

( {& g  Q# L& L* I
使用數據置換來按大小排列，大→小
! f" T; J+ w4 L3 M- h1 P, _( d5 Z+ b法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈從大到小排列完成
8 b$ H7 ?  R6 G+ A( c#1=1.
#2=4.
  \& C; o: t. y( H) `9 B#3=7.
9 j* S2 D) h5 V# u# |- E3 n: y& U- [#4=9.
N1WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
* ^3 N5 p9 @' l$ y) f$ YEND1
! |1 n5 z/ C: u3 L; A: _  @N2WHILE[#2LT#3]DO2
  N2 ~/ t9 n5 y& ^( `: Q0 V; `  B#2=#2+#3
7 I. v$ g4 V9 T, R" J#3=#2-#3
#2=#2-#3
$ Y5 X) k* l0 d1 v7 {END2
6 w1 N5 x8 ^2 ]/ d3 B- cWHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
. P- v$ p5 X, T7 D( y1 M  W( SM0

% G) ?% }2 i0 g$ ]( @$ S
7 K( E1 T. T+ H3 K& P, ?+ d  L) d5 t' n法1-2：使用一般耳熟能詳的IF-GOTO
" a$ b  n6 m6 Q5 R8 D#1=A.
#2=B.
6 [9 c1 y0 l$ g#3=C.
6 L( ^: \4 t( O, _' m6 V  n#4=D.
N1 IF[#1GE#2]GOTO2
; W/ J7 G" I% V: C' ]% e#1=#1+#2
" A3 D7 v- O$ o( v. \#2=#1-#2
- S1 W# {/ b! m; b& _#1=#1-#2
- @  a8 H% q" K8 ON2 IF[#2GE#3]GOTO3
! F1 |  |  _3 B: C$ X5 b# H$ g#2=#2+#3
#3=#2-#3
#2=#2-#3
# _( [+ Y/ K7 A/ h: N4 AN3 IF[#3GE#4]GOTO4
/ r5 r+ Y" ?7 b6 N#3=#3+#4
#4=#3-#4
#3=#3-#4
, i+ g" F! a1 b, h1 v5 o" E; {; cN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
2 j* z$ I4 ~) K& G+ y( p7 G( ~M0

羅蓋仙

$ j: ~% k; u7 w4 G! j. M. k: A0 \5 _
法二：使用変変數^^
#1=1.
#2=4.
+ i- |9 i$ d- U5 n/ D6 m- a#3=7.
* q& x9 m0 A% ^/ k  K5 |, V5 Y#4=9.
N2 #31=1.
#32=2.
; I' b. j4 P; a! A  a: ZN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
+ X% e; Y/ r4 ?#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
; P# F* A# i' `% V#31=3.
IF[#2LT#3]]GOTO1
#32=4.
, a0 a; o9 O0 J9 B& z4 d" nIF[#3LT#4]OTO1
7 Y  W5 t0 |0 O" t5 a. I( @# PIF[#1LT#2]GOTO2
#31=2.
3 ?: R' I! H0 ]; R# l8 \, H#32=3.
IF[#2LT#3]GOTO1
M0
  g: k: @$ |& s7 H' {) G
" h) N; l9 p/ X! R: B/ u" {看你習慣用那一種，其實還有其他的方法

longmeier

好帖子頂