调用出错.txt

来自「编译原理实践教程PL0语言编译程序源代码。参考书：清华大学出版社的《编译原理》作」· 文本 代码 · 共 22 行

///////////外层函数不能调用在内层定义的函数
var a;
procedure   p;
	var b;
	procedure  q;
		var c;
		begin
			c:=2;
			b:=2+3+4-1+5*6*1+3/2/3+1
		end;
	begin
		call q;
		call p;
		read(a)
	end;
   begin
        call q;
        call p;
        write(a)
   end.