输油管道 纪中 1432 优美的暴力

Description

　　请你帮忙设计一个从城市M到城市Z的输油管道，现在已经把整个区域划分为R行C列，每个单元格可能是空的也可能是以下7种基本管道之一：
　　
　　油从城市M流向Z，‘+’型管道比较特殊，因为石油必须在两个方向（垂直和水平）上传输，如下图所示：

　　　　　　　
　　现在恐怖分子弄到了输油管道的设计图，并把其中一个单元格中的管道偷走了，请你帮忙找到偷走的管道的位置以及形状。

Input

　　第一行包含两个整数R和C（1<=R,C<=25）。
　　接下来R行每行C个字符描述被偷之后的形状，字符分为以下三种：
　　(1)‘.’表示空；
　　(2)字符‘|’（ASCII为124）、‘-’、‘+’、‘1’、‘2’、‘3’、‘4’描述管道的形状；
　　(3)‘M’和‘Z’表示城市，两个都是只出现一次。
　　输入保证石油的流向是唯一的，只有一个管道跟M和Z相连，除此此外，保证没有多余的管道，也就是说所有的管道在加进被偷的管道后一定都会被用上。
　　输入保证有解而且是唯一的。

分析

一堆case和if的水题。

代码

const
  dx:array[1..4] of longint=(-1,0,1,0);
  dy:array[1..4] of longint=(0,1,0,-1);

var
  a:array[0..100,0..100] of longint;
  i,j,k:longint;
  n,m:longint;
  c:char;
  ans:longint;

procedure bfs(x,y,xy,s:longint);
var
  i,j,k:longint;
  x1,y1,x2,y2,s1:longint;
begin
  j:=0;
  ans:=1;
  for i:=1 to 4 do
    begin
      if i=xy then continue;
      case i of
        1:if (a[x+dx[i],y+dy[i]]=2)or(a[x+dx[i],y+dy[i]]=3)or(a[x+dx[i],y+dy[i]]=6)
            then continue;
        2:if (a[x+dx[i],y+dy[i]]=1)or(a[x+dx[i],y+dy[i]]=2)or(a[x+dx[i],y+dy[i]]=5)
            then continue;
        3:if (a[x+dx[i],y+dy[i]]=1)or(a[x+dx[i],y+dy[i]]=4)or(a[x+dx[i],y+dy[i]]=6)
            then continue;
        4:if (a[x+dx[i],y+dy[i]]=4)or(a[x+dx[i],y+dy[i]]=3)or(a[x+dx[i],y+dy[i]]=5)
            then continue;
      end;
      if a[x+dx[i],y+dy[i]]<>0
        then
          begin
            if j=1 then
              begin
                writeln(x,' ',y,' ','+');
                exit;
              end;
            x2:=x+dx[i]; y2:=y+dy[i];
            s1:=i;
            j:=1;
          end;
    end;
  if (xy=1) or (xy=3) then begin
  x1:=x+dx[xy];
  y2:=y;
  end;
  if (xy=2) or (xy=4) then begin
    x1:=x;
    y1:=y1+dy[xy];
  end;
  case xy of
    1:begin
        if s1=3 then writeln(x,' ',y,' |');
        if s1=2 then writeln(x,' ',y,' 2');
        if s1=4 then writeln(x,' ',y,' 3');
      end;
    2:begin
        if s1=3 then writeln(x,' ',y,' 1');
        if s1=1 then writeln(x,' ',y,' 2');
        if s1=4 then writeln(x,' ',y,' -');
      end;
    3:begin
        if s1=1 then writeln(x,' ',y,' |');
        if s1=2 then writeln(x,' ',y,' 1');
        if s1=4 then writeln(x,' ',y,' 4');
      end;
    4:begin
        if s1=3 then writeln(x,' ',y,' 4');
        if s1=2 then writeln(x,' ',y,' -');
        if s1=1 then writeln(x,' ',y,' 3');
      end;
  end;
end;

begin
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          read(c);
          case c of
            '|':a[i,j]:=5;
            '-':a[i,j]:=6;
            '+':a[i,j]:=7;
            '1':a[i,j]:=1;
            '2':a[i,j]:=2;
            '3':a[i,j]:=3;
            '4':a[i,j]:=4;
            '.':a[i,j]:=0;
            'M':a[i,j]:=10;
            'Z':a[i,j]:=10;
          end;
        end;
      readln;
    end;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if a[i,j]=0 then continue;
        ans:=0;
        case a[i,j] of
          1:begin
              if a[i,j+1]=0
                then bfs(i,j+1,4,1);
              if a[i+1,j]=0
                then bfs(i+1,j,1,1);
            end;
          2:begin
              if a[i,j+1]=0
                then bfs(i,j+1,4,2);
              if a[i-1,j]=0
                then bfs(i-1,j,3,2);
            end;
          3:begin
              if a[i,j-1]=0
                then bfs(i,j-1,2,3);
              if a[i-1,j]=0
                then bfs(i-1,j,3,3);
            end;
          4:begin
              if a[i,j-1]=0
                then bfs(i,j-1,2,4);
              if a[i+1,j]=0
                then bfs(i+1,j,1,4);
            end;
          5:begin
              if a[i-1,j]=0
                then bfs(i-1,j,3,5);
              if a[i+1,j]=0
                then bfs(i+1,j,1,5);
            end;
          6:begin
              if a[i,j+1]=0
                then bfs(i,j+1,4,6);
              if a[i,j-1]=0
                then bfs(i,j-1,2,6);
            end;
          7:begin
              if a[i,j+1]=0
                then bfs(i,j+1,4,7);
              if a[i+1,j]=0
                then bfs(i+1,j,1,7);
              if a[i,j-1]=0
                then bfs(i,j-1,2,7);
              if a[i-1,j]=0
                then bfs(i-1,j,3,7);
            end;
        end;
        if ans=1 then halt;
      end;
end.