方格取数（动规例题）

题目描述：

对于N*N的一个矩阵中有着许多数字，规定你从左上角出发，走到右下角，走两遍，每一次走时可以取矩阵中的数字，求如何取得最大的和。

这道题可以四重循环枚举两条路所走到的位置。然后判断i,j点，h,k点是由上或左得来最大值，sum[i,j,h,k]表示第一条道路走到i,j点，第二条走到h,k点时的最优值，显然i,j,h,k有2*2四种状态：

sum[i-1,j,h-1,k]

sum[i-1,j,h,k-1]

sum[i,j-1,h-1,k]

sum[i,j-1,h,k-1]

之后取这四种最优解的情况下，还要加上a[i,j]和a[h,k]——不过这是在i,j与h,k不相等的时候，如果相等则只用加一次即可。

代码：

var
        n,i,j,h,k,x,y,z:Longint;
        a:array[1..50,1..50] of Longint;
        f:array[0..50,0..50,0..50,0..50] of Longint;
function max(x,y:Longint):longint;
begin
        if x>y then exit(x) else exit(y);
end;
begin
        readln(n);
        readln(x,y,z);
        while (x<>0) and (y<>0) and (z<>0) do
        begin
                a[x,y]:=z;
                readln(x,y,z);
        end;
        for i:=1 to n do
                for j:=1 to n do
                        for h:=1 to n do
                                for k:=1 to n do
                                begin
                                        f[i,j,h,k]:=max(max((max(max(f[i,j-1,h,k-1],f[i,j-1,h-1,k]),f[i-1,j,h-1,k])),f[i-1,j,h,k-1]),f[i,j,h,k])+a[i,j];
                                        if (i<>h) and (j<>k) then f[i,j,h,k]:=f[i,j,h,k]+a[h,k];
                                end;
        writeln(f[n,n,n,n]);
end.