资源描述：
《递归练习答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1、functionf(n:integer):integer;beginifn=0thenf:=1elseifn<0thenf:=f(n+1)+3elsef:=f(n-1)-2;end;则f(1)与f(2)的值分别是多少？-1-32、programll(input,output);vara,b,c,d:integer;procedurep(a:integer;varb:integer);varc:integer;begina:=a+1;b:=b+1;c:=2;d:=d+1;writeln(‘m’,a,b,c,d);ifa
2、<3thenp(a,b);writeln(‘n’,a,b,c,d)end;x1243beginm2324a:=1;b:=2;c:=4;d:=3;m3425writeln(‘x’,a,b,c,d);n3425p(a,b);n2425writeln(‘y’,a,b,c,d)y1445end.3、以下程序将输入的10个数按升序排列后，删除其中值相同的元素，使之只保留一个。请从下面对应的一组选择项中选出正确的内容填入空格中。Programmain(input,output);TypeArr=array[1..10]ofinteg
3、er;Vara:arr;i,n:integer;Proceduresort(varx:arr;n:integer);Vari,j,p,t:integer;BeginFori:=1ton-1doBeginP:=i;Forj:=(i+1ton)doIf(x[p]>x[j])thenp:=j;(ifp<>Ithenbegint:=x[p];x[p]:=x[i];x[i]:=t;end;)end；end；procedurepurge(vara:arr;varn:integer);vari,j:integer;beigni:=n;
4、Whilei>1doIfa[i]=a[i-1]thenBeginForj:=itondo(a[j-1]:=a[j];)N:=n-1;(i:=i-1;)endelsei:=i-1;end;beginfori:=1to10doread(a[i]);readln;n:=10;sort(a,n);purge(a,n);fori:=1tondowrite(a[i]:3);writelnend.4、下列程序输入字符串的长度（不为０）和字符串，打印该字符串的所有排列。例如，输入长度为３和ABC时，分别打印出ABCACBBACBCACA
5、BCBA。当输入的字符串的长度大于10时，取前10个字符。其中permute为递归过程。Programstrram(input,output);Vari,length:integer;Letter,newword:array[1..10]ofchar;Used:array[1..10]ofBoolean;Procedurepermute(countdown:integer);Varj:integer;BeginIfcountdown=(0)thenBeginForj:=(length)downto(1)dowrite(n
6、ewword[j]);WritelnEndElseForj:=1to(length)doIfnotused[j]thenBeginUsed[j]:=true;Newword[countdown]:=letter[j];(permute(countdown-1));(used[j]):=falseend;end;beginreadln(length);if(length>10)thenlength:=10;fori:=1tolengthdobeginused[i]:=false;read(letter[i])end;per
7、mute(length)end.5、programii(input,output);constu:array[1..4]ofinteger=(0,5,3,1);v:array[1..4]ofinteger=(0,7,6,5);vara,b,c,d,e,f,x,y,z:integer;beginread(a,b,c,d,e,f);z:=f+e+d+(c+3)div4;y:=5*d+u[cmod4];if(b>y)thenbeginz:=z+(b-y+8)div9;x:=((b-y+8)div9*9-(b-y))*4+11*
8、e+v[cmod4];endelsex:=(y-b)*4+11*e+v[cmod4];if(a>x)thenz:=z+(a-x+35)div36;writeln(z)end.输入：479205647输出：1266、求m与n的最大公约数varm,n,gcd:integer;functiongys(a,b:integer
