拯救oibh总部

题目描述 Description
  OIBH被突来的洪水淹没了>.<还好OIBH总部有在某些重要的地方起一些围墙，用*号表示，而一个封闭的*号区域洪水是进不去的……现在给出OIBH的围墙建设图，问OIBH总部没被淹到的重要区域（由"0"表示）有多少。


输入：
第一行是两个数，x和y（x,y<=500）
第二行及以下是一个由*和0组成的x*y的图。


输出：
没被水淹没的OIBH总部的“0”的数量。
样例输入 Sample Input
  样例输入1
4 5
00000
00*00
0*0*0
00*00


样例输入2
5 5
*****
*000*
*****
*0*0*
*****
样例输出 Sample Output
 样例输出1
1
样例说明：只有中间一个被'*'包围的没有被淹没


样例输出2
5

文件输入输出设置
 
各个测试点限时1s

对于100%的数据n,m<=500

简单回溯，或者爆搜

提供2种代码：

1，使用爆搜，a[i,j]表示当前这个点，1为围墙，2为空地，0代表已被水淹没了。

代码如下：

var
   n,m,i,j,ans,k:longint;
   s:ansistring;
   a:array[0..501,0..501] of longint;
begin
  readln(n,m);
  for i:=1 to n do
    begin
      readln(s);
      for j:=1 to m do
      begin
        if s[j]='0' then a[i,j]:=2;
        if s[j]='*' then a[i,j]:=1;
      end;
    end;
  for i:=1 to n do
  begin
    for j:=1 to m do
    if a[i,j]=2 then a[i,j]:=0 else if a[i,j]=1 then break;
    for j:=m downto 1 do
    if a[i,j]=2 then a[i,j]:=0 else if a[i,j]=1 then break;
  end;
  for i:=1 to m do
  begin
    for j:=1 to n do
    if a[j,i]=2 then a[j,i]:=0 else if a[j,i]=1 then break;
    for j:=n downto 1 do
    if a[j,i]=2 then a[j,i]:=0 else if a[j,i]=1 then break;
  end;
  ans:=0;
  for k:=1 to n do
  for i:=1 to n do
    for j:=1 to m do
    if a[i,j]=0 then
    begin
      if a[i-1,j]<>1 then a[i-1,j]:=0;
      if a[i+1,j]<>1 then a[i+1,j]:=0;
      if a[i,j-1]<>1 then a[i,j-1]:=0;
      if a[i,j+1]<>1 then a[i,j+1]:=0;
    end;
  for i:=1 to n do
    for j:=1 to m do if a[i,j]=2 then inc(ans);
  writeln(ans);
end.

2，第二种就是传统的回溯啦，从一个点开始扩散。

代码如下：

var 

  m,n,i,j,ans:integer; ch:char;   s:longint;

  a:array[0..501,0..501]of integer;

procedure try(x,y:integer);
 begin
  if a[x,y]=0 then exit;
  a[x,y]:=0;
  try(x,y+1);
  try(x+1,y);
  try(x,y-1);
  try(x-1,y);
 end;
 begin
  readln(m,n);
  for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     read(ch);
     if ch='0' then a[i,j]:=1;
    end;
   readln;
  end;
  for i:=1 to m do begin try(i,1); try(i,n); end;
  for j:=1 to n do begin try(1,j); try(m,j); end;

ans:=0;
  for i:=2 to m-1 do
  for j:=2 to n-1 do
  if a[i,j]=1 then inc(ans);
  writeln(ans);
 end.