數據交換法的使用

羅蓋仙

# A* |% Y6 r5 b上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
$ R/ ?5 o7 _4 K" ?8 L3 o有人說數據交換法.能用于何處???我來舉個例子
( q; J1 A- u+ C, F) l# w& S
; B+ \; P( x9 H9 g, Y: V9 c2 x如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
  `: o: K: U% c使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
- o% R+ _  X1 ^& [" Q9 e% AIF[#1GE#2]GOTO5
: m+ o6 ^2 e  I#1=#1+#2
#2=#1-#2
' Q& z+ }, r4 q& ^' E#1=#1-#2
3 _2 ?; p' |/ o, y) e#3=#3+#4
#4=#3-#4
#3=#3-#4
* ^" F4 A' I2 z# _) l/ u6 d% g! ^' \N5......此時#1的值已經置換過來了.#1的值一定比#2大
: N7 G8 g# ~- y+ u
我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
2 c7 Y, @" f4 B, O: e9 P#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
( A" \2 g& |/ o- U+ \8 `9 ^( kEND1
6 E) K; V8 ?. A: ~......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
* ^7 n0 s; q! P5 y#2=10.
#30=1.
7 q: ?1 g: m- _5 R3 @6 f2 t) s*#31=#[#30+#500MOD2.]
M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
: b9 V1 y1 q' T% N. p2 ~% b) L7 yM0

空气中的小鱼

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

羅蓋仙

! Z! N$ t3 ~/ T7 P8 s9 Z0 |+ t8 u
使用數據置換來按大小排列，大→小
法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
. }% X# z9 e9 z8 q% u$ A# u# eN1WHILE[#1LT#2]DO1
#1=#1+#2
* {. B$ z, w9 {0 [#2=#1-#2
7 F4 u( k6 z* e. c$ {! G8 G#1=#1-#2
% p. K/ n- o  }. X! \: }END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
#3=#2-#3
; o  }/ e4 x5 g6 L. Y1 A8 G#2=#2-#3
END2
8 B! s8 x" q6 F' p$ F8 u/ IWHILE[#3LT#4]DO3
#3=#3+#4
& K# }4 V4 m' p1 s# f$ r#4=#3-#4
/ m+ J1 K1 b; ?#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
- ~7 n/ Q9 U  Q0 eM0
! w; N" Y8 N, j0 v1 T' |

  S: r: F! j. v) q' g法1-2：使用一般耳熟能詳的IF-GOTO
2 b0 W7 `! Y- R! J) m6 I9 z#1=A.
#2=B.
#3=C.
#4=D.
9 E# R4 v8 j1 ~+ o, R  ^# HN1 IF[#1GE#2]GOTO2
7 ^5 E4 Z- p2 {5 x& \#1=#1+#2
#2=#1-#2
#1=#1-#2
' g! O! s9 ~+ w* A4 u# P/ ON2 IF[#2GE#3]GOTO3
#2=#2+#3
7 d. ]& q7 k6 a/ A6 f) X#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
% g' B( m+ v4 T* C/ Y8 C. \#3=#3+#4
#4=#3-#4
0 e# g9 u$ N4 [8 x#3=#3-#4
% |! S. U9 H4 I& w% ]; o3 C9 aN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

$ J# x! K( D7 ?; ?: ?! I9 {
法二：使用変変數^^
6 `1 ]1 V2 Q  I" k7 a' p#1=1.
#2=4.
  j+ R5 G4 d+ t#3=7.
#4=9.
N2 #31=1.
% K) |7 W2 E! U; w& @3 r#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
: u& ?5 T  e7 {- w" ]6 G#[#31]=#[#31]+#[#32]
1 W. k. d7 d2 r' `$ E8 h) U2 s#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
9 h- J3 h6 W. c" g; Y' ]END1
& T! l' d) `. D* M. p6 c8 w#31=3.
IF[#2LT#3]]GOTO1
#32=4.
$ v4 u1 a5 f% w! lIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
#32=3.
2 |; z4 C' u4 _, L, U% cIF[#2LT#3]GOTO1
M0

看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶