资源描述：
《递归算法复习过程.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、递归算法情景2：镜子A和镜子B相对放在一起，你会发现什么现象呢？对了，我们会发现镜子A中有镜子B的映象，镜子B中又镜子A的映象，这样层层叠叠，无穷无尽。AB在程序设计中，像这种函数A调用函数B,函数B再反过来调用函数A的算法，也称为递归算法。递归的定义：如果一个函数在定义时，直接或者间接地调用了自己，这种算法在程序中统称为递归法。情景中的现象是无穷无尽的，然而，程序中，递归是有终点的。使用递归的条件递归算法——利用函数反复调用本身的算法。Functionthird(aasinteger,basinteger)third=sqr(a*a+b*b)E
2、ndFunctionFunctions(nasinteger)s=s(n-1)+2Endfunction自定义函数中调用VB标准函数自定义函数中调用本身使用递归的两个条件：2、有结束条件1、在计算过程中，前后数据有一定的递推关系1,2,4,7,11,16,22,29,37……..n=1时,a(n)=1n>1时,a(n)=a(n-1)+n-1递归算法实例给定n(n>=1)，用自定义函数的方法求S(n)=1+2+3+4+……+n的值递推关系：S(n)和S(n-1)的递推关系?s(n)=s(n-1)+ns(5)=s(4)+5s(4)=s(3)+4s(3
3、)=s(2)+3s(2)=s(1)+2s(1)=1n=1时,s值为1n>1时,s=s(n-1)+nPrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入n的值"))Sum=s(n)PrintSumEndSubPublicFunctions(nAsInteger)AsIntegerIfn=1Thens=1Elses=s(n-1)+nEndIfEndFunction递归函数的定义递归函数的调用程序运行练习1：求阶乘用自定义递归函数的方法求S=N!（N由用户手动输入文本框）N!指N的阶乘，如
4、：8!=1*2*3*4*5*6*7*8函数名为S练习2：斐波那契数列斐波那契数列有如下特征:1、1、2、3、5、8、13、21、34......用自定义递归函数的方法求该数列的前20项。分析:前两项为1,从第子三项开始,S(n)=S(n-1)+S(n-2)函数名为fib汉诺塔DimnoAsIntegerPrivateSubhannuo(n,a,c,b)Ifn=1Thenno=no+1PrintStr(no);a;"-->";cList1.AddItemStr(no)+a+"-->"+cElseCallhannuo(n-1,a,b,c)Callha
5、nnuo(1,a,c,b)Callhannuo(n-1,b,c,a)EndIfEndSubPrivateSubCommand1_Click()DimnAsIntegern=Int(Val(InputBox("输入n")))no=0Callhannuo(n,"a","c","b")EndSub此课件下载可自行编辑修改，仅供参考！ 感谢您的支持，我们努力做得更好！谢谢
