reduce.txt

pl/0我想大家都很清楚这个把 编译原理的人 都会知道这个 很不错的算法程序 在着跟大家分享下

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.