NDK 1253 那23个路口

问题描述：	故事的起源不加赘述，那23个路口。   单刀直入，我直接说题的意思。   蚊子和疯子在做一件事，就是他们要在茫茫的大街上找一个出发点，然后从出发点开始，经  过上下左右23次拐弯，到达一个他们也不知道的地方。   老城的街道排列的十分有规律，于是疯子和蚊子把老城的街道排布画在了一张地图上。地图  上每一个点代表一个地方，而这个地方有一定的憧憬值，疯子希望可以带蚊子走过的二十三  个路口的憧憬值总和是所有方案中最大的。   现在我们读入一个矩阵，如果此点为0，则这个点为起点，如果此点为-1，则这个点为障碍  点，否则这个数代表憧憬值。注意起点和障碍点是没有憧憬值的，起点只有开始的时候可以  达到，不可以再回来。而障碍点根本就不可以走过。这样一来，请你选择合适的路线，使走  完23个路口后得到最大的憧憬值，有憧憬值的点可以重复进出，每次可以选择四个方向，上  下左右。起点为第0个路口
数据输入：	第1行两个整数 n,m （茫茫大街的长和宽）   第2行到第m+1行，每行n个整数 Aij（第I行第j个地点的憧憬值）
结果输出：	一个整数sum （可以得到的最大憧憬值）
样例：	4 4 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1	23
核心思想：	动态规划（四个方向）

var
 a:array[0..310,0..310]of longint;
 f:array[0..310,0..310,0..23]of int64;
 go:array[1..4,1..2]oflongint=((0,-1),(1,0),(0,1),(-1,0));
 n,m,i,j,k,p:longint;
 ans:int64;
function max(a,b:int64):int64;
begin
 ifa>b then exit(a);
 exit(b);
end;
begin
 assign(input,'p1253.in');reset(input);
 assign(output,'p1253.out');rewrite(output);
 readln(m,n);
 fillchar(f,sizeof(f),200);
 fori:=1 to n do
 begin
  for j:=1 to m do
   begin
    read(a[i,j]);
    if a[i,j]=0 then f[i,j,0]:=0;
   end;
  readln;
 end;
 fork:=1 to 23 do
  fori:=1 to n do
  for j:=1 to m do
   if a[i,j]>0 then{<障碍和起点不进行>}
    begin
     for p:=1 to 4 do
      if f[i+go[p,1],j+go[p,2],k-1]>=0 then
       f[i,j,k]:=max(f[i,j,k],f[i+go[p,1],j+go[p,2],k-1]);
     if f[i,j,k]>=0 then
      inc(f[i,j,k],a[i,j]);
    end;
 ans:=-maxlongint;
 fori:=1 to n do{<结束可以在任意点（除起点和障碍），取最大>}
  forj:=1 to m do
  ans:=max(ans,f[i,j,23]);
 writeln(ans);
 close(input);close(output);
end.

题目来源：NDK 1253