2.pl0

来自「PL/0语言的词法分析」· PL0 代码 · 共 18 行

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

procedure multiply;
var a,b;
begin
	a:=x;b:=y;z:=0;
	while b>0do
	begin
		if odd b then z:=z+a;
		a:=2*a;
		b:=b/2
	end
end;

begin
	x:=m;y:=n;call multiply;
end.