算法(五)递归算法——深度优先搜索讲解.docVIP

A、递归(DFS) 说白了还是循环，只是当3种循环不能做的时候的循环，我们用递归实现。 B、递归必须有终点，否则就会死递归，最后栈溢出202错误。 C、递归的实现，是按照层数优先搜索的方式实现的。到底返回上一层看看有没有其他的路可以继续下去。 D、函数function的递归必须有返回值。过程procedure到底就结束。 E、区分全局变量和局部变量的关系，全局一个子过程或函数里面动，全动，局部则互不影响，但会随着子过程或函数的消失而消失，子过程或函数的开始而开始。 F、四大法宝，剪枝（暗剪明剪）、迭代、回溯、*记忆化搜索。 在递归过程中，局部变量必须要赋初始值。 阶加普通for写法 var n,i,s:longint; begin readln(n); for i:=1 to n do s:=s+i; writeln(s); end. Procedure 递归写法 var n,i,s:longint; procedure try(x:integer); begin if x=n then begin s:=s+n; exit; end; s:=s+x; try(x+1); end; begin readln(n); try(1); writeln(s); end. Function 递归写法 var n:longint; function try(x:integer):longint; begin if x=n then exit(n); exit(try(x+1)+x); end; begin readln(n); writeln(try(1)); end. 那些三位数 请你从小到大输出3位数，每一位的数字可以用1，2,3 111 112 113 。 。 。 333那些四位数 请你从小到大输出4位数，每一位的数字可以用1，2,3，4 Oj1091 1091: 【提高】那些n位数 时间限制: 1 Sec??内存限制: 16 MB提交: 1379??解决: 706[提交][状态][讨论版] 题目描述 一个n位数，只由1，2，3，4...p这几个数字组成。 请编写程序输出这些n位数，先小后大，每行一个。 输入 两个整数n，p(n＜9，p＜＝9，且p^n=) 输出 若干行数 样例输入 4 6 样例输出 ...... 6352 6353 ..... 提示 来源var n,p:integer; procedure dls(c,s:longint); var i:integer; begin if c=n+1 then begin writeln(s); exit; end; for i:=1 to p do dls(c+1,s*10+i); end; begin readln(n,p); dls(1,0); end. 给出n位数字，和p，其中p个数字每一次只能用一次。要求所有的组合方案。一行一种 样例输入 没有重复数字的全组合 3 5 生成一个3位数有1到5这几个数字可以用 样例输出 123 124 125 134 135 234 235 245 345 var n,p:integer; procedure dls(c,s,qs:longint); var i:integer; begin if c=n+1 then begin writeln(s); exit; end; for i:=qs+1 to p do dls(c+1,s*10+i,i); end; begin readln(n,p); dls(1,0,0); end. 告诉你要生成n位的数，有p个数字，每一个数字只能用一次 要求全排列。 样例输出 3 4 前者是n后者是p 样例输出 123 124 132 134 142 143 213 214 231 234 243 312 314 321 324 341 342 412 413 421 423 431 432 var a:array[1..9] of boolean; n,p:integer; procedure dls(c,s:longint); var i:integer; begin if c=n+1 then begin writeln(s); exit; end; for i:=1 to p do if not a[i] then begin a[i]:=true;