- 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)