http://noi.openjudge.cn/ch0205/1388/
我的程序就是不对！！！
const
dy:array[1..5] of longint=(-1,-1,0,1,1);
dx:array[1..5] of longint=(0,1,1,1,0);
var
a:array[-1..120,-1..120] of char;
ch:char;
i,j,n,m,sum:longint;
procedure search(x,y:longint;from:boolean);
var i,tx,ty:longint;
begin
if a[x,y]='.' then exit
else
if not from then inc(sum);
from:=true;
for i:=1 to 5 do
begin
tx:=x+dx[i];
ty:=y+dy[i];
search(tx,ty,from);
end;
end;
begin
fillchar(a,sizeof(a),'.');
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
readln;
end;
sum:=0;
for i:=1 to n do
for j:=1 to m do
search(i,j,false);
writeln(sum);
end.

好傻呀

睡得一塌糊涂！

noi登不进去。
(颠覆三观)

请翻译-十五字多么正好呵呵呵呵呵