最小代价问题

最小代价问题

Description

设有一个n×m(小于100)的方格（如图所示），在方格中去掉某些点，方格中的数字代表距离（为小于100的数，如果为0表示去掉的点），试找出一条从A(左上角)到B（右下角）的路径，经过的距离和为最小（此时称为最小代价），从A出发的方向只能向右，或者向下。

Input

Output

Sample Input

4 4  
4 10 7 0
3 2 2 9
0 7 0 4
11 6 12 1

Sample Output

(1,1)->(2,1)->(2,2)->(2,3)->(2,4)->(3,4)->(4,4)

var
 map,dis,g:array[0..101,0..101]of longint;
 y,x,i,j,t:longint;

procedure dg(n,m:longint);
begin
    if (n<1) or (m<1) then exit;
    if g[n,m]=2 then dg(n-1,m)
                else dg(n,m-1);
    if (n<>x) or (m<>y) then write('(',n,',',m,')->')
    else write('(',n,',',m,')');
end;

begin
 read(x,y);
 for i:=1 to x do
  begin
   for j:=1 to y do
    read(map[i,j]);
   readln;
  end;
 dis[1,1]:=map[1,1];
 for i:=1 to y do
  if (dis[1,i-1]<>0) and (map[1,i]<>0) then
     begin
          dis[1,i]:=map[1,i]+dis[1,i-1];
          g[1,i]:=1;//标记路径
     end;
 for i:=1 to x do
  if (dis[i-1,1]<>0) and (map[i,1]<>0) then
     begin
         dis[i,1]:=map[i,1]+dis[i-1,1];
         g[i,1]:=2;//标记路径

     end;
 for i:=2 to x do
  begin
   for j:=2 to y do
    begin
     if (map[i,j]<>0) then
         begin
              if (dis[i-1,j]=0) or ((dis[i,j-1]<>0) and (dis[i-1,j]>dis[i,j-1]))
                 then begin
                         dis[i,j]:=map[i,j]+dis[i,j-1];
                         g[i,j]:=1;//标记路径
                      end
                 else if (dis[i,j-1]=0) or ((dis[i-1,j]<>0) and (dis[i,j-1]>dis[i-1,j])) then
                          begin
                               dis[i,j]:=map[i,j]+dis[i-1,j];
                               g[i,j]:=2;//标记路径
                          end;
         end;
     end;
  end;
 dg(x,y);
 writeln;
 write(dis[x,y]-map[x,y]);
end.