第四章 递归算法.pptVIP

第四章 递归算法; 前面已经介绍了关于递归调用这样一种操作，而递归程序设计是Pascal语言程序设计中的??种重要的方法，它使许多复杂的问题变得简单，容易解决了。递归特点是：函数或过程调用它自己本身。其中直接调用自己称为直接递归，而将A调用B，B以调用A的递归叫做间接递归。 ;【例1】 给定N（N=1）,用递归的方法计算1+2+3+4+...+(n-1)+n。 【算法分析】 本题可以用递归方法求解，其原因在于它符合递归的三个条件： ???? (1)本题是累加问题：当前和=前一次和+当前项，而前一次和的计算方法与其相同，只是数据不同s(n)=s(n-1)+n; ????? (2)给定n,所以是有限次的递归调用； ???? ?(3)结束条件是当N=1，则S=1。 【参考程序】 program ex4_1; var s,t:integer; function fac(n:integer):integer; //递归函数 begin if n=1 then fac:=1 else fac:=fac(n-1)+n; end; BEGIN read(t); //输入t的值 s:=fac(t); //计算1到t的累加和 writeln(s=,s); //输出结果 END. ; 运行程序，当T=5时，输出结果：S=15，其递归调用执行过程是：（设T=3） ;【例2】 设有N个数已经按从大到小的顺序排列，现在输入X，判断它是否在这N个数中，如果存在则输出：“YES” 否则输出“NO”。 【算法分析】 该问题属于数据的查找问题，数据查找有多种方法，通常方法是：顺序查找和二分查找，当N个数排好序时，用二分查找方法速度大大加快。二分查找算法： ?? （1） 设有N个数，存放在A数组中，待查找数为X，用F指向数据的高端，用R指向数据的低端，MID指向中间： ?? （2） 若X=A[MID] 输出 “YES”； ?? （3）若XA[MID]则到数据后半段查找：R不变，F=MID+1，计算新的MID值，并进行新的一段查找； ?? （4） 若XA[MID]则到数据前半段查找：F不变，R=MID-1，计算新的MID值，并进行新的一段查找； ??? （5）若FR都没有查找到，则输出“NO”。 ??? 该算法符合递归程序设计的基本规律，可以用递归方法设计。 ;【参考程序】 program ex4_2; const n=10; var a:array[1..n]of integer; f,r,x,k:integer; procedure search(x,top,bot:integer); //二分查找递归过程 var mid :integer; begin ?? if top=bot then ????? begin ?? mid:=(top+bot) div 2 //求中间数的位置 ???????? if x=a[mid] then writeln(yes) //找到就输出 ??????????? else ??????????? if xa[mid] then search(x,mid+1，bot) //判断在前半段还是后半段查找 ??????????? else? search(x,top,mid-1); end? else writeln(no); end; BEGIN? //主程序 writeln(输入10个从大到小顺序的数：)； ?? for k:=1 to n do ? read(a[k]); readln(x); //输入要查找的数 f:=1;r:=n; search(x,f,r);