老是过不了...
还是15的悬赏...
program sking；
var a,f:array[0..200,0..200] of longint ；
q,w:array[0..10] of longint；
i,j,k,m,n,x,y,z,s,t:longint；
function max(a,b:longint):longint；
begin
max:=a；
if a< b then
max:=b；
end；
function find(x,y:longint):longint；
var i,j,k,l,z,s,t,m,n:longint；
begin
if f[x,y]>0 then exit(f[x,y])；
for i:= 1 to 4 do
if (a[x+q[i],y+w[i]]<a[x,y])and(x+q[i]>0)and(x+q[i]<=m)and(y+w[i]>0)and(y+w[i]<=n) then
begin
t:= find(x+q[i],y+w[i])+1；
f[x,y]:=max(f[x,y],t)；
end；
f[x,y]:=max(f[x,y],1)；
find:=f[x,y]；
end；
begin
read(m,n)；
for i:=1 to m do
for j:= 1 to n do
f[i,j]:=0；
for i:=1 to m do
for j:= 1 to n do
read(a[i,j])；
q[1]:=1；
q[2]:=0；
q[3]:=0；
q[4]:=-1；
w[1]:=0；
w[2]:=-1；
w[3]:=1；
w[4]:=0；
for i:=1 to m do
for j:= 1 to n do
f[i,j]:=find(i,j)；
for i:= 1 to m do
for j:=1 to n do
z:= max(z,f[i,j])；
write(z)；
end.
状态: Unaccepted
测评机： Xeost[5]
得分： 70分
提交日期： 2009-6-10 20:46:00
有效耗时： 625毫秒
测试结果1: 通过本测试点|有效耗时172ms
测试结果2: 测试结果错误.错误结果为:15
正确结果应为:25
测试结果3: 通过本测试点|有效耗时47ms
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 测试结果错误.错误结果为:2
正确结果应为:1
测试结果6: 通过本测试点|有效耗时62ms
测试结果7: 通过本测试点|有效耗时63ms
测试结果8: 通过本测试点|有效耗时62ms
测试结果9: 通过本测试点|有效耗时172ms
测试结果10: 测试结果错误.错误结果为:592
正确结果应为:9900