浅谈回溯算法.pptVIP

分解（二） 输入自然数n和m（n，m100），输出所有分解，分解后的每一项都不超大于m的。不能重复。如：4=1+1+2；4=1+2+1;4=2+1+1 属于一种分解形式。 如： 输入： 7 4 输出： 1:7=1+1+1+4 2:7=1+1+1+1+3 3:7=1+1+1+1+1+2 4:7=1+1+1+1+1+1+1 5:7=1+1+1+2+2 6:7=1+1+2+3 7:7=1+2+4 8:7=1+2+2+2 9:7=1+3+3 10:7=2+2+3 11:7=3+4 begin readln(n); readln(m); count:=0; for i:=1 to n div 2 do begin k:=1; a[1]:=i; try(n-i); end; end. var n,m,k,i,count:integer; a:array[1..100] of integer; procedure print(i,x:integer); var j:integer; begin inc(count); write(count,:,n,=); for i:=1 to k do write(a[i],+); writeln(x); end; procedure try(x:integer);{x是第k+1项} var i,j:integer; begin if x=m then print(k,x); for j:=a[k] to x div 2 do if (j=a[k])and(x-j=j) then begin inc(k); a[k]:=j; try(x-j); dec(k); end; end; 分解（三） 输入自然数n和m（n，m100），输出所有分解项数不超过m的所有形式。不能重复。如：4=1+1+2；4=1+2+1;4=2+1+1 属于一种分解形式。 如： 输入： 7 4 输出： 1:7=1+6 2:7=1+1+5 3:7=1+1+1+4 4:7=1+1+2+3 5:7=1+2+4 6:7=1+2+2+2 7:7=1+3+3 8:7=2+5 9:7=2+2+3 10:7=3+4 var n,m,k,i,count:integer; a:array[1..100] of integer; procedure print(i,x:integer); var j:integer; begin inc(count); write(count,:,n,=); for i:=1 to k do write(a[i],+); writeln(x); end; procedure try(x:integer);{x是第k+1项} var i,j:integer; begin if k=m-1 then print(k,x); for j:=a[k] to x div 2 do if (j=a[k])and(x-j=j) then begin inc(k); a[k]:=j; try(x-j); dec(k); end; end; begin readln(n); readln(m); count:=0; for i:=1 to n div 2 do begin k:=1; a[1]:=i; try(n-i); end; end. 算法的缺点？ 改进优化？ if k=m then exit;{剪枝优化} 5、骑士的游历 设有下图所示的一个棋盘，在棋盘上的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 1 2 3 4 5 6 7 1 2 3 1 分析： 1、马跳的方向： x:array[1..4,1..2]of integer= ((1,-2),(2,-1),(2,1),(1,2)); 4个方向横