ex1.txt

编译原理的pl/0源码

const m = 7, n = 85;
var x, y, z, q, r;

procedure multiply;
var a, b;
	procedure plus;
	var ss;
	    procedure plusplus;
		var s;
		begin
			s := ss;
		end;
	begin
		ss :=x
	end;

begin
	a := x; b := y; z := 0;
	while b > 0 do
	begin
		if odd b then z := z + a;
		a := 2 * a; b := b / 2;
	end
end;
begin
	x := n; y := m; call plusplus;
end.