请高手解释一下此程序？？？？？？

显示全部楼层 · 2009-4-17 04:42:53

const a=45,b=27;
var x,y,g,m;
procedure swap;
var temp;
begin
temp:=x;
x:=y;
y:=temp;
end;
procedure mod;
x:=x-x/y*y;
begin
x:=a; y:=b;
call mod;
while x0 do
begin

call swap;

call mod;
end;
g:=y;
m:=a*b/g;
write(g,m);
end;
这是PL/0程序，请问这段程序的执行顺序是怎样的，本人实在想不明白！

千问 · 2009-4-17 04:42:53

const a=45,b=27; var x,y,g,m; procedure swap; var temp; begin temp:=x; x:=y; y:=temp; end; procedure mod; x:=x-x/y*y; begin //程序开始点x:=a; y:=b; call mod; //调用过程modwhile x0 do begin
call swap; //调用过程swap
call mod;//调用过程modend; g:=y; m:=a*b/g; wri...