tyvj滑雪喜欢滑雪.他来到了一个滑雪场,这个滑雪场是一个矩形,为了简便,我们用r行c列的矩阵来表示每块地形.为了得到更快的速度,滑行的路线必须向下倾斜.例如样例中的那个矩形,可以

Question

tyvj 滑雪
喜欢滑雪.他来到了一个滑雪场,这个滑雪场是一个矩形,为了简便,我们用r行c列的矩阵来表示每块地形.为了得到更快的速度,滑行的路线必须向下倾斜.
　　例如样例中的那个矩形,可以从某个点滑向上下左右四个相邻的点之一.例如24-17-16-1,其实25-24-23…3-2-1更长,事实上这是最长的一条.
输入文件
第1行:两个数字r,c(1

Answer 1

记忆化搜索...
program huaxue;
const w:array[1..4,1..2]of integer=((1,0),(0,1),(-1,0),(0,-1));
var a,j,f:array[0..101,0..101]of longint;
m,n,t,k,max:longint;
function pp(x,y:longint):longint;
var t,k:longint;
begin
pp:=0;
if (f[x,y]>0)or(xn) then pp:=j[x,y]
else
begin
pp:=1;
for t:=1 to 4 do
if (a[x,y]>a[x+w[t,1],y+w[t,2]])and(ppmax then max:=pp;
j[x,y]:=pp;
f[x,y]:=1;
end;
begin
readln(m,n);
for t:=1 to m do
begin
for k:=1 to n do
read(a[t,k]);
readln;
end;
for t:=1 to m do
for k:=1 to n do
j[t,k]:=pp(t,k);
writeln(max);
end.