题目大意:一张图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.
分享到:
相关推荐
最小生成树计数(HYSBZ-1016)(简化版实现).rar
最小生成树计数(HYSBZ-1016)(加强版实现).rar
算法-狼抓兔子(HYSBZ-1001)(包含源程序).rar
此回购包含OJ Hunt的源代码 简体中文版: 建造状态 产品特点 查询oj的ac / submissions 存储查询历史 正在开发中 电子邮件支持 等级 …… ...搜寻器:搜寻器来查询OJ。...crawler-api-backend:提供查询api的微服务 ...