作业帮滑雪pascalDescriptionMichael喜欢滑雪百这并不奇怪,因为滑雪的确很刺激.可是为了获得速度,滑的区域必须向下倾斜,而且当你滑到坡底,你不得不再次走上坡或者等待升降机来载你.Michael想知道在一
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 09:42:37
滑雪pascalDescriptionMichael喜欢滑雪百这并不奇怪,因为滑雪的确很刺激.可是为了获得速度,滑的区域必须向下倾斜,而且当你滑到坡底,你不得不再次走上坡或者等待升降机来载你.Michael想知道在一
滑雪pascal
Description
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
滑雪pascalDescriptionMichael喜欢滑雪百这并不奇怪,因为滑雪的确很刺激.可是为了获得速度,滑的区域必须向下倾斜,而且当你滑到坡底,你不得不再次走上坡或者等待升降机来载你.Michael想知道在一
//记忆化搜索
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 (ir) and (data[i+1,j]