炸僵尸

题目描述

  妈妈得知小星星成功地解决了买玩具难题,奖励他去看电影《生化危机 6》, 小星星看 着看着就替女主角担心起来了,因为她要对付那么多的僵尸怪物,小星星恨不得扔颗炸弹消 除可恶的僵尸们,他脑袋里开始构思出这样的场景:

炸僵尸_第1张图片

  在一个 N 行 M 列单元格构成的地图中,去放置一个炸弹,这种炸弹威力巨大,以放置 点为中心进行行列延伸炸到同行同列的僵尸,但不能穿墙。上图中可以把炸弹放置在第 3 行第 4 列,最多可以炸到 4 个僵尸,如果对地图稍加改动(如下图),在第 5 行第 4 列处加 入一个墙体,又如何呢?答案还是最多炸到 4 个僵尸,只不过最佳炸弹放置点发生了变化, 应该放到第 6 行第 6 列的位置。

炸僵尸_第2张图片

  当然炸弹要靠勇敢的小星星去放,他只能在地图中朝上下左右四个方向行进(不能斜对 角移动) ,他不能穿墙,也不能穿越僵尸,要保证他的安全,如下图,告诉你小星星起始位 置是第 2 行第 2 列,那么他的最佳放置炸弹位置应该是第 3 行第 2 列,最多炸到 2 个僵尸。

炸僵尸_第3张图片

  现在请聪明的你也一起加入到消除僵尸的队伍来。

输入

  第一行四个用空格隔开的正整数表示 N,M,X,Y,分别表示 N 行 M 列的地图,小星星起 始位置第 X 行,第 Y 列。
  接下来 N 行 M 列用来描述地图上每个单元格,‘ G’表示僵尸,‘#’表示墙体,只有‘.’ 表示的单元格才是小星星能够正常行走,能够放置炸弹的单元格。(数据保证四面都是墙体, 也就是第 1 行、第 N 行、第 1 列、第 M 列肯定都是墙体)。

输出

一个整数,最多能炸掉的僵尸数量。

样例输入

13 13 4 2
。#############
。###..GG#GGG.#
。###.#G#G#G#G#
。#…….#..G#
。#G#.###.#G#G#
。#GG.GGG.#.GG#
。#G#.#G#.#.#.#
。#G…G…..#
。#G#.#G###.#G#
。#…G#GGG.GG#
。#G#.#G#G#.#G#
。#GG.GGG#G.GG#
。#############
(句号不读入)

样例输出

10

数据范围限制

30%的数据,保证 N,M<14,并且小星星一定能够抵达最佳炸弹放置点
40%的数据,保证 N,M<14
70%的数据,保证 N,M<101
100%的数据,保证 N,M<2001
100%的数据,保证 X

const
        fx:array[1..4,1..2]of longint=((1,0),(0,1),(-1,0),(0,-1));
var
        a:array[1..2001,1..2001]of char;
        p:array[1..2001,1..2001]of boolean;
        q:array[1..10000000,1..2]of longint;
        n,m,i,j,x,y,ans:longint;
function sum(x,y:longint):longint;//炸僵尸
var
        i:longint;
begin
        sum:=0;
        for i:=y-1 downto 1 do
        begin
                if a[x,i]='#' then break;
                if a[x,i]='G' then inc(sum);
        end;
        for i:=x-1 downto 1 do
        begin
                if a[i,y]='#' then break;
                if a[i,y]='G' then inc(sum);
        end;
        for i:=y+1 to m do
        begin
                if a[x,i]='#' then break;
                if a[x,i]='G' then inc(sum);
        end;
        for i:=x+1 to n do
        begin
                if a[i,y]='#' then break;
                if a[i,y]='G' then inc(sum);
        end;
end;
procedure bfs(x,y:longint);//宽搜
var
        l,i,t,s1,s2,x1,y1:longint;
begin
        l:=1;
        t:=1;
        q[t,1]:=x;
        q[t,2]:=y;
        repeat
                s1:=q[l,1];
                s2:=q[l,2];
                if sum(s1,s2)>ans then ans:=sum(s1,s2);
                for i:=1 to 4 do
                begin
                        x1:=s1+fx[i,1];
                        y1:=s2+fx[i,2];
                        if (a[x1,y1]='.')and(p[x1,y1]=false) then
                        begin
                                p[x1,y1]:=true;
                                inc(t);
                                q[t,1]:=x1;
                                q[t,2]:=y1;
                        end;
                end;
                inc(l);
        until (q[l,2]=0)and(q[l,1]=0);
end;
begin
        readln(n,m,x,y);
        for i:=1 to n do
        begin
                for j:=1 to m do read(a[i,j]);
                readln;
        end;
        bfs(x,y);
        writeln(ans);
end.

你可能感兴趣的:(Pascal)