error1.txt

来自「PL0语言的编译器」· 文本 代码 · 共 21 行

const guhe1=12;
var guhe2,guhe3;

procedure jiaohuan;
	var temp;
	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

begin
	call jiaohuan;
	guhe3:=guhe2;
end