Pascal里怎样定义过程？

Question

快！我要用

Answer 1

procedure ***(参数1：类型;参数2：类型……)；
var
……；
begin
end;

例如:交换2个数据，
procedure change(x,y:integer);
var
k:integer;
begin
k:=x;
x:=y;
y:=k;
end;
如若x，y值在过程中改变，而主程序要用改变完了的，就要在该参数前加var
即 procedure change(var x,y:integer);

Answer 2

类似函数定义
只是function换成procedure
过程没有返回类型。
过程可以没有参数。
procedure XXX（参数（可无））;
var
//变量定义(可无)
begin
过程内容
end;

Answer 3

Procedure Name;
var ...
begin
...
end;

Answer 4

procedure XXX;
var
begin
end;