SSP P2821 I Like Matrix!

题目大意：

给定 k 种移动方式：从 (i,j) 移动到 (i + xk ,j + yk )（xk ,yk > 0）。询问在一个 n ∗ m 的矩阵中，从 (1,1) 出发，可以到达多少个位置

n,m ≤ 100，k ≤ 10

题解：

这题也太水了吧，我还怕栈溢出打了广搜，晕。
每次用K种方法去走，然后能走的点扔到队列里继续延伸，之前弄过的点不用重复弄就可以了。

时间复杂度：O(NMK)

var
    p,v:array [0..101,0..101] of boolean;
    q:array [0..20001,1..2] of longint;
    dx,dy:array [0..11] of longint;
    n,m,k:longint;


procedure init;
var
    i:longint;
begin
    readln(n,m,k);
    for i:=1 to k do
      readln(dx[i],dy[i]);
end;

function check(aa,bb:longint):boolean;
begin
    if (aa<1) or (bb<1) or (aa>n) or (bb>m) then exit(false);
    if p[aa,bb] then exit(false);
    exit(true);
end;

procedure bfs;
var
    head,tail,i,x,y:longint;
begin
    head:=0;
    tail:=1;
    v[1,1]:=true;
    p[1,1]:=true;
    q[1,1]:=1;
    q[1,2]:=1;
    while head<tail do
    begin
          inc(head);
          x:=q[head,1];
          y:=q[head,2];
          for i:=1 to k do
            if check(x+dx[i],y+dy[i]) then
             begin
                  v[x+dx[i],y+dy[i]]:=true;
                  inc(tail);
                  p[x+dx[i],y+dy[i]]:=true;
                  q[tail,1]:=x+dx[i];
                  q[tail,2]:=y+dy[i];
             end;
    end;
end;

procedure print;
var
    i,j,ans:longint;
begin
     ans:=0;
     for i:=1 to n do
       for j:=1 to m do
         if v[i,j] then inc(ans);
     writeln(ans);
end;

procedure main;
begin
     init;
     bfs;
     print;
end;

begin
    main;
end.