考考你,Swap函数怎么写???

Question

楼上有问题的
X:=X+Y;
Y:=X-Y;//Y=X
X:=X-Y;//X=X-X=0

Answer 1

procedure swap (var x,y : Integer);
var t:Integer;
begin
   t:=x;
   x:=y;
   y:=t;
end;

Answer 2

有问题吗？看清楚点。
X:=X+Y;
Y:=X-Y;//Y=最初的X
X:=X-Y;//赋值号右边的X此时为最初的X+Y的和，减去Y(最初的X值)当然X=最初的Y

Answer 3

Crob(我干嘛这么帅)　你可以拿我的函数来试试

Answer 4

to ：　kevin_gao(困了！累了！睡觉了！)　呵呵，偶才是呢，你跟我争什么啊

Answer 5

不是互斥变量！这我就放心了，
//在校时，师傅曰："互斥变量就是……………" ,hehe