随笔 - 540  文章 - 0 评论 - 39 trackbacks - 0

乍一看这题好难,根本不会;

直到看到1<=m<=2……

显然分类讨论dp,

很快想到这题的dp和poj2430相类似

m=2的时候f[i,j,k]表示到第i行用了j个矩阵结尾状态为k时最大权值和

k=0~4表示5种结尾可能的状态

转移很类似poj2430,这里就不赘述了

 1 const inf=1000000007;
 2 var f:array[0..110,0..110,0..5] of longint;
 3     a:array[0..110,0..2] of longint;
 4     ans,i,j,p,k,n,m:longint;
 5 
 6 function max(a,b:longint):longint;
 7   begin
 8     if a>b then exit(a) else exit(b);
 9   end;
10 
11 begin
12   readln(n,m,k);
13   for i:=1 to n do
14     for j:=1 to m do
15       read(a[i,j]);
16   if m=1 then
17   begin
18     for i:=0 to k do
19     begin
20       f[1,i,0]:=-inf;
21       f[1,i,1]:=-inf;
22     end;
23     f[1,1,1]:=a[1,1];
24     f[1,0,0]:=0;
25     for i:=2 to n do
26     begin
27       for j:=0 to k do
28       begin
29         f[i,j,0]:=max(f[i-1,j,1],f[i-1,j,0]);
30         if j=0 then f[i,j,1]:=-inf
31         else f[i,j,1]:=max(max(f[i-1,j,1],f[i-1,j-1,1]),f[i-1,j-1,0])+a[i,1];
32       end;
33     end;
34     writeln(max(f[n,k,1],f[n,k,0]));
35   end
36   else begin
37     for i:=0 to k do
38       for j:=0 to 4 do
39         f[1,i,j]:=-inf;
40     f[1,0,0]:=0;
41     f[1,1,1]:=a[1,1];
42     f[1,1,2]:=a[1,2];
43     f[1,2,3]:=a[1,1]+a[1,2];
44     f[1,1,4]:=a[1,1]+a[1,2];
45     for i:=2 to n do
46       for j:=0 to k do
47       begin
48         f[i,j,0]:=-inf;
49         for p:=0 to 4 do
50           f[i,j,0]:=max(f[i,j,0],f[i-1,j,p]);
51 
52         if j=0 then
53         begin
54           for p:=0 to 4 do
55             f[i,j,p]:=-inf;
56           continue;
57         end;
58         f[i,j,1]:=f[i-1,j-1,0];
59         f[i,j,1]:=max(f[i,j,1],max(f[i-1,j,1],f[i-1,j-1,1]));
60         f[i,j,1]:=max(f[i,j,1],max(f[i-1,j-1,2],f[i-1,j-1,4]));
61         f[i,j,1]:=max(f[i,j,1],max(f[i-1,j,3],f[i-1,j-1,3]))+a[i,1];
62 
63         f[i,j,2]:=f[i-1,j-1,0];
64         f[i,j,2]:=max(f[i,j,2],max(f[i-1,j,2],f[i-1,j-1,2]));
65         f[i,j,2]:=max(f[i,j,2],max(f[i-1,j-1,1],f[i-1,j-1,4]));
66         f[i,j,2]:=max(f[i,j,2],max(f[i-1,j,3],f[i-1,j-1,3]))+a[i,2];
67 
68         f[i,j,4]:=max(f[i-1,j-1,4],f[i-1,j,4]);
69         for p:=0 to 3 do
70           f[i,j,4]:=max(f[i,j,4],f[i-1,j-1,p]);
71         f[i,j,4]:=f[i,j,4]+a[i,1]+a[i,2];
72 
73         if j<2 then
74         begin
75           f[i,j,3]:=-inf;
76           continue;
77         end;
78         f[i,j,3]:=f[i-1,j,3];
79         f[i,j,3]:=max(f[i,j,3],max(f[i-1,j-2,0],f[i-1,j-2,4]));
80         f[i,j,3]:=max(f[i,j,3],f[i-1,j-2,3]);
81         f[i,j,3]:=max(f[i,j,3],max(f[i-1,j-1,1],f[i-1,j-1,2]))+a[i,1]+a[i,2];
82       end;
83     ans:=-inf;
84     for i:=0 to 4 do
85       ans:=max(ans,f[n,k,i]);
86     writeln(ans);
87   end;
88 end.
View Code

 

posted on 2014-07-19 11:11  acphile  阅读(40)  评论(0编辑  收藏