救护伤员

Problem
无情的海啸夺取了无数人的生命.很多的医疗队被派往灾区拯救伤员.就在此时,医疗队突然发现自己带的药品已经不够用了,只剩下了N种。(1 < n <= 10)，随着病人病情的发展，每种药在每天能获得的效果是不一样的。同时，每天病人只能服用一种药。也就是说，这些药还够支持N天。现在，给出你每种药在每天使用的效果，请你判断当每种药都用完后所有药达到的效果之和最大可以是多少。

Input
第一行是一个整数N(1<n<=10) 接下来n行，每行n个整数，第i行j列的整数表示第j种药在第i天的效果 c(i,j),(0<=c(i,j)<=100)
Output
一个整数，表示最大的效果之和

Sample Input
3
1 2 3
2 5 3
0 7 1
Sample Output
12

思路：

看了范围,n很小,so...

搜索..

从第1行每一个点出发，分别搜索，求最值.

Var
  Used:Array[0..11] of Boolean;
  a:Array[0..11,0..11] of longint;
  i,j,n,DC,DA:longint;
Procedure Search(x,y:longint);
  Var
    i:longint;
  Begin
    if x=n Then Begin if DC>DA Then DA:=DC; Exit; End;
    For i:=1 to n do
      Begin
        if Not Used[i] Then
          Begin
            Used[i]:=True;
            DC:=DC+a[x+1,i];
            Search(x+1,i);
            Used[i]:=False;
            DC:=DC-a[x+1,i];
          End;
      End;
  End;
Begin
  Read(n);
  For i:=1 to n do
    For j:=1 to n do
      Read(a[i,j]);
  i:=1;
  For j:=1 to n do
    Begin
      FillChar(Used,SizeOf(Used),False);
      Used[j]:=True;
      DC:=a[i,j];
      Search(i,j);
      if DC>DA Then DA:=DC;
    End;
  Writeln(DA);
End.

 

编译通过... 测试数据1：答案正确... 0ms 测试数据2：答案正确... 0ms 测试数据3：答案正确... 400ms 测试数据4：答案正确... 0ms 测试数据5：答案正确... 0ms ------------------------- Accepted 有效得分：100 有效耗时：400ms