HYSBZ 1616（纯深搜）

nike0good

于 2012-09-08 17:12:32 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏：搜索文章标签： string

本文链接：https://blog.youkuaiyun.com/nike0good/article/details/7958492

搜索专栏收录该内容

24 篇文章

订阅专栏

本文介绍了一种使用广度优先搜索（BFS）解决特定图问题的方法：在一个存在障碍物的图中，计算从任意一点出发长度为定值的所有路径数量。文章通过示例代码展示了如何初始化图状态并迭代更新路径计数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目大意：一张图G，有一些障碍物，求路径长度一定（可环）时的路径总数

果断广搜

Program ttd;
var
   n,m,t,i,j,k,x1,x2,y1,y2:longint;
   s:string;
   b:array[0..101,0..101] of boolean;

   f:array[0..15,0..101,0..101] of longint;
begin
   readln(n,m,t);
   fillchar(b,sizeof(b),true);
   for i:=1 to n do
   begin
      readln(s);
      for j:=1 to m do if s[j]='*' then b[i,j]:=false;
   end;
   readln(x1,y1,x2,y2);
   fillchar(f,sizeof(f),0);
   f[0,x1,y1]:=1;

   for k:=1 to t do
   begin
      for i:=1 to n do
         for j:=1 to m do
            if f[k-1,i,j]>0 then
            begin
               if b[i+1,j] then inc(f[k,i+1,j],f[k-1,i,j]);
               if b[i-1,j] then inc(f[k,i-1,j],f[k-1,i,j]);
               if b[i,j+1] then inc(f[k,i,j+1],f[k-1,i,j]);
               if b[i,j-1] then inc(f[k,i,j-1],f[k-1,i,j]);



            end;


   end;
             {
   for k:=0 to t do
   begin
   for i:=1 to n do
   begin
      for j:=1 to m do
      begin
         write(f[k,i,j],' ');
      end;
      writeln;
      end;
      writeln;
   end;
            }
   writeln(f[t,x2,y2]);


end.