作业帮delphi作业这道题谁会？急急急!
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/15 02:17:09
delphi作业这道题谁会？急急急!
编写一个函数，实现如下功能… 现有integer变量a.b，在不声明其他变量的情况下，将它们的值交换。 如a:=1,b:=2,交换以后a=2.b=1 好人一生平安…
编写一个函数，实现如下功能… 现有integer变量a.b，在不声明其他变量的情况下，将它们的值交换。 如a:=1,b:=2,交换以后a=2.b=1 好人一生平安…
Procedure swapab(Var a, b: Integer);
Begin
b := a + b;
a := b - a;
b := b - a;
End;
Procedure TForm1.BitBtn2Click(Sender: TObject);
Var
a, b: Integer;
Begin
a := 1;
b := 2;
swapab(a, b);
application.MessageBox(pchar(format('a=%d', [a])), '', 64);
application.MessageBox(pchar(format('b=%d', [b])), '', 64);
End;
Begin
b := a + b;
a := b - a;
b := b - a;
End;
Procedure TForm1.BitBtn2Click(Sender: TObject);
Var
a, b: Integer;
Begin
a := 1;
b := 2;
swapab(a, b);
application.MessageBox(pchar(format('a=%d', [a])), '', 64);
application.MessageBox(pchar(format('b=%d', [b])), '', 64);
End;