test2.pl0

来自「编译方法实验根据编译器的工作过程」· PL0 代码 · 共 30 行

const a=10,b=100;
var  c,d,e;
procedure p;
	const a=100;
	var b,c,d;
	begin
		read(b);
		c:=a+b;
		d:=a*b;
		e:=a+b*(c-d)/2;
		write(a,b,c,d,e);
	end;
procedure p1;
	procedure p3;
		begin
			write(c);
			call p;
		end;
	begin
		write(a+b);
		call p3;
		call p;
		write(a);
	end;
begin 
	read(c,d,e);
	write(a+b*c*(d-e));
	call p1;
	write(a,b,c,d,e);
end.