eg5_12.pas

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

program eg5_12(input,output);
var
  x,y:integer;
  procedure change;
   var
     x:integer;
   begin
    x:=2;y:=2;
    writeln(x,y)
   end;
begin
 writeln('eg5.12');
 x:=1;
 y:=1;
 writeln(x,y);
 change;
 writeln(x,y);
end.