2000年分区联赛提高组之四 方格取数
Time Limit:50000MS Memory Limit:65536K
Total Submit:205 Accepted:119
Description
设有N*N的方格图(N<=10,我们将其中的某些方格中填入正整数,而其他的方格中则放入数字0。如下图所示(见样例):
![](http://10.156.17.250/JudgeOnline/image/1010.jpg)
某人从图的左上角的A 点出发,可以向下行走,也可以向右走,直到到达右下角的B点。在走过的路上,他可以取走方格中的数(取走后的方格中将变为数字0)。
此人从A点到B 点共走两次,试找出2条这样的路径,使得取得的数之和为最大。
Input
输入的第一行为一个整数N(表示N*N的方格图),接下来的每行有三个整数,前两个表示位置,第三个数为该位置上所放的数。一行单独的0表示输入结束。
Output
只需输出一个整数,表示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
Source
elba
var
f:array[0..100,0..100,0..100,0..100]of longint;//f[i,j,k,l]为第一条路走到(i,j),第二条路走到(k,l)时的最大解
a:array[0..100,0..100]of longint;
n,x,y,z,i,j,k,l:longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a);
exit(b);
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 k:=1 to n do
for l:=1 to n do
begin
f[i,j,k,l]:=max(f[i,j,k,l],f[i-1,j,k-1,l]);//可能由上上继承(因为是从左上走向右下)
f[i,j,k,l]:=max(f[i,j,k,l],f[i,j-1,k,l-1]);//可能由左左继承
f[i,j,k,l]:=max(f[i,j,k,l],f[i,j-1,k-1,l]);//可能由左上继承
f[i,j,k,l]:=max(f[i,j,k,l],f[i-1,j,k,l-1]);//可能由上左继承
f[i,j,k,l]:=f[i,j,k,l]+a[i,j];//累加当前位置的值
if (i<>k) and (j<>l) then//一样的话就和上面那条重复了
f[i,j,k,l]:=f[i,j,k,l]+a[k,l];
end;
writeln(f[n,n,n,n]);
end.