搜搜做题作业网求一道free pascal题目的源代码
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/07/02 19:53:18
求一道free pascal题目的源代码
描述 Description
trs喜欢滑雪.他来到了一个滑雪场,这个滑雪场是一个矩形,为了简便,我们用r行c列的矩阵来表示每块地形.为了得到更快的速度,滑行的路线必须向下倾斜.
例如样例中的那个矩形,可以从某个点滑向上下左右四个相邻的点之一.例如24-17-16-1,其实25-24-23…3-2-1更长,事实上这是最长的一条.
输入格式 Input Format
输入文件
第1行: 两个数字r,c(1
描述 Description
trs喜欢滑雪.他来到了一个滑雪场,这个滑雪场是一个矩形,为了简便,我们用r行c列的矩阵来表示每块地形.为了得到更快的速度,滑行的路线必须向下倾斜.
例如样例中的那个矩形,可以从某个点滑向上下左右四个相邻的点之一.例如24-17-16-1,其实25-24-23…3-2-1更长,事实上这是最长的一条.
输入格式 Input Format
输入文件
第1行: 两个数字r,c(1
DP
program phx;
var i,j,temp,n,m,max1:longint;
data,f:array [1..100,1..100] of longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a)
else exit(b);
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 (in) and (data[i+1,j]
program phx;
var i,j,temp,n,m,max1:longint;
data,f:array [1..100,1..100] of longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a)
else exit(b);
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 (in) and (data[i+1,j]