UC知道滑雪pascal
来源：百度知道 编辑：UC知道 时间：2024/09/21 13:44:01
Michael喜欢滑雪百这并不奇怪， 因为滑雪的确很刺激。可是为了获得速度，滑的区域必须向下倾斜，而且当你滑到坡底，你不得不再次走上坡或者等待升降机来载你。Michael想知道在一个区域中最长的滑坡。区域由一个二维数组给出。数组的每个数字代表点的高度。下面是一个例子
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9
一个人可以从某个点滑向上下左右相邻四个点之一，当且仅当高度减小。在上面的例子中，一条可滑行的滑坡为24-17-16-1。当然25-24-23-...-3-2-1更长。事实上，这是最长的一条。
Input
输入的第一行表示区域的行数R和列数C(1<=R,C<=100)。下面是R行，每行有C个整数，代表高度h，0<=h<=10000。
Output
输出最长区域的长度。
Sample Input
5 5
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9
Sample Output
25
//记忆化搜索
const maxn=500;
var
i,j,temp,r,c,ans:longint;
data,f:array[1..maxn,1..maxn] of longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a);
exit(b);
end;
procedure init;
begin
readln(r,c);
for i:=1 to r do
for j:=1 to c do
begin
read(data[i,j]);
f[i,j]:=maxlongint;
end;
end;
function dp(i,j:longint):longint;
var
l1,l2,l3,l4:longint;
begin
if f[i,j]<>maxlongint
then exit(f[i,j]);
l1:=1;l2:=1;l3:=1;l4:=1;
if (i<>r) and (data[i+1,j]<data[i,j])
then l1:=l1+dp(i+1,j);
if (j<>c) and (data[i,j+1]<data[i,j])
then l2:=l2+dp(i,j+1);
if (i<>1) and (data[i-1,j]<data[i,j])
then l3:=l3+dp(i-1,j);
if (j<>1) and (data[