program local_global;
var i,k:integer;
procedure sub1;
var i,j:integer;
 begin
  i:=17;
  writeln('i in sub=',i);
  writeln('k in sub=',k);
 end;
begin
 i:=2;k:=9;
 writeln('i in main=',i);
 writeln('k in sub=',k);
 sub1;
 writeln('i in main=',i);
 writeln('j in main=',j);
 readln;
end. 


我没看错么?
貌似最后的j变量没定义的样子...(是写错了?)
这个程序应该是让你了解值参的作用只作用于子程序或函数内部
jiangyuzhou小号 留

啊,错了
这个程序应该是让你了解 子程序或函数 内部的变量(就是局部变量)对主程序无影响
不好意思...最近这个居然都看错了...老了...

如何给源码加密

了解局部变量和全局变量之间的关系。
例如外面的i，k是全局，里面的i，j是局部。局部不影响全局，但在局部过程函数中可以调用全局