Tyvj P1813 [JSOI2008]海战训练

P1813 [JSOI2008]海战训练

时间: 1000ms / 空间: 131072KiB / Java类名: Main

描述

为了准备高层峰会，元首命令武装部队必须处于高度戒备。警察将监视每一条大街，军队将保卫建筑物，领空将布满了JS-2008飞机。此外，巡洋船只和舰队将被派去保护海岸线。

但不幸的是因为种种原因，海军部仅有很少的几位军官能指挥大型海战。因此，他们考虑培养一些新的海军指挥官，为此选择了“海战”这一游戏来帮助训练。

在这个著名的游戏中，一个方形的盘上放置了固定数量和形状的船只，每只船却不能碰到其它的船。在这个题中，我们仅考虑船是方形的，所有的船只都是由图形组成的方形。编写程序求出该棋盘上放置的船只的总数。

输入格式

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

输出格式

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

测试样例1

输入

6 8 
.....#.# 
##.....# 
##.....# 
.......# 
#......# 
#..#...#

输出

There are 5 ships.

备注

JSOI2008江苏省青少年信息学奥林匹克代表队组队选拔赛第二轮试题

 

题解：昨天刚刚学的悬线法求矩形居然今天就用到了——这个题里面需要求出每个点的左侧、右侧、上方、下方各有多少个“1”点（本程序中包含自己），然后接下来的任务就是判断矩形，我的做法如下——在表格中枚举每个左侧、上方均为0但是自身为1的点（一般也就是矩形的左上角），然后从此点一直向下，检测此点的左侧是否一直只有自己1个点，右侧宽度是否一直一致；然后从此点再向右扫，看上方是否一直只有自己1个点，下方高度是否保持一致。假如出现问题则说明出现了黏在一起的多个矩形，则Bad placement.（HansBug：则OrzPhile嘿嘿嘿。。。 Phile：TT）；假如一切正常则正方形数+1，然后继续。。。（特别提醒：输出时别忘了格式是There are X ships.）

 

 var
    i,j,k,l,m,n,tt:longint;
    a,b,dow,up,lef,rig:array[..,..] of longint;
    c1:char;
 procedure OrzPhile;
           begin
                writeln('Bad placement.');
                halt;
           end;
 begin
      readln(n,m);
      for i:= to n do
          begin
               for j:= to m do
                   begin
                        read(c1);
                        case c1 of
                             '.':a[i,j]:=;
                             else a[i,j]:=;
                        end;
                   end;
               readln;
          end;
      fillchar(b,sizeof(b),);
      fillchar(dow,sizeof(dow),);
      fillchar(rig,sizeof(rig),);
      fillchar(lef,sizeof(lef),);
      for i:= to n do
          for j:= to m do
              begin
                   if a[i,j]= then lef[i,j]:=lef[i,j-]+ else lef[i,j]:=;
                   if a[i,j]= then up[i,j]:=up[i-,j]+ else up[i,j]:=;
              end;
      for i:=n downto  do
          for j:=m downto  do
              begin
                   if a[i,j]= then rig[i,j]:=rig[i,j+]+ else rig[i,j]:=;
                   if a[i,j]= then dow[i,j]:=dow[i+,j]+ else dow[i,j]:=;
              end;
      tt:=;
      for i:= to n do
          for j:= to m do
              if (a[i,j]=) and (a[i-,j]=) and (a[i,j-]=) then
                 begin
                      for k:= to dow[i,j] do
                          begin
                               if lef[i+k-,j]> then OrzPhile;
                               if rig[i+k-,j]<>rig[i,j] then OrzPhile;
                          end;
                      for k:= to rig[i,j] do
                          begin
                               if up[i,j+k-]> then OrzPhile;
                               if dow[i,j+k-]<>dow[i,j] then OrzPhile;
                          end;
                      inc(tt);
                 end;
      writeln('There are ',tt,' ships.');
 end.