搜索与回溯 上机训练 4

题目：
一个集合里有N个数，取S个数和为R。
输入样例1
5（有五个数）10（和为10）
2 2 6 4 5（这个集合）
输出样例2
2 2 6
6 4
输入样例2
5 3 （不用解释了吧）
2 4 3 2 4
输出样例2
no solution!

---

这题直接搜索中用for判断每一种情况，如果等于R，就输出出来，没有就输出no solution!

---

代码如下：

var
  n,m,p,flag,i:longint;
  a,b:array[1..1000]of longint;
procedure dfs(now,sum:longint);
var  i,j,s:longint;
begin
  if(now=n+1) then exit;
  if (sum=m) and (p>1) then begin
      for i:=1 to p do write(a[b[i]],' ');
      writeln;
      flag:=1;
  end;
  for i:=now+1 to n do
    if a[i]+sum<=m then begin
      inc(p);
      b[p]:=i;
      dfs(i,sum+a[i]);
      dec(p);
    end;
end;

begin
  read(n,m);
  for i:=1 to n do read(a[i]);  
  dfs(0,0);
  if flag=0 then writeln('no solution!');
end.