數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
0 F7 `& {# ~6 M" l, i，我看完之後有灵感，
' Q1 g* O5 T3 A' g5 h. d8 n有人說數據交換法.能用于何處???我來舉個例子
# p7 [8 g9 C' U9 [. F
0 q. k1 d# J- ^' _如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
#1=#1+#2
& J* T1 X- Z8 D#2=#1-#2
#1=#1-#2
#3=#3+#4
#4=#3-#4
#3=#3-#4
N5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
' r# H! F0 ^* e2 B* x$ Z方法B：
/ W+ v) M% Z8 V. ~8 t9 p8 A" ]: {# ?WHILE[#1LT#2]DO1
#1=#1+#2
#2=#1-#2
#1=#1-#2
8 C3 z& v) c% s3 h) T# X#3=#3+#4
#4=#3-#4
: B" t1 e5 D1 m) K3 E#3=#3-#4
3 S  L, d1 q7 QEND1
......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)
; F8 v5 n9 [. F' q
方法B：就是#2條件不成立(沒有錢)會避開迴圈(餐廳)不進入，#2如果條件(有錢)須要它進入..不用任何迴圈計1次器..進入(餐廳)之後完成裡面的動作..自然會離開迴圈(餐廳)..就是裡面的動作(伙食)能滿足它..吃飽就會閃..因為#2吃飽又變成沒錢了..比起他不消費的朋友#1

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
#1=5.
5 P- C+ N$ u7 P  f0 b#2=10.
. U. p1 Q% B( a( x# s- ^" a#30=1.
0 _0 C$ v( h% V, E) z) }*#31=#[#30+#500MOD2.]
1 \! h: x0 N% w8 ]9 j/ _9 ^M0

又想把它這樣寫
*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
6 c: Y, h  |) A1 F! k你的表达式中没有只是逻辑运算，
. g/ z/ Z* u- `6 A2 @只有逻辑判断有些系统版本不支持
4 L! ?8 W, J* W  o7 V  x所以，以上语句可以运行的

羅蓋仙

, k+ x/ e5 b, {4 R; }6 g6 h* `2 S使用數據置換來按大小排列，大→小
. z/ w% r3 y! e法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
( X6 M# B/ b; x  `. t5 x#1=1.
4 g  b  Y: g5 \0 I6 `#2=4.
$ Y, q6 |3 v0 k- t2 B#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
; i/ Q3 p* g: z* @- l" o5 V; a" i#1=#1+#2
#2=#1-#2
# |5 m& h( N' p! P' [. H# v1 y#1=#1-#2
END1
N2WHILE[#2LT#3]DO2
4 b& j$ Q' }/ n9 T% F#2=#2+#3
( d9 k& w) l/ s& U1 d. s/ k2 Q#3=#2-#3
#2=#2-#3
* F9 i. P# N! eEND2
WHILE[#3LT#4]DO3
#3=#3+#4
#4=#3-#4
#3=#3-#4
END3
IF[#1LT#2]GOTO1
: A' u0 ]: B' v% Y7 [; \1 BIF[#2LT#3]GOTO2
3 c9 L+ p7 S( P9 ]1 G4 y2 k+ q% cM0
9 i/ T7 F- |) l! v# [) }2 q6 V4 |
7 @% e- t; ]# k' K0 U/ H* t( G% }
法1-2：使用一般耳熟能詳的IF-GOTO
/ s9 ?, g! @% \5 t" t# M6 _#1=A.
) @$ m, I( P% m2 _9 ~! `3 B7 w#2=B.
#3=C.
" u+ [6 n# m; N( M4 O: o3 Q#4=D.
N1 IF[#1GE#2]GOTO2
#1=#1+#2
. p8 i  v7 d5 W/ f; \#2=#1-#2
#1=#1-#2
N2 IF[#2GE#3]GOTO3
#2=#2+#3
8 Q% i7 w* L6 D4 D3 q6 f9 Y0 z! k#3=#2-#3
#2=#2-#3
N3 IF[#3GE#4]GOTO4
#3=#3+#4
+ j- J" a1 l6 s- `; D+ B#4=#3-#4
#3=#3-#4
! N4 E* }8 F* G0 gN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
M0

羅蓋仙

: j% b& ?0 H8 p) R+ f) g1 q
法二：使用変変數^^
#1=1.
#2=4.
#3=7.
#4=9.
N2 #31=1.
#32=2.
N1WHILE[#[#31]LT#[#32]]DO1
' c! j5 G& _$ a6 Q5 C, T' a#[#31]=#[#31]+#[#32]
  g9 S% g2 X. y#[#32]=#[#31]-#[#32]
#[#31]=#[#31]-#[#32]
END1
- T" F. @9 @5 ~' Q/ X#31=3.
% z- u& y& ]; O. }3 qIF[#2LT#3]]GOTO1
#32=4.
9 S: M$ m$ L! X2 xIF[#3LT#4]OTO1
IF[#1LT#2]GOTO2
#31=2.
( o1 t, ?% h$ a! V1 l#32=3.
8 U, T5 Z; N0 l; n2 vIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶