编译原理实验:PL0语言源程序示例.pdfVIP

  • 1
  • 0
  • 约1.12千字
  • 约 2页
  • 2026-02-16 发布于四川
  • 举报

PL0源程序

constm=7,n=85;

varx,y,z,q,r;

proceduremultiply;

vara,b;

begina:=x;b:=y;z:=0;

whileb0do

begin

ifoddbthenz:=z+a;

a:=2*a;b:=b/2;

end

end;

proceduredivide;

varw;

beginr:=x;q:=0;w:=y;

whilew≤rdow:=2*w;

whilewydo

beginq:=2*q;w:=w/2;

ifw≤rthen

beginr

文档评论(0)

1亿VIP精品文档

相关文档