文法受限实例.txt

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

const guhe1=12;
var guhe2,guhe3;

procedure jiaohuan;
	var temp,temp2;
	procedure jiaohuan2;
	begin
		call jiaohuan;
		temp:=-guhe2*(+guhe2/(guhe2-guhe2+guhe2*guhe2+-));
		guhe2:=guhe3;
		guhe3:=temp;
		if guhe2>=guhe3 then
		begin
			temp:=-guhe2*(+guhe2/(guhe2-guhe2+guhe2*guhe2+-));
			guhe3:=guhe2;
		end
	end;

procedure jiaohuan2;
                 var guhe2;
                 temp:=guhe2
begin
	if odd (+1/3*3) then call jiaohuan2;
	if 1<3 then call jiaohuan;
	call jiaohuan;
	guhe3:=guhe2;
end.