pl.txt

来自「pl0语言编译器及从中分离的语法分析程序」· 文本 代码 · 共 12 行

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>0 do
begin
if cdd b then z:=z+a;
a:=2*a;b:=b/2;
end
end;