编译原理实验指导书

begin

call q

end

begin call p end. test3.pl0: const a=10; var e[10]; procedure p; var d; procedure q; var x,i;

begin i:=0; repeat begin read(x); if odd x then

e[i]:=2*x else e[i]:=x; write(e[i]); i:=i+1

end

until i=10 end

begin

call q

end

begin call p end.

13