用递归法解决问题.pptVIP

3.5 用递归法解决问题;“从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢? 从前有座山,山里有座庙,庙里有个老和尚给小和尚讲故事,讲什么呢?”…………;这个故事有什么特点？;;子程序中定义递归调用。一般格式为： ;自定义函数;;一、标准函数 VB给我们提供了一些标准函数，我们不用了解这些函数如何求出来的，只管直接调用它们，挺方便的。如正弦函数，余弦函数，算术平方根．．．．．．有了这些函数，我们觉得很省事。如：求1加到100的算术平方根这个程序我们可以这样编写： 例1 ???????? dim I as integer, s as single ???????????? s=0 ???????????? for i=1 to 100 do ?????????????? s=s+sqr(i) next i ???????????? print “s=”;s; 在这个程序里，我们直接用到了求平方根函数，至于sqr（1），sqr（2）如何求出来的我们不需过问，只管直接用它的结果便是了。 象这样，VB给我们提供的，我们不用了解这些函数如何求出来的，只管直接调用它们的这类函数叫做标准函数。;例2 ????????dim I as integer, j as integer ?????????dim s as integer ???????????? s=0 ???????????? for i=1 to 10 do ?????????????? s=s+js(i) next i ???????????? print “s=“;s 现在的问题是：VB没提供JS（X）这样一个标准函数，这个程序是通不过的。如果是PASCAL的标准函数，我们可以直接调用，如前面的sqr(i)，而PASCAL提供给我们的可供直接调用的标准函数不多。没关系，我们编写自己的函数！;; 例3??????????? 编写一求阶乘的函数。 我们给此函数取一名字就叫JS。 fUNCTION js(n as integer) as integer ??????dim I as integer, s as integer ???????????? s=1 ???????????? for i=1 to n do??????????????????????????????????????????????? ?????????????? s=s*i next i js=s ?end;;使用递归算法大致结构为：;例如：编写递归函数求5！的值;这个递归函数，实际是求n的阶乘。当n=0时，不再递归调用，而将其值置为1； f(n)=1(当n=0时） f(n)=n*f(n-1) (当n0时）,就执行n*f(n-1) ，这是递归调用。