reduce.txt

用VC写的扩充的pl0文法编译器

var x: integer;
function reduce (a:integer):integer;
begin
		if a>9 then
		
			write("a=",a);
	
		else

			a := reduce(a*2);
	
		reduce := a
end;

begin
		x:=reduce(2);
		write("x=",x)
end.