2017年11月01日普及组 I Like Matrix!

最新推荐文章于 2020-10-01 22:21:05 发布

原创最新推荐文章于 2020-10-01 22:21:05 发布 · 407 阅读

0 ·

CC 4.0 BY-SA版权

普及模拟赛同时被 2 个专栏收录

91 篇文章

订阅专栏

深度搜索

53 篇文章

订阅专栏

本文介绍了一种通过深度优先搜索算法解决矩阵中可达位置数量的问题。输入为矩阵大小及移动规则，输出可达位置总数。文章提供了完整的Pascal程序示例。

Description

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

Input

第一行包含三个整数 n，m 和 k。
之后 k 行每行包含两个 xi 和 yi 。

Output

共一行包含一个整数 ans，表示可以到达的位置个数。

Sample Input
5 5 2
2 1
1 3

Sample Output
5

Hint
对于 100% 的数据：n,m ≤ 100，k ≤ 10

分析
使用深搜遍历一遍，即可输出答案

程序：

var
n,m,k,i,ans:longint;
x,y:array[0..11]of longint;
f:array[-1..200,-1..200]of longint;
procedure dfs(x1,y1:longint);
var
i:longint;
begin
    for i:=1 to k do
    if (f[x1+x[i],y1+y[i]]=0)and(x1+x[i]<=n)and(y1+y[i]<=m) then
    begin
        inc(ans);
        f[x1+x[i],y1+y[i]]:=1;
        dfs(x1+x[i],y1+y[i]);
    end;
end;


begin
    assign(input,'present.in');
    reset(input);
    assign(output,'present.out');
    rewrite(output);
    readln(n,m,k);
    ans:=0;
    fillchar(f,sizeof(f),0);
    for i:=1 to k do
    readln(x[i],y[i]);
    f[1,1]:=1;
    dfs(1,1);
    writeln(ans+1);
    close(input);
    close(output);
end.