jzoj 1352. 【2011.12.24普及模拟】游荡的奶牛 解题报告

1352. 【2011.12.24普及模拟】游荡的奶牛(ctravel.pas/cpp) 
(File IO): input:ctravel.in output:ctravel.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

    奶牛们在被划分成N行M列(2 <= N <= 100; 2 <= M <= 100)的草地上游走，试图找到整块草地中最美味的牧草。Farmer John在某个时刻看见贝茜在位置(R1, C1)，恰好T (0 < T <= 15)秒后，FJ又在位置(R2, C2)与贝茜撞了正着。FJ并不知道在这T秒内贝茜是否曾经到过(R2, C2)，他能确定的只是，现在贝茜在那里。

     设S为奶牛在T秒内从(R1, C1)走到(R2, C2)所能选择的路径总数，FJ希望有一个程序来帮他计算这个值。每一秒内，奶牛会水平或垂直地移动1单位距离（奶牛总是在移动，不会在某秒内停在它上一秒所在的点）。草地上的某些地方有树，自然，奶牛不能走到树所在的位置，也不会走出草地。

   现在你拿到了一张整块草地的地形图，其中'.'表示平坦的草地，'*'表示挡路的树。你的任务是计算出，一头在T秒内从(R1, C1)移动到(R2, C2)的奶牛可能经过的路径有哪些。

输入

 第1行: 3个用空格隔开的整数：N，M，T

第2..N+1行: 第i+1行为M个连续的字符，描述了草地第i行各点的情况，保证              字符是'.'和'*'中的一个

第N+2行: 4个用空格隔开的整数：R1，C1，R2，以及C2

输出

第1行: 输出S，含义如题中所述

样例输入

4 5 6
...*.
...*.
.....
.....
1 3 1 5

样例输出

1

数据范围限制

提示

【 样例数据说明】

 输入说明:草地被划分成4行5列，奶牛在6秒内从第1行第3列走到了第1行第5列。

输出说明:奶牛在6秒内从(1,3)走到(1,5)的方法只有一种（绕过她面前的树）。

递推：

 关系式为：f[i,j,k]=sum(f[上下左右四个方向，k-1]);

代码：

const
 maxn=101;
var
 e:array[1..maxn,1..maxn]of boolean;
 n,m,time,rx,ry,cx,cy:longint;
 f:array[0..maxn,0..maxn,0..15]of longint;

procedure init;
var s:string; i,j:longint;
begin
 readln(n,m,time);
 for i:=1 to n do
  begin
   readln(s);
   for j:=1 to m do
    if s[j]='.' then e[i,j]:=true;
  end;
 readln(rx,ry,cx,cy);
 f[rx,ry,0]:=1;
end;

procedure dp;
var i,j,k:longint;
begin
for k:=1 to 15 do
 for i:=1 to 100 do
  for j:=1 to 100 do
     if e[i,j] then  f[i,j,k]:=f[i-1,j,k-1]+f[i+1,j,k-1]+f[i,j-1,k-1]+f[i,j+1,k-1];
   writeln(f[cx,cy,time]);
end;

begin
 assign(input,'ctravel.in');reset(input);
 assign(output,'ctravel.out');rewrite(output);
 init;
 dp;
 close(input); close(output);
end.