递推与递归的关系【信息技术】.docVIP

提示：设计程序前，要细心观察、丰富联想、不断的尝试推理，尽可能归纳出问题的内在规律，然后将这些规律性的东西抽象成数学模型，最后采取编程实现。 递推与递归 一、递推 1、适用题型： 有一类试题，每相邻两项数之间的变化有一定的规律性，我们可将这种规律归纳成如下简捷的递推关系式： Fn g (Fn-1 ) 或者Fn-1 ＝g’(Fn ) 这就在数的序列中，建立起后项和前项之间的关系。然后从初始条件(或最终结果)入手，一步步地按递推关系式递推，直至求出最终结果(或初始值)。很多程序就是按这样的方法逐步求解的。如果对一个试题，我们要是能找到后一项数与前一项数的关系并清楚其起始条件(或最终结果)，问题就好解决，让计算机一步步算就是了。递推分倒推法和顺推法两种形式。一般分析思路： if 求解初始条件F1 then begin {倒推} 由题意(或递推关系)确定最终结果Fn ； Fi-1 =g’(Fi )； i←n；{从最终结果Fn 出发进行倒推} while Fi≠F1 do begin 由Fi-1＝g(Fi )倒推Fi-1；ii-1；end；{while} 输出倒推结果F1 和倒推过程； end{then} else begin {顺推} 由题意(或递推关系)确定初始值F1(边界条件)； Fi ＝g (Fi-1 )； i1； {F1出发进行顺推} while Fi≠Fn do begin由Fi＝g(Fi-1 )顺推Fi+1；ii+1；end；{while} 输出顺推结果Fn和顺推过程； end；{else} 对于递归和递推的效率问题，一般认为递推比递归优，举一个简单的例子: 最简单的斐波那契数列（Fibonacci），对于f（30），如果使用递归则需要运行1664079次，而递推只需30次就可以了，速度悬殊。 6、例题：P29,例2－9 ；P32,例2－11 7、习题： 递归转非递归 （如下图） Program Qn(Input,Output);{递归算法} const n=8; var 　cont,i:integer; 　a:array[1..n] of byte;{存放正确的一组解} 　c:array[1..n] of boolean;{存放某一列放皇后的情况，用于判断是否有同列的情况} 　l:array[1-n..n-1] of boolean;{存放某一斜线上放皇后的情况，用于判断是否有同斜线的情况；斜线的方向为＼} 　r:array[2..2*n] of boolean;{存放某一斜线上放皇后的情况，用于判断是否有同斜线的情况；斜线的方向为／} 　procedure pr; 　var 　　i:integer; 　begin 　　for i:=1 to n do write(a[i]:4); 　　inc(cont); 　　writeln( cont=,cont); 　end; 　procedure try(i:integer); 　var 　j:integer; 　　procedure erase(i:integer); 　　begin 　　　c[j]:=true; 　　　l[i-j]:=true; 　　　r[i+j]:=true; 　　end; 　begin 　　for j:=1 to n do 　　begin 　　　if c[j] and l[i-j] and r[i+j] then 　　　begin 　　　　a[i]:=j; 　　　　c[j]:=false; 　　　　l[i-j]:=false; 　　　　r[i+j]:=false; 　　　　if in then try(i+1) else pr; 　　　　erase(i); 　　　end; 　　end; 　end; begin 　for i:=1 to n do c[i]:=true; 　for i:=1-n to n-1 do l[i]:=true; 　for i:=2 to 2*n do r[i]:=true; 　cont:=0; 　i:=1; 　try(i); 　writeln; 　writeln(program end.); 　readln; end. Program Huanghou(Input,