數據交換法的使用

羅蓋仙

上次某個大大發：「編寫加工中心优秀宏程序要訣」與「數據交換法.置換法」的文章
，我看完之後有灵感，
0 q7 B; |" u/ z% q' A! U有人說數據交換法.能用于何處???我來舉個例子

2 V6 {! ~6 c. i! q6 s如果#1入值必須比#2大，然後#1的搭擋是#3；另一方面#2的搭擋是#4
使用者把它顛倒了，#2的值比#1來得大，你可以這樣寫，我們使用數據交換法
方法A：
IF[#1GE#2]GOTO5
" t7 a% \3 H9 U- w" s#1=#1+#2
#2=#1-#2
' C3 K% ^" J/ @6 C% }#1=#1-#2
& F, u; X6 U/ O* A; E; z/ w$ @4 v#3=#3+#4
#4=#3-#4
6 y' d! P7 ]% |7 ?8 C#3=#3-#4
7 u  S. p6 y, R6 ON5......此時#1的值已經置換過來了.#1的值一定比#2大

我覺得可以不去使用GOTO，我改變它使用WHILE會更妙
" w' S3 L" K1 N8 L方法B：
WHILE[#1LT#2]DO1
#1=#1+#2
$ }2 n7 [7 E- z2 C% G/ A3 b#2=#1-#2
) k8 @0 n& h( ?! V2 A* O#1=#1-#2
#3=#3+#4
% p' \9 G4 ~( X0 b4 I#4=#3-#4
" M0 g9 D- G0 E5 [#3=#3-#4
END1
" c- X* T: F; n......(N5也不用加了.沒有過多的N序號.此時#1的值已經交換過來的.#1的值一定比#2大)

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

羅蓋仙

另外一問，這個運算可行嗎？自己亂寫的
  P0 y8 q" W& P4 T0 C" v& o4 p+ o#1=5.
#2=10.
) ]5 g8 n+ _( v7 @1 U#30=1.
' ]" a5 V3 `6 G*#31=#[#30+#500MOD2.]
  ~8 X$ e9 A. C' _- E* D7 |+ F" i6 G, [M0
! F) I/ t4 d8 x9 g# g4 n# M
/ j3 a( A4 Q) D又想把它這樣寫
  A" H: m1 V' a4 e- X! A*#31=#[#30+#500AND1.]
M0

空气中的小鱼

回复 2# 羅蓋仙
( _+ k; Y& r# X( f2 B你的表达式中没有只是逻辑运算，
  W: ]) Y2 P$ O. l+ i只有逻辑判断有些系统版本不支持
所以，以上语句可以运行的

羅蓋仙

; [" k5 S" a  V; |$ z2 r4 L7 [使用數據置換來按大小排列，大→小
- y  m4 `8 f: n  V" S2 W, e法一：我用DO1-DO2-DO3比較好看，有視覺上的厲害^^當脫離迴圈从大到小排列完成
! H, |* E: [3 W( O#1=1.
#2=4.
#3=7.
#4=9.
N1WHILE[#1LT#2]DO1
* u/ A' t# B8 ?. j1 o  e#1=#1+#2
#2=#1-#2
#1=#1-#2
6 F+ X5 i( }) q9 G1 K  iEND1
N2WHILE[#2LT#3]DO2
( c9 |  j5 @5 U4 ~9 E/ W1 o#2=#2+#3
#3=#2-#3
8 M$ x% o# z% _# u9 x* _0 I#2=#2-#3
END2
) _3 f8 m$ V$ v! HWHILE[#3LT#4]DO3
5 U1 i0 }3 w0 I% p5 y#3=#3+#4
#4=#3-#4
2 j% [+ S5 w* P9 v#3=#3-#4
) Y: x0 P* n- A1 F* ~0 k( ?( _& HEND3
+ I& H) H  U' [. P! ]IF[#1LT#2]GOTO1
! V! `' A: h6 k2 x! CIF[#2LT#3]GOTO2
M0
8 ?* C0 `* H4 d* V* {
; X$ i  C" @& d( N% }" C
法1-2：使用一般耳熟能詳的IF-GOTO
; S& |8 Z! S/ R, h" ]6 W7 V#1=A.
#2=B.
7 E+ t5 L7 X( r9 ^0 F#3=C.
$ [) s0 S4 S5 [#4=D.
+ r4 I2 O; W' g8 F1 K4 T6 F( VN1 IF[#1GE#2]GOTO2
#1=#1+#2
#2=#1-#2
#1=#1-#2
9 H6 A+ m. o6 x5 g; W- q; HN2 IF[#2GE#3]GOTO3
) t+ o9 u8 D! S" M. }3 |, \% {#2=#2+#3
#3=#2-#3
& W; K" Z+ O  Z7 J  v8 k; B#2=#2-#3
6 B; E0 K( Q! ~6 H5 S% ], n* y+ f3 lN3 IF[#3GE#4]GOTO4
  n/ t8 E, j2 i; D2 G& w+ y#3=#3+#4
' C3 v% L6 g' \! \2 z9 g#4=#3-#4
! M6 b8 _3 e; \0 d, |9 ?#3=#3-#4
( ~  C/ b' y# tN4 IF[#1LT#2]GOTO1
IF[#2LT#3]GOTO2
/ s( T# d" l' w1 N/ w+ ]* B# T  oM0

羅蓋仙

  N5 d" [0 |9 G
法二：使用変変數^^
#1=1.
1 o  F; F: h) p* B% @/ X8 m#2=4.
#3=7.
  b) U4 V3 F5 P0 `- t) u#4=9.
0 z; d7 G6 h- b5 y! H) r# f# ^N2 #31=1.
#32=2.
6 N: |4 r7 I) U. R6 [# _N1WHILE[#[#31]LT#[#32]]DO1
5 M0 s: V/ t% E# I#[#31]=#[#31]+#[#32]
#[#32]=#[#31]-#[#32]
1 \& V% x' s0 s% z# x2 o; Z: M: Y#[#31]=#[#31]-#[#32]
END1
, X1 h3 p1 g, u. D0 e$ j" O6 Q, z# ~#31=3.
( L9 F" n/ j* k! n/ bIF[#2LT#3]]GOTO1
#32=4.
IF[#3LT#4]OTO1
6 W/ I* b1 Z( }0 Q9 AIF[#1LT#2]GOTO2
#31=2.
6 a. \/ y; G3 j0 N! ?; {) y#32=3.
& z" o; j/ W7 \1 J% I" h8 ~, {# GIF[#2LT#3]GOTO1
M0

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

longmeier

好帖子顶