首页 > 代码库 > DP之方格取数
DP之方格取数
设有N*N的方格图(N<=10,我们将其中的某些方格中填入正整数,而其他的方格中则放入数字0。如下图所示（见样例）：
某人从图的左上角的A 点出发，可以向下行走，也可以向右走，直到到达右下角的B点。在走过的路上，他可以取走方格中的数（取走后的方格中将变为数字0）。
此人从A点到B 点共走两次，试找出2条这样的路径，使得取得的数之和为最大。
输入的第一行为一个整数N（表示N*N的方格图），接下来的每行有三个整数，前两个表示位置，第三个数为该位置上所放的数。一行单独的0表示输入结束。
只需输出一个整数，表示2条路径上取得的最大的和。
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
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.
DP之方格取数