pascal vijos 圣诞夜的极光

来源：百度知道 编辑：UC知道 时间：2024/05/24 12:30:03
人造极光其实就是空中的一幅幅n*m的点阵图像。只是因为特别明亮而吸引了很多很多小精灵的目光，也成为了圣诞夜最美丽的一刻。
然而在每幅n*m的点阵图像中，每一个点只有发光和不发光两种状态。对于所有的发光的点，在空中就形成了美丽的图画。而这个图画是以若干个（s个）图案组成的。对于图案，圣诞老人有着严格的定义：对于两个发光的点，如果他们的曼哈顿距离（对于A(x1,y1)和B(x2,y2)，A和B之间的曼哈顿距离为|x1-x2|+|y1-y2|）小于等于2。那么这两个点就属于一个图案……
输入格式 Input Format
第一行，两个数n<=100和m<=100。
接下来一共n行，每行m个字符。对于第i行第j个字符，如果其为“-”，那么表示该点不发光，如果其为“#”，那么表示该点发光。不可能出现其他的字符。
我要的是修改 修改 不要给我随便copy或者拿你们已经AC的。。 改的好有追加

program ex;
var a,b,i,j,s:integer;
f:array[1.. 100,1.. 100]of char;
t:array[1.. 100,1.. 100]of boolean;

procedure js;
begin
for i:=1 to a do
for j:=1 to b do
if t[i,j] then exit;
end;

function mhd(i,j:integer):longint;
begin
if (t[i+2,j]=false)and(t[i+1,j]=false)and
(t[i-2,j]=false)and
(t[i-1,j]=false)and
(t[i+1,j+1]=false)and
(t[i+1,j-1]=false)and
(t[i-1,j+1]=false)and
(t[i-1,j-1]=false)and
(t[i,j+2]=false)and
(t[i,j+1]=false)and<

你的程序有点长
|program P1051;
| var
| n,m,i,j,s:smallint;
| G:array[-1..102,-1..102]of char;
| procedure Search(x,y:smallint);
| begin
| G[x,y]:='-';
| if G[x+2,y]='#' then Search(x+2,y);
| if G[x+1,y]='#' then Search(x+1,y);
| if G[x-1,y]='#' then Search(x-1,y);
| if G[x-2,y]='#' then Search(x-2,y);
| if G[x,y+2]='#' then Search(x,y+2);
| if G[x,y+1]='#' then Search(x,y+1);
| if G[x,y-1]='#' then Search(x,y-1);
| if G[x,y-2]='#' then Search(x,y-2);
| if G[x-1,y-1]='#' then Search(x-1,y-1);
| if G[x+1,y+1]='#' then Search(x+1,y+1);
| if G[x-1,y+1]='#' then Search(x-1,y+1);
| if G[x+1,y-1]='#' then Search(x+1,y-1);
| end;
| begin
| fillchar(G,sizeof(G),'-');
| readln(n,m);
| for i:=1 to n do
| begin
| for j:=1 to m do
|