2000年分区联赛提高组之四 方格取数+2008年分区联赛提高组第三题 传纸条

2000年分区联赛提高组之四 方格取数

Time Limit:50000MS  Memory Limit:65536K
Total Submit:201 Accepted:115

Description

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

　　某人从图的左上角的A 点出发，可以向下行走，也可以向右走，直到到达右下角的B点。在走过的路上，他可以取走方格中的数（取走后的方格中将变为数字0）。 
　　此人从A点到B 点共走两次，试找出2条这样的路径，使得取得的数之和为最大。 

Input

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

Output

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

Sample Input

82  3  132  6   63  5   74  4  145  2  21 5  6   46　3  157　2  140　0  0

Sample Output

67

var a:array[0..10,0..10]of longint; f:array[0..10,0..10,0..10,0..10]of longint; i,j,k,h,n,m,x,y,z:longint;function max(a,b:longint):longint; begin  if a>b then exit(a);  exit(b); end;begin read(n); read(x,y,z); while (x<>0)and(y<>0)and(z<>0) do  begin   a[x,y]:=z;   read(x,y,z);  end; for i:=1 to n do//四重循环枚举2条路  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(f[i,j,h,k],f[i-1,j,h-1,k]);//上上      f[i,j,h,k]:=max(f[i,j,h,k],f[i,j-1,h,k-1]);//上左      f[i,j,h,k]:=max(f[i,j,h,k],f[i-1,j,h,k-1]);//左上

      f[i,j,h,k]:=max(f[i,j,h,k],f[i,j-1,h-1,k]);//左左      f[i,j,h,k]:=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; write(f[n,n,n,n]);end.

2008年分区联赛提高组第三题 传纸条

Time Limit:100000MS  Memory Limit:655600K
Total Submit:117 Accepted:63 
Case Time Limit:10000MS

Description

　　小渊和小轩是好朋友也是同班同学，他们在一起总有谈不完的话题。一次素质拓展活动中，班上同学安排做成一个m行n列的矩阵，而小渊和小轩被安排在矩阵对角线的两端，因此，他们就无法直接交谈了。幸运的是，他们可以通过传纸条来进行交流。纸条要经由许多同学传到对方手里，小渊坐在矩阵的左上角，坐标(1,1)，小轩坐在矩阵的右下角，坐标(m,n)。从小渊传到小轩的纸条只可以向下或者向右传递，从小轩传给小渊的纸条只可以向上或者向左传递。 
　　在活动进行中，小渊希望给小轩传递一张纸条，同时希望小轩给他回复。班里每个同学都可以帮他们传递，但只会帮他们一次，也就是说如果此人在小渊递给小轩纸条的时候帮忙，那么在小轩递给小渊的时候就不会再帮忙。反之亦然。 
　　还有一件事情需要注意，全班每个同学愿意帮忙的好感度有高有低（注意：小渊和小轩的好心程度没有定义，输入时用0表示），可以用一个0-100的自然数来表示，数越大表示越好心。小渊和小轩希望尽可能找好心程度高的同学来帮忙传纸条，即找到来回两条传递路径，使得这两条路径上同学的好心程度只和最大。现在，请你帮助小渊和小轩找到这样的两条路径。 

Input

　　输入文件message.in的第一行有2个用空格隔开的整数m和n，表示班里有m行n列（1<=m,n<=50）。 
　　接下来的m行是一个m*n的矩阵，矩阵中第i行j列的整数表示坐在第i行j列的学生的好心程度。每行的n个整数之间用空格隔开。 

Output

　　输出文件message.out共一行，包含一个整数，表示来回两条路上参与传递纸条的学生的好心程度之和的最大值。

Sample Input

3 30 3 92 8 55 7 0

Sample Output

34

var a:array[0..50,0..50]of longint; f:array[0..50,0..50,0..50,0..50]of longint; i,j,k,h,n,m,x,y,z:longint;function max(a,b:longint):longint; begin  if a>b then exit(a);  exit(b); end;begin read(n,m); for i:=1 to n do  for j:=1 to m do   read(a[i,j]);//改输入 for i:=1 to n do  for j:=1 to m do   for h:=1 to n do    for k:=1 to m do     begin      f[i,j,h,k]:=max(f[i,j,h,k],f[i-1,j,h-1,k]);      f[i,j,h,k]:=max(f[i,j,h,k],f[i,j-1,h,k-1]);      f[i,j,h,k]:=max(f[i,j,h,k],f[i-1,j,h,k-1]);      f[i,j,h,k]:=max(f[i,j,h,k],f[i,j-1,h-1,k]);      f[i,j,h,k]:=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; write(f[n,m,n,m]);end.