(过程函数部分).docVIP

（过程函数部分） ?? program gh5-1-1(input,output);var?a,b:integer;function swap(x,y:integer);?var??temp:integer;??? begin??????? temp:=x;??????? x:=y;??????? y:=temp;??????? writeln(x=,x:4,y=:4,y);??? end;begin??? readln(a,b);??? swap(x,y);??? writeln(a=,a:4,b=:4,b);end.结果是2 3x=3 y=2a=2 b=3?? 形式参数是值形参program gh511(input,output);var?a,b:integer;procedure swap(var x,y:integer);?var??temp:integer;??? begin??????? temp:=x;??????? x:=y;??????? y:=temp;??????? writeln(x=,x:4,y=:4,y);??? end;begin??? readln(a,b);??? swap(a,b);??? writeln(a=,a:4,b=:4,b);end.结果是：? 2 3x=3