最长不上升（下降）子序列——拦截导弹

最新推荐文章于 2023-10-21 15:04:19 发布

XiaoMing_HEHE

最新推荐文章于 2023-10-21 15:04:19 发布

阅读量394

点赞数

分类专栏：动态规划文章标签：动态规划 pascal

本文链接：https://blog.csdn.net/XiaoMing_HEHE/article/details/48947221

版权

动态规划专栏收录该内容

0 篇文章 0 订阅

订阅专栏

pascal:

呵呵了。。。醉了。。。

很水。。。

就是求最长不上升子序列和最长不下降子序列。。。

procedure main;
var .............
begin
  fillchar(a,sizeof(a),0);
  ans:=0; {最长单调序列的长}
  readln(n);
  for s:=1 to n do begin
      read(x);
      l:=1; r:=ans; {左、右范围}
    whlie l<=r do begin {二分}
        m:=(l+r) shr 1;
        if a[m]<=x then l:=m+1 else r:=m-1;
    end;
    if l>ans then inc(ans); {新建，即长度为ans+1的最长单调序列出现了！}
    a[l]:=x;
  end;
end;