迷宫

题目：

题目背景

迷宫 【问题描述】

给定一个N*M方格的迷宫，迷宫里有T处障碍，障碍处不可通过。给定起点坐标和

终点坐标，问: 每个方格最多经过1次，有多少种从起点坐标到终点坐标的方案。在迷宫

中移动有上下左右四种方式，每次只能移动一个方格。数据保证起点上没有障碍。

输入样例 输出样例

【数据规模】

1≤N,M≤5

题目描述

输入输出格式

输入格式：
【输入】

第一行N、M和T，N为行，M为列，T为障碍总数。第二行起点坐标SX,SY，终点

坐标FX,FY。接下来T行，每行为障碍点的坐标。

输出格式：
【输出】

给定起点坐标和终点坐标，问每个方格最多经过1次，从起点坐标到终点坐标的方

案总数。

作者思路：dfs，水题一道。

代码：

var a:array[0..6,0..6] of boolean;
    n,m,x1,y1,x2,y2,ans:longint;
procedure init;
var t,x,y,i,j:longint;
begin
  read(n,m,t);
  fillchar(a,sizeof(a),false);
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=true;
  read(x1,y1,x2,y2);
  for i:=1 to t do
  begin
    read(x,y);
    a[x,y]:=false;
  end;
end;
procedure dfs(x,y:longint);
begin
  if (x=x2)and(y=y2) then
  begin
    inc(ans);
    exit;
  end;
  a[x,y]:=false;
  if(a[x-1,y]) then dfs(x-1,y);
  if(a[x+1,y]) then dfs(x+1,y);
  if(a[x,y-1]) then dfs(x,y-1);
  if(a[x,y+1]) then dfs(x,y+1);
  a[x,y]:=true;
end;
begin
  init;
  dfs(x1,y1);
  write(ans);
end.