搜搜考试网PASCAL问题 Tyvj上的滑雪题目 我写的程序有点问题 求查错 不求标程
来源：学生作业帮 编辑：搜搜考试网作业帮 分类：综合作业 时间：2024/06/06 12:48:28
PASCAL问题 Tyvj上的滑雪题目 我写的程序有点问题 求查错 不求标程
这个是我的程序 用的是DFS 每到一个点就找出那个点能引申出的序列长度
虽然时间上肯定不够 但是为什么答案会错呢?样例输出的是 242
求查错
var
i,j,r,c,max,num:longint;
h:array[0..101,0..101]of longint;
procedure work(a,b:longint);
var high:longint;
begin
high:=h[a,b];
if (h[a+1,b]>=high)and(h[a-1,b]>=high)and(h[a,b+1]>=high)and(h[a,b-1]>=high) then
begin
if num>max then max:=num;
exit;
end;
inc(num);
if h[a+1,b]
这个是我的程序 用的是DFS 每到一个点就找出那个点能引申出的序列长度
虽然时间上肯定不够 但是为什么答案会错呢?样例输出的是 242
求查错
var
i,j,r,c,max,num:longint;
h:array[0..101,0..101]of longint;
procedure work(a,b:longint);
var high:longint;
begin
high:=h[a,b];
if (h[a+1,b]>=high)and(h[a-1,b]>=high)and(h[a,b+1]>=high)and(h[a,b-1]>=high) then
begin
if num>max then max:=num;
exit;
end;
inc(num);
if h[a+1,b]
num为全局变量,在procedure work 结尾要还原（-1）,不单单是在主程序还原（清零）
再不行看看是不是高度相等也能滑
超时的问题加个记忆化搜索或用BFS、DP
再不行看看是不是高度相等也能滑
超时的问题加个记忆化搜索或用BFS、DP