JSOI2008 海战训练

JSOI2008 海战训练

【题目描述】

为了准备高层峰会，元首命令武装部队必须处于高度戒备。警察将监视每一条大街，军队将保卫建筑物，领空将布满了JS-2008飞机。此外，巡洋船只和舰队将被派去保护海岸线。但不幸的是因为种种原因，海军部仅有很少的几位军官能指挥大型海战。因此，他们考虑培养一些新的海军指挥官，为此选择了“海战”这一游戏来帮助训练。在这个著名的游戏中，一个方形的盘上放置了固定数量和形状的船只，每只船却不能碰到其它的船。在这个题中，我们仅考虑船是方形的，所有的船只都是由图形组成的方形。编写程序求出该棋盘上放置的船只的总数。

【输入文件】

输入文件头一行由用空格隔开的两个整数R和C组成，1<=R,C<=1000，这两个数分别表示游戏棋盘的行数和列数。接下来的R行每行包含C个字符，每个字符可以为“#”，也可为“.”，“#”表示船只的一部分，“.”表示水。 

【输出文件】

为每一个段落输出一行解。如果船的位置放得正确（即棋盘上只存在相互之间不能接触的方形，如果两个“#”号上下相邻或左右相邻却分属两艘不同的船只，则称这两艘船相互接触了）。就输出一段话“There are S ships.”,S表示船只的数量。否则输出“Bad placement.”。

【输入样例】

6 8

.....#.#

##.....#

##.....#

.......#

#......#

#..#...#

【输出样例】

There are 5 ships.

 

【题目分析】

最近总在做水题……这个也算比较水了吧

用floodfill当然可以，不过出于个人习惯还是写了个并查集来记录联通块，然后记录每个联通块最小和最大的横纵坐标minx，maxx，miny，maxy，对每个联通块扫一遍看里面有木有“.”，有就无解，没有就输出联通块的个数。

 

【代码实现】

program tyvj1813;
var a:array[0..1001,0..1001]of char;
    f:array[0..1000000]of longint;
    b:array[0..1001,0..1001]of longint;
    v:array[0..1000000]of boolean;
    m,n,i,j,k:longint;
    minx,miny,maxx,maxy:array[0..1000000]of longint;
function pd(x1,y1,x2,y2:longint):boolean;
var i,j:longint;
begin
    for i:=x1 to x2 do
      for j:=y1 to y2 do
        if a[i,j]<>'#' then exit(false);
    exit(true);
end;
function find(x:longint):longint;
begin
    if f[x]<>x then f[x]:=find(f[x]);
    exit(f[x]);
end;
procedure merge(x,y:longint);
begin
    x:=find(x);y:=find(y);
    if x<>y then
    begin
        f[x]:=y;
        v[x]:=false;
    end;
end;
function min(a,b:longint):longint;
begin
    if a<b then exit(a)
    else exit(b);
end;
function max(a,b:longint):longint;
begin
    if a>b then exit(a)
    else exit(b);
end;
begin
    readln(m,n);
    for i:=1 to m do
      for j:=1 to n do
      begin
          inc(k);
          b[i,j]:=k;
      end;
    for i:=1 to 1000000 do f[i]:=i;
    for i:=1 to m do
    begin
        for j:=1 to n do
        begin
            read(a[i,j]);
            if a[i,j]='.' then continue;
            v[b[i,j]]:=true;
            if a[i-1,j]='#' then merge(b[i,j],b[i-1,j]);
            if a[i,j-1]='#' then merge(b[i,j],b[i,j-1]);
        end;
        readln;
    end;
    fillchar(minx,sizeof(minx),63);
    fillchar(miny,sizeof(miny),63);
    fillchar(maxx,sizeof(maxx),255);
    fillchar(maxy,sizeof(maxy),255);
    for i:=1 to m do
      for j:=1 to n do
      begin
          if a[i,j]<>'#' then continue;
          k:=find(b[i,j]);
          minx[k]:=min(minx[k],i);
          miny[k]:=min(miny[k],j);
          maxx[k]:=max(maxx[k],i);
          maxy[k]:=max(maxy[k],j);
      end;
    k:=0;
    for i:=1 to 1000000 do
    begin
        if not v[i] then continue;
        if not pd(minx[i],miny[i],maxx[i],maxy[i]) then
        begin
            writeln('Bad placement.');
            halt;
        end;
        inc(k);
    end;
    writeln('There are ',k,' ships.');
end.