棋盘DP：方格取数

题目描述 Description

设有N*N的方格图(N<=10,我们将其中的某些方格中填入正整数,而其他的方格中则放入数字0。如下图所示（见样例）：

 

某人从图的左上角的A 点出发，可以向下行走，也可以向右走，直到到达右下角的B点。在走过的路上，他可以取走方格中的数（取走后的方格中将变为数字0）。

此人从A点到B 点共走两次，试找出2条这样的路径，使得取得的数之和为最大。

 

输入描述 Input Description

输入的第一行为一个整数N（表示N*N的方格图），接下来的每行有三个整数，前两个表示位置，第三个数为该位置上所放的数。一行单独的0表示输入结束。

输出描述 Output Description

    只需输出一个整数，表示2条路径上取得的最大的和。

样例输入 Sample Input

      8

      2  3  13

      2  6   6

      3  5   7

      4  4  14

      5  2  21

      5  6   4

      6 3  15

      7 2  14

      0 0  0

样例输出 Sample Output

      67

var init:array[0..10,0..10]of longint;
     f:array[0..10,0..10,0..10,0..10]of longint;
     i,j,k,l:Longint;
     x,y,v,n:longint;
     max:longint;

begin fillchar(init,sizeof(init),0);
        fillchar(f,sizeof(f),0);
          readln(n);
         readln(x,y,v);
         while (x<>0) do
                begin init[x,y]:=v;
                          readln(x,y,v);
                end;
        for i:=1 to n do
              for j:=1 to n do
                    for k:=1 to n do
                          for l:=1 to n do
                                begin max:=0;
                                        if f[i-1,j,k-1,l]>max
                                            then max:=f[i-1,j,k-1,l];
                                        if f[i,j-1,k-1,l]>max
                                            then max:=f[i,j-1,k-1,l];
                                       if f[i-1,j,k,l-1]>max
                                          then max:=f[i-1,j,k,l-1];
                                         if f[i,j-1,k,l-1]>max
                                            then max:=f[i,j-1,k,l-1];
                                        if (i=k)and(j=l)
                                              then max:=max+init[i,j]
                                               else max:=max+init[i,j]+init[k,l];
                                        f[i,j,k,l]:=max;
                                 end;
       writeln(f[n,n,n,n]);
end.