求最长上升子序列长度的NlogN算法的Pascal代码
答案:2 悬赏:60 手机版
解决时间 2021-10-15 04:21
- 提问者网友：疯子也有疯子的情调
- 2021-10-15 00:18
最好是完整版的……
最佳答案
- 五星知识达人网友：毛毛
- 2020-09-25 05:28
var f,a:array[0..5000] of integer;
n,i,mid,l,r,ans:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
ans:=0;
for i:=1 to n do
begin
l:=1;
r:=ans;
while l<=r do
begin
mid:=(l+r) shr 1;
if f[mid]ans then ans:=l;
end;
writeln(ans);
end.
n,i,mid,l,r,ans:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
ans:=0;
for i:=1 to n do
begin
l:=1;
r:=ans;
while l<=r do
begin
mid:=(l+r) shr 1;
if f[mid]ans then ans:=l;
end;
writeln(ans);
end.
全部回答
- 1楼网友：七十二街
- 2020-03-29 09:01
搜一下：求最长上升子序列长度的N log N算法的Pascal代码
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯