欢迎来到天天文库
浏览记录
ID:59928792
大小:276.50 KB
页数:10页
时间:2020-11-28
《递归算法复习过程.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
递归算法 情景2:镜子A和镜子B相对放在一起,你会发现什么现象呢?对了,我们会发现镜子A中有镜子B的映象,镜子B中又镜子A的映象,这样层层叠叠,无穷无尽。AB在程序设计中,像这种函数A调用函数B,函数B再反过来调用函数A的算法,也称为递归算法。 递归的定义:如果一个函数在定义时,直接或者间接地调用了自己,这种算法在程序中统称为递归法。情景中的现象是无穷无尽的,然而,程序中,递归是有终点的。 使用递归的条件递归算法——利用函数反复调用本身的算法。Functionthird(aasinteger,basinteger)third=sqr(a*a+b*b)EndFunctionFunctions(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)=s(2)+3s(2)=s(1)+2s(1)=1n=1时,s值为1n>1时,s=s(n-1)+n PrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入n的值"))Sum=s(n)PrintSumEndSubPublicFunctions(nAsInteger)AsIntegerIfn=1Thens=1Elses=s(n-1)+nEndIfEndFunction递归函数的定义递归函数的调用程序运行 练习1:求阶乘用自定义递归函数的方法求S=N!(N由用户手动输入文本框)N!指N的阶乘,如: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)Callhannuo(1,a,c,b)Callhannuo(n-1,b,c,a)EndIfEndSubPrivateSubCommand1_Click()DimnAsIntegern=Int(Val(InputBox("输入n")))no=0Callhannuo(n,"a","c","b")EndSub 此课件下载可自行编辑修改,仅供参考!感谢您的支持,我们努力做得更好!谢谢
此文档下载收益归作者所有
举报原因
联系方式
详细说明
内容无法转码请点击此处