洛谷 P1332 血色先锋队

洛谷 P1332 血色先锋队

---

题目

题目描述

巫妖王的天灾军团终于卷土重来，血色十字军组织了一支先锋军前往诺森德大陆对抗天灾军团，以及一切沾有亡灵气息的生物。孤立于联盟和部落的血色先锋军很快就遭到了天灾军团的重重包围，现在他们将主力只好聚集了起来，以抵抗天灾军团的围剿。可怕的是，他们之中有人感染上了亡灵瘟疫，如果不设法阻止瘟疫的扩散，很快就会遭到灭顶之灾。大领主阿比迪斯已经开始调查瘟疫的源头。原来是血色先锋军的内部出现了叛徒，这个叛徒已经投靠了天灾军团，想要将整个血色先锋军全部转化为天灾军团！无需惊讶，你就是那个叛徒。在你的行踪败露之前，要尽快完成巫妖王交给你的任务。

军团是一个N行M列的矩阵，每个单元是一个血色先锋军的成员。感染瘟疫的人，每过一个小时，就会向四周扩散瘟疫，直到所有人全部感染上瘟疫。你已经掌握了感染源的位置，任务是算出血色先锋军的领主们感染瘟疫的时间，并且将它报告给巫妖王，以便对血色先锋军进行一轮有针对性的围剿。

输入输出格式

输入格式：
第1行：四个整数N，M，A，B，表示军团矩阵有N行M列。有A个感染源，B为血色敢死队中领主的数量。

接下来A行：每行有两个整数x，y，表示感染源在第x行第y列。

接下来B行：每行有两个整数x，y，表示领主的位置在第x行第y列。

【数据规模】

1<=M,N<=500

1<=A,B<=M*N

输出格式：
第1至B行：每行一个整数，表示这个领主感染瘟疫的时间，输出顺序与输入顺序一致。如果某个人的位置在感染源，那么他感染瘟疫的时间为0。

输入输出样例

输入样例#1：
5 4 2 3
1 1
5 4
3 3
5 3
2 4
输出样例#1：
3
1
3
说明

如下图，标记出了所有人感染瘟疫的时间以及感染源和领主的位置。

---

题解

BFS，将每一个感染源都加入队列，且初始步数为0

---

代码

type rec=record
           x,y,step:longint;
          end;
const dx:array[1..4]of integer=(-1,0,1,0);
      dy:array[1..4]of integer=(0,1,0,-1);
var n,m,x,y,t1,t2,head,tail,i,j:longint;
    a:array[1..250000]of rec;
    u:array[1..500,1..500]of boolean;
    map:array[1..500,1..500]of longint;
 function min(x,y:longint):longint;
  begin
    if x<y then exit(x) else exit(y);
   end;
 procedure bfs;
  var  i,xx,yy:longint;
   begin
     while head<tail do
      begin
        inc(head);
        for i:=1 to 4 do
         begin
           xx:=a[head].x+dx[i];
           yy:=a[head].y+dy[i];
           if (xx<=0)or(xx>n)or(yy<=0)or(yy>m)then continue;
           if u[xx,yy] then continue;
           a[tail].x:=xx; a[tail].y:=yy;
           a[tail].step:=a[head].step+1;
           u[xx,yy]:=true;
           map[xx,yy]:=min(a[tail].step,map[xx,yy]);
           inc(tail);
          end;
       end;
    end;
 begin
   readln(n,m,t1,t2);
   fillchar(u,sizeof(u),false);
   fillchar(map,sizeof(map),$7f);
   head:=0; tail:=1;
   for i:=1 to t1 do
    begin
      readln(x,y);
      map[x,y]:=0;
      u[x,y]:=true;
      a[tail].x:=x;
      a[tail].y:=y;
      a[tail].step:=0;
      inc(tail);
     end;
   bfs;
   for i:=1 to t2 do
    begin
      readln(x,y);
      writeln(map[x,y]);
     end;
  end.