您所在位置：主题：请教各位高手,,急啊，急啊§！！！！
zhouzhj5158
[专家分：0] 发布于 2005-03-15 15:56:00
program ex519(input,output);
var
a,b,c,d:integer;
procedure p(a:integer;var b:integer);
var
c:integer;
begin
a:=a+1;
b:=b+1;
c:=2;
d:=d+1;
writeln('m',a,b,c,d);
if a<3
then p(a,b);
writeln('n',a,b,c,d)
end;
begin
a:=1;
b:=1;
c:=1;
d:=1;
writeln('x',a,b,c,d);
p(a,b);
writeln('y',a,b,c,d);
end.
请问这个程序怎么writeln('n',a,b,c,d)会执行两遍了，我想不通第一遍执行完毕已经end，为什么还会回头又执行writeln('n',a,b,c,d)？？、请教，万分感激！！！
var
a,b,c,d:integer;
procedure p(a:integer;var b:integer);
var
c:integer;
begin
a:=a+1;
b:=b+1;
c:=2;
d:=d+1;
writeln('m',a,b,c,d);
if a<3
then p(a,b);
writeln('n',a,b,c,d)
end;
begin
a:=1;
b:=1;
c:=1;
d:=1;
writeln('x',a,b,c,d);
p(a,b);
writeln('y',a,b,c,d);
end.
请问这个程序怎么writeln('n',a,b,c,d)会执行两遍了，我想不通第一遍执行完毕已经end，为什么还会回头又执行writeln('n',a,b,c,d)？？、请教，万分感激！！！
