pl.txt

pl 词法分析器

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;