eg5_14va.pas

来自「关于课件 好多种结构的算法 等等 大家自己看吧」· PAS 代码 · 共 21 行

program eg5_14var(input,output);
var
  x,y:integer;
  procedure swap(var x,y:integer);
  var
    temp:integer;
   begin
    temp:=x;
    x:=y;
    y:=temp;
    writeln(x,y)
   end;
begin
 writeln('eg5.14var');
 x:=1;
 y:=2;
 writeln(x,y);
 swap(x,y);
 writeln(x,y);
end.