test.txt

来自「“编译原理与技术”的上机实验要求你对PL/0语言及其编译器进行扩充和修改。每个扩」· 文本 代码 · 共 17 行

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

procedure multiply;
var a, b;
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 := m; y := n; call multiply;
end.