递归练习(3)含答案(共6页).doc

精选优质文档-倾情为你奉上1 写出下列程序的输出结果。program ex1(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 a3 then p(a,b); writeln(n,a,b,c,d)end; begina:=1;b:=1;c:=1;d:=1;writeln(x,a,b,c,d);p(a,b);writeln(y,a,b,c,d) end.2. program ex2(input,output); var total:integer; procedure move(n,a,b,c:int