PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1033
发信站: 哈工大紫丁香 (2002年03月19日18:12:08 星期二)
来  源: mtlab4.hit.edu.cn 

167704 10:14:39 19 Mar 2002
Bozhang,HIT,P.R.China 1033 Pascal Accepted 0.02 sec 57K

const p:array[1..4,1..2] of integer=((1,0),(-1,0),(0,1),(0,-1));
var
    a:array[0..34,0..34] of char;
    i,j,k,sum,n:integer;
procedure floodfill(x,y:integer);
var
    i:integer;
begin
    for i:=1 to 4 do if a[x+p[i,1],y+p[i,2]]='.' then begin
        a[x+p[i,1],y+p[i,2]]:='*';
        floodfill(x+p[i,1],y+p[i,2]);
    end;
end;
begin
    readln(n);
    fillchar(a,sizeof(a),ord('#'));
    for i:=1 to n do begin
        for j:=1 to n do read(a[i,j]);
        readln;
    end;
    a[0,0]:=' ';    a[0,1]:=' ';    a[1,0]:=' '; a[1,1]:='*';
    a[n+1,n+1]:=' ';    a[n,n+1]:=' ';    a[n+1,n]:=' ';
    a[n,n]:='*';
    floodfill(1,1); floodfill(n,n);
    sum:=0;
    for i:=1 to n do
        for j:=1 to n do if a[i,j]='*' then
            for k:=1 to 4 do if a[i+p[k,1],j+p[k,2]]='#' then inc(sum);
    writeln(sum*9);
end.

--
撷取生活中每一朵清新的浪花,智慧的浪花 ..汇成音乐的海洋.

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]