第十一讲递归过程的应用初步.pptVIP

3、怎样判断：第k个皇后能否放置在第i列 ： function place(k,i:integer):boolean; {第k个皇后能否放在第i列} var j:integer; begin for j:=1 TO K-1 do if (x[j]=i) or (abs(x[j]-i)=abs(j-k)) then exit(false) exit(true); end; 4、输出解： procedure print; var j:integer; begin count:=count+1; write(count,:); for j:=1 to n-1 do write(x[j], ); writeln(x[n]); end; 主程序：try（1） * * 第十一讲 递归过程的应用初步 一、Hanoi（汉诺塔）问题二、跳马问题 三、迷宫问题 四、N皇后问题 六、自然数n的分解 五、借书问题 问题的提出： Hanoi塔由n个大小不同的圆盘和3根木柱1,2,3组成。开始时，这n个圆盘由大到小依次套在1柱上，如图所示。  现在要求用最少的移动次数把1柱上n个圆盘按下述规则移到3柱上： (1) 一次只能移一个圆盘； (2) 圆盘只能在3个柱上存放； (3) 在移动过程中，不允许大盘压小盘。 请编程描述移动的过程。 。 一、Hanoi（汉诺塔）问题 1 : 1--3 1 : 1--2 2 : 1--3 1 : 2--3 1 : 1--3 2 : 1--2 1 : 3--2 3 : 1--3 1 : 2--1 2 : 2--3 1 : 1--3 1 : 1--2 2 : 1--3 1 : 2--3 3 : 1--2 1 : 3--1 2 : 3--2 1 : 1--2 4 : 1--3 1 : 2--3 2 : 2--1 1 : 3--1 3 : 2--3 1 : 1--2 2 : 1--3 1 : 2--3 N=4 N=3 N=2 N=1 第一步：先借助3柱把1柱上面的n-1个盘子移动到2柱上。 第二步：然后再把1柱最下面的一个盘子移动到3柱上。 第三步：再借助1柱把2柱上的n-1个盘子移动到3上。 procedure move(i,x,y,z:integer); //把x柱上的编号1到i的i个盘子借助y移动到z上 begin if i=1 then writeln(1, : ,x,--,z) else begin move(i-1,x,z,y); writeln(i, : ,x,--,z); move(i-1,y,x,z); end; end; readln(n); move(n,1,2,3); 第一步：先借助3柱把1柱上面的n-1个盘子移动到2柱上，所需的移  动次数为f(n-1)。 第二步：然后再把1柱最下面的一个盘子移动到3柱上，只需要1次  盘子。 第三步：再借助1柱把2柱上的n-1个盘子移动到3上，所需的移动次 数为f(n-1)。 由以上3步得出总共移动盘子的次数为：f(n-1)+1+ f(n-1)。 所以：f(n)=2 f(n-1)+1 f(n)= 2n-1 最少的移动次数 思考：四根柱子的情况？ 五根柱子的情况？ ? m根柱子的情况？ 二、跳马 设有下图所示的一个棋盘，在棋盘上的A(0,0)点有一个中国象棋 马，并约定马走的规则： 1、马只向右走； 2、马走“日“字。 找出所有从A到B的路径。 输入：B的坐标n，m（=15）。 输出：一条路径。 如： 输入：8 4 输出：（0,0)(2 1)(4 0)(5 2)(6 0)(7 2)(8 4) 1 1 2 3 4 5 6 7 1 2 3 分析： 1、马跳的方向描述： 当前某一位置（x，y）， 可能的4个方向： 1： （x + 1, y – 2 ） 2: （x + 2，y – 1） 3: （x + 2，y + 1） 4：（x + 1， y + 2） dx,dy:array[1..4] of intege