數據交換法的使用

羅蓋仙

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

; e- i6 l8 c1 m3 b如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
" B% _8 K- |5 [, C2 _1 C- GIF[#1GE#2]GOTO5
#1=#1+#2
$ b% W) D7 L$ G#2=#1-#2
#1=#1-#2
#3=#3+#4
/ x( X% V6 h7 O3 b7 l5 n9 ~#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
# _0 P! \7 W, O! y方法B：
) C3 @" q$ H/ |( g, e4 bWHILE[#1LT#2]DO1
' v& G) X0 I" }, g0 t5 r#1=#1+#2
! `6 Z  m" T8 p. p#2=#1-#2
" d8 d, v  o9 {. Z# k# O#1=#1-#2
# i6 v) [0 G1 A9 P#3=#3+#4
#4=#3-#4
#3=#3-#4
END1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
1 F: Q5 k  A& E; j- p6 u
3 a; t) o" J7 Q. T# ~' T) I; K  K0 |方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
* J) `+ U# P( K' R/ N#1=5.
4 K  ]$ [; M# h+ r#2=10.
#30=1.
*#31=#[#30+#500MOD2.]
* t7 F/ E$ J. \7 N. ~( L8 e2 P) IM0
: c# H4 `& `9 J$ p2 R$ c
又想把它這樣寫
*#31=#[#30+#500AND1.]
; g# E! ?* [4 i3 T" q- tM0

空气中的小鱼

回复 2# 羅蓋仙
你的表达式中没有只是逻辑运算，
& K+ U" n- n4 p4 T- o2 [' }只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

1 j5 K! b) y  ^9 [2 E5 Z& o
使用數據置換來按大小排列，大→小
  n9 t$ ^; a( R: Q法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
#1=1.
#2=4.
#3=7.
#4=9.
0 J# P2 E5 \2 E+ WN1WHILE[#1LT#2]DO1
#1=#1+#2
3 i" t6 p  B% M8 b% Z# L) O, J#2=#1-#2
/ r# z% z' C4 f9 f! K#1=#1-#2
: B% x1 p% j0 v$ |* M) aEND1
  B& o0 D- N: s& WN2WHILE[#2LT#3]DO2
& N+ i, S6 g: p- s#2=#2+#3
#3=#2-#3
6 c" s8 L2 c$ C% H0 I- b4 ]" v4 t* {#2=#2-#3
! l4 a* X6 ~7 O2 ?% X* D# GEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
3 O/ q( J9 O& j  h! a8 [8 M#3=#3-#4
END3
IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0
2 [# H8 A) B: A1 k2 ~4 i; n4 H$ c# p
! i# ^" J* J5 c! h
法1-2：使用一般耳熟能詳的IF-GOTO
#1=A.
#2=B.
#3=C.
#4=D.
) f" s; B2 x8 C7 N* D7 d% C, sN1 IF[#1GE#2]GOTO2
7 d; m% ~, y$ o1 \9 o1 ?* O#1=#1+#2
& l  E" T8 {9 f4 g5 _- z#2=#1-#2
* U  G5 m, d1 ]% m! G#1=#1-#2
" ^  r/ ?. d$ V0 B7 L0 ?% M8 jN2 IF[#2GE#3]GOTO3
#2=#2+#3
#3=#2-#3
7 w; @7 v' ?/ K; i. x% i#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
#4=#3-#4
6 Q3 L# \8 m! \5 ?' Z8 [#3=#3-#4
N4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
- u* Q2 k2 p# Z) @+ y  Y+ i: EM0

羅蓋仙

1 y# w2 W5 N& u+ U0 H6 z( m
! q' T$ }/ w: |5 ~法二：使用変変數^^
#1=1.
# L  t5 i5 J( F, a3 Q7 s#2=4.
$ j7 Q9 `+ W( {0 p7 r5 l8 m#3=7.
; l1 s3 q# W* z& |- v, Y9 }#4=9.
N2 #31=1.
1 W( b& [9 K) w5 _#32=2.
8 a$ G) n# o/ J6 D' ^" pN1WHILE[#[#31]LT#[#32]]DO1
: s8 R4 N" {) f9 p8 T, J- `2 N#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
#31=3.
, o+ S7 F. R+ T+ K# ?$ v% xIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
' Q8 M/ Q  i1 D) A( R: V! p( CIF[#1LT#2]GOTO2
#31=2.
7 L- o6 g& n+ V  T' M+ W#32=3.
, ?5 M8 g2 x5 k2 GIF[#2LT#3]GOTO1
" l& P  U: M( h6 M8 p9 m8 \M0
8 y4 R, W3 y, _0 g& L$ A* t# t5 R
9 Z5 Z- ]% Y5 e3 r) S看你習慣用那一種，其實還有其他的方法

longmeier

好帖子顶