數據交換法的使用

羅蓋仙

  Z6 R. M5 b" e9 ^9 E
9 K! T7 T" `5 X* l# f! Z/ U1 {+ D6 }1 C上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
有人說數據交換法.能用于何處???我來舉個例子

6 V$ H% H) W$ b如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
4 B1 o& \7 \  h- r  y( B% I方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
1 E- n. r# ?0 n# T7 e/ _#2=#1-#2
6 u" A: U! E* Q#1=#1-#2
#3=#3+#4
#4=#3-#4
! k5 J# X+ G5 J9 e#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大
6 I* f5 m7 _5 R/ @9 ~
$ P( K  [( n3 d$ z我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
方法B：
/ ]. `2 m, {; ~) K+ RWHILE[#1LT#2]DO1
& c4 ~1 s, b1 T#1=#1+#2
#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
$ E# c5 X( j& ~9 q( n6 REND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
) i, d+ O6 z9 g
3 ?- [0 b5 d3 k" A: N  e方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
6 N9 H+ d, b. N4 d) w  L" P" U8 |#1=5.
#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
$ N: q/ e. b3 F+ b2 s, G# DM0

! t$ x9 C  T8 L+ }: p( [: {( A5 C又想把它這樣寫
; \: F9 N3 O! j: H5 C*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
只有逻辑判断有些系统版本不支持
, W% v/ y% C9 X5 L& \7 O所以，以上语句可以运行的

羅蓋仙

使用數據置換來按大小排列，大→小
/ b8 A" R) Q. r. D法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
8 X3 ~. k8 P, i; v) ]( g# G#2=4.
#3=7.
- N4 z) q8 B9 e) R* Y: P# W6 x#4=9.
N1WHILE[#1LT#2]DO1
: o. K7 k+ f; y' |8 t# b6 X7 o#1=#1+#2
3 z3 N" u: D2 j1 U0 G0 W#2=#1-#2
#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
#2=#2+#3
* a, c! o8 i( e$ G1 M% I#3=#2-#3
#2=#2-#3
: i* c! n6 Z5 A- ]7 {END2
3 U! h8 x: J$ c4 X7 @9 M7 wWHILE[#3LT#4]DO3
#3=#3+#4
) ]$ k/ x% k" @#4=#3-#4
#3=#3-#4
" {2 k3 A- {3 JEND3
) D; q# S) k$ h0 E* l8 G* l' v" gIF[#1LT#2]GOTO1
  |+ Z0 n* d/ q: H- tIF[#2LT#3]GOTO2
M0
9 H" S  G# Q( y- Z0 F+ i+ a& T
5 R( ^( i# I1 [  G
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
. s7 u8 N/ ^! k4 a3 j#2=B.
#3=C.
6 `" M) I: Q( u/ N& s#4=D.
N1 IF[#1GE#2]GOTO2
. O# G8 c2 `! C0 R7 ]6 v#1=#1+#2
9 A1 ~1 m$ H0 |1 O' @. ^#2=#1-#2
- I7 S! w8 B8 S2 W* s( s3 d#1=#1-#2
N2 IF[#2GE#3]GOTO3
) L  D' ~& M. H! Q' e9 L#2=#2+#3
( H" ]: B. g1 Y#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
& z" z- z+ R6 s  N9 O, W4 b$ r/ m#3=#3+#4
$ f6 a! t# `) }! c& g) b6 e#4=#3-#4
#3=#3-#4
& l# a/ S9 R0 y/ X  g8 z1 a8 jN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

( z& \0 l3 S6 G) Y  h& z3 Y# K; K
法二：使用変変數^^
9 d& X- t2 S; ~$ X% @#1=1.
#2=4.
6 x9 Q, h/ s$ ^; A8 n#3=7.
3 n8 f* V2 M% ~& X& t8 h* s#4=9.
N2 #31=1.
* s7 h% E2 G; [- }8 x6 F" a3 Q; }#32=2.
* f' m4 N& C. k- T: _+ yN1WHILE[#[#31]LT#[#32]]DO1
#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
8 p( b- e+ L9 e7 ]! Q( c+ o2 r#[#31]=#[#31]-#[#32]
END1
#31=3.
. \( Y& Z, F& r0 t" O; z9 A: r/ CIF[#2LT#3]]GOTO1
% o7 m; D+ E3 k. [4 n/ A( o#32=4.
+ `) Z9 k% g# o" V4 DIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
# U( d  p( Z+ g4 S  M% H  A1 L# y#31=2.
#32=3.
IF[#2LT#3]GOTO1
! q* p+ c$ ]0 |$ r1 kM0

3 {, h8 i; p4 o3 L( u9 c6 g7 L+ f8 w看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶