第五讲：回溯算法.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 tr