送给圣诞夜的极光－Pascal求解

来源：百度知道 编辑：UC知道 时间：2024/07/12 02:01:22
描述 Description
圣诞老人回到了北极圣诞区，已经快到12点了。也就是说极光表演要开始了。这里的极光不是极地特有的自然极光景象。而是圣诞老人主持的人造极光。
轰隆隆……烟花响起（来自中国的浏阳花炮之乡）。接下来就是极光表演了。
人造极光其实就是空中的一幅幅n*m的点阵图像。只是因为特别明亮而吸引了很多很多小精灵的目光，也成为了圣诞夜最美丽的一刻。
然而在每幅n*m的点阵图像中，每一个点只有发光和不发光两种状态。对于所有的发光的点，在空中就形成了美丽的图画。而这个图画是以若干个（s个）图案组成的。对于图案，圣诞老人有着严格的定义：对于两个发光的点，如果他们的曼哈顿距离（对于A(x1,y1)和B(x2,y2)，A和B之间的曼哈顿距离为|x1-x2|+|y1-y2|）小于等于2。那么这两个点就属于一个图案……
小精灵们一边欣赏着极光，一边数着每一幅极光图像中的图案数。伴着歌声和舞蹈，度过了美丽的圣诞之夜。^_^

输入格式 Input Format
第一行，两个数n和m。
接下来一共n行，每行m个字符。对于第i行第j个字符，如果其为“-”，那么表示该点不发光，如果其为“#”，那么表示该点发光。不可能出现其他的字符。

输出格式 Output Format
第一行，一个数s。

样例输入 Sample Input
19 48
------------------------------------------------
---####-----#-----#----------------------####---
--######----#-----#---------------------######--
-########--#-#---#-#####--#-##-##---#--########-
-###--###--#-#---#-#----#-##-##--#--#--###--###-
-###--###--#--#-#--######-#--#---#-#---###--

这是Vijos上的原题吧？
我的确做过这个题。
这是我的代码，在Vijos上AC的。
const
f:array[1..12,1..2]of -2..2=((1,0),(2,0),(1,-1),(0,-2),(0,-1),(-1,-1),(-2,0),(-1,0),(-1,1),(0,1),(0,2),(1,1));
var
map:array[-5..200,-5..200]of boolean;
i,j,m,n,tt:integer;
c:char;
procedure search(x,y:integer);
var
i:integer;
begin
for i:=1 to 12 do
if map[x+f[i,1],y+f[i,2]] then begin
map[x+f[i,1],y+f[i,2]]:=false;
search(x+f[i,1],y+f[i,2]);
end;
end;
begin
readln(n,m);
for i:=1 to n do begin
for j:=1 to m do begin
read(c);
if c='#' then map[i,j]:=true;
end;
readln;
end;
for i:=1 to n do
for j:=1 to m do
if map[i,j] then begin
map[i,j]:=false;
inc(tt);
search(i,j);
end;
writeln(tt);
end.
思路比较简单，只要仔细些就好了。
如果有不明白的地方给我发消息。

program p1051;
var n,m,i,j,s:longint;
c:char;