递归练习含答案.doc

递归练习含答案.doc

ID:57262217

大小:44.50 KB

页数:6页

时间:2020-08-07

递归练习含答案.doc_第1页
递归练习含答案.doc_第2页
递归练习含答案.doc_第3页
递归练习含答案.doc_第4页
递归练习含答案.doc_第5页
资源描述:

《递归练习含答案.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、1.写出下列程序的输出结果。programex1(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<3thenp(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

2、,c,d)end.2.programex2(input,output);vartotal:integer;proceduremove(n,a,b,c:integer);beginifn=1thenwriteln(a,’à’,c)elsebeginmove(n-1,a,c,b);writeln(a,’à’,c);move(n-1,b,a,c)endend;beginread(total);move(total,1,2,3)end.若total=3,请写出程序的输出结果.2.programex3(input,output);3.p

3、rocedurereceive;varch:char;beginread(ch);write(ch);ifch<>’#’thenreceive;write(ch)end;beginreceiveend.若输入567#,则输出。4.programex4(input,output);varm,n,g:integer;functiongcd(m,n:integer):integer;beginifn=0thengcd:=melsegcd:=gcd(n,mmodn)end;beginread(m,n);g:=gcd(m,n);writ

4、eln(‘gcd=’,g)end.若输入108,72则输出。5.写出下列程序的输出结果。programex5(input,output);functionfac(n:integer):real;beginifn=0thenfac:=1elsefac:=n*fac(n-1)end;functioncmn(m,n:integer):real;begincmn:=fac(m)/(fac(n)*fac(m-n))end;beginwriteln(‘c(6,4)=’,cmn(6,4):0:0)end..6.求菲波拉契数列的第10项的值。

5、已知a0=0a1=1a2=a0+a1a3=a1+a2…将第n项的a(n)写成递归函数计算。programex6(input,output);functiona(n:integer):integer;beginifn=0thena:=0elseifthenelseend;beginwriteln()end.7.写出下列程序的输出结果。programex1(input,output);vari:integer;functionf(n:integer):integer;beginifn=1thenf:=1elseif(nmod2=0

6、)thenf:=2*f(ndiv2)-1elsef:=2*f((n-1)div2)+1;end;beginreadln(i);writeln(f(i));readln;end.若i=8,则输出;若i=9,则输出。8.写出下列程序的输出结果。programex3(input,output);varnumber:integer;procedurerd(number:integer);beginwrite(numbermod10:1);number:=numberdiv10;ifnumber<>0thenrd(number);end

7、;beginreadln(number);rd(number);readln;end.若输入3462,则输出。9.写出下列程序的输出结果。programex7;functionfun(x:integer):integer; begin  if(x=0)or(x=1)thenfun:=3    elsefun:=x-fun(x-2) end;begin writeln(fun(9)); readln;end.输出:10.有程序如下:programzdzx(output);varx,y,z:integer;proceduresil

8、ly1(x:integer;vary:integer);beginx:=5;y:=6;z:=7;writeln(x,y,z)end;beginx:=1;y:=2;z:=3;silly1(x,y);writeln(x,y,z)end.以上程序的运行结果为。11.有如下程序:pr

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。