test5.txt

pl0文法编译器

var x:real
function recursive (a:integer):integer;
begin
	if a>600 
	begin
		write("a=",a);
		errSym := 5
	end
	else
	begin
		a := recursive(a*2)
	end;
	recursive := a
end;

begin
	x := 2.0;
	write("in main ",recursive(x));
end