问题 C: 求最长上升序列

题目描述

      设有由n个不相同的整数组成的数列,记为:b(1)、b(2)、……、b(n)且b(i)<>b(j)  (i<>j),若存在i1<i2<i3< … < ie 且有b(i1)<b(i2)< … <b(ie)则称为长度为e的不下降序列。程序要求,当原数列出之后,求出最长的不下降序列。
       例如13,7,9,16,38,24,37,18,44,19,21,22,63,15。例中13,16,18,19,21,22,63就是一个长度为7的不下降序列,同时也有7 ,9,16,18,19,21,22,63长度为8的不下降序列。

输入

只有一行,为若干正整数(最多1000个数)

输出

为两行,第一行为最上升序列的长度。

第二行为该序列

样例输入

13 7 9 16 38 24 37 18 44 19 21 22 63 15

样例输出

max=8 7 9 16 18 19 21 22 63
var i,m,j,sum,x:longint;b,f,t,a:array[1..10000]of longint;
    h:array[1..2]of integer;
begin
//assign(input,'input.txt');
//assign(output,'output.txt');
//reset(input);
//rewrite(output);
m:=0;
while not eof do
begin
 m:=m+1;
 read(b[m]);
 f[m]:=1;
end;
  {for i:=1 to m do
    begin f[i]:=1; t[i]:=1; end;}
  for i:=m-1 downto 1 do
   for j:=i+1 to m do
    if (b[i]<b[j]) and (f[i]<f[j]+1) then
    begin
    f[i]:=f[j]+1;
    a[i]:=j;
    end;
    h[1]:=0;
   for i:=1 to m do
    if f[i]>h[1] then
     begin
      h[1]:=f[i];
      h[2]:=i;
     end;
  {for i:=m-1 downto 1 do
   begin
        sum:=0;
        for j:=i+1 to m do
           if (b[i]<=b[j]) and (f[i]=f[j]+1) then sum:=sum+t[j];
        if sum>t[i] then t[i]:=sum;
   end;
  ans:=0; sum:=0;
  for i:=1 to m do
    if f[i]>ans then ans:=f[i];
  for i:=1 to m do
    if f[i]=ans then sum:=sum+t[i]; }
  writeln('max=',h[1]);x:=b[h[2]];
  for i:=1 to h[1] do
   begin
    write(x,' ');
    x:=b[a[h[2]]];
    h[2]:=a[h[2]];
    end;
  //close(input);
  //close(output);
end.
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826685
个人分类: 编程
上一篇最后一题
下一篇问题 D: 合唱队形
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭