滑雪pascalDescriptionMichael喜欢滑雪百这并不奇怪,因为滑雪的确很刺激.可是为了获得速度,滑的区域必须向下倾斜,而且当你滑到坡底,你不得不再次走上坡或者等待升降机来载你.Michael想知道在一
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 07:24:27
![滑雪pascalDescriptionMichael喜欢滑雪百这并不奇怪,因为滑雪的确很刺激.可是为了获得速度,滑的区域必须向下倾斜,而且当你滑到坡底,你不得不再次走上坡或者等待升降机来载你.Michael想知道在一](/uploads/image/z/14276668-4-8.jpg?t=%E6%BB%91%E9%9B%AApascalDescriptionMichael%E5%96%9C%E6%AC%A2%E6%BB%91%E9%9B%AA%E7%99%BE%E8%BF%99%E5%B9%B6%E4%B8%8D%E5%A5%87%E6%80%AA%2C%E5%9B%A0%E4%B8%BA%E6%BB%91%E9%9B%AA%E7%9A%84%E7%A1%AE%E5%BE%88%E5%88%BA%E6%BF%80.%E5%8F%AF%E6%98%AF%E4%B8%BA%E4%BA%86%E8%8E%B7%E5%BE%97%E9%80%9F%E5%BA%A6%2C%E6%BB%91%E7%9A%84%E5%8C%BA%E5%9F%9F%E5%BF%85%E9%A1%BB%E5%90%91%E4%B8%8B%E5%80%BE%E6%96%9C%2C%E8%80%8C%E4%B8%94%E5%BD%93%E4%BD%A0%E6%BB%91%E5%88%B0%E5%9D%A1%E5%BA%95%2C%E4%BD%A0%E4%B8%8D%E5%BE%97%E4%B8%8D%E5%86%8D%E6%AC%A1%E8%B5%B0%E4%B8%8A%E5%9D%A1%E6%88%96%E8%80%85%E7%AD%89%E5%BE%85%E5%8D%87%E9%99%8D%E6%9C%BA%E6%9D%A5%E8%BD%BD%E4%BD%A0.Michael%E6%83%B3%E7%9F%A5%E9%81%93%E5%9C%A8%E4%B8%80)
滑雪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]