eg5_13.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program eg5_13(input,output);
var
  x,u:integer;
  procedure change(x:integer;var y:integer);
   begin
    x:=x+1;y:=y+1;
    writeln(x,y)
   end;
begin
 writeln('eg5.13');
 x:=1;
 u:=1;
 writeln(x,u);
 change(x,u);
 writeln(x,u);
end.