题解

303 条题解

  • 0
    @ 2008-10-02 11:37:32

    无语了·············

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案错误...程序输出比正确答案长

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

  • 0
    @ 2008-10-01 19:00:15

    减掉重复的..

  • 0
    @ 2008-09-30 16:32:30

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

    这题穷举可以得80分!!!!!!

  • 0
    @ 2009-10-12 11:57:15

    大家记住了 此题是从两头各 求一下最长递增序列 up【】和down【】 而不是从一边求最长递增序列 以及从该头开始的最长递减序列!!!!

  • 0
    @ 2008-09-22 21:17:03

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    一次

  • 0
    @ 2008-09-22 14:18:42

    WA了2次后终于AC!!!

    但被坐我旁边的某大牛BS了

    55555……

  • 0
    @ 2008-09-19 20:38:43

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 25ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:25ms

  • 0
    @ 2008-09-06 18:27:27

    很简单的dp应用!!!

  • 0
    @ 2008-09-06 14:03:49

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    有点无聊

  • 0
    @ 2008-09-04 13:51:29

    var

    i,zzy1,n,max,zzy,j,min,max1:integer;

    a,b,c,f,z:array[0..1000]of integer;

    begin

    readln(n);

    zzy1:=1;

    for i:=1 to n do

    read(a[i]);

    for zzy:=1 to n do

    begin

    max:=0;

    max1:=0;

    for i:=1 to zzy-1 do

    begin

    f[i]:=1;

    for j:=1 to i-1 do

    begin

    if (a[i]>a[j])and(f[j]+1>f[i])

    then begin f[i]:=f[j]+1; end;

    end;

    end;

    for i:=zzy to n do

    begin

    z[i]:=1;

    for j:=zzy to i-1 do

    begin

    if (a[i]z[i])

    then begin z[i]:=z[j]+1;end;

    end;

    end;

    for i:=1 to n do

    begin

    if z[i]>max1

    then max1:=z[i];

    if f[i]>max

    then max:=f[i];

    end;

    c[zzy]:=max1+max;

    end;

    min:=0;

    for i:=1 to n do

    if c[i]>min

    then min:=c[i];

    writeln(n-min);

    end.

  • 0
    @ 2008-09-04 13:26:58

    WA了两次,看错题目,原来是走了多少人

    不是留下多少人...-.-

  • 0
    @ 2008-09-03 20:55:34

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    一次AC

  • 0
    @ 2008-08-27 14:58:30

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    太爽了,终于将它ac掉了!

  • 0
    @ 2008-08-25 19:26:10

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    唉! 郁闷啊!

  • 0
    @ 2008-08-23 17:01:29

    大家帮我看看我的错哪儿了?..我是小菜...请大家指教......

    var a,b,c,d:array[1..1000]of longint;

    n,i,j,k,max:longint;

    begin

    readln(n);b[n]:=1;c[1]:=1;

    for i:=1 to n do read(a[i]);

    for i:=n downto 1 do

    begin

    max:=0;

    for j:=n downto i do

    begin

    if (a[i]>a[j])and (b[j]>max) then max:=b[j];

    end;

    b[i]:=max+1;

    end;

    for i:=1 to n do

    begin

    max:=0;

    for j:=1 to i do

    begin

    if (a[j]>a[j])and(c[j]>max) then max:=c[j];

    end;

    c[i]:=max+1;

    end;

    for i:=1 to n do

    begin

    d[i]:=b[i]+c[i];

    end;

    max:=0;

    for i:=1 to n do

    begin

    if d[i]>max then max:=d[i];

    end;

    writeln(n-max);

    end.

  • 0
    @ 2008-08-23 09:37:57

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    var n,i,j,k,l:integer;

    a,b:array[1..1000,1..3]of integer;

    begin

    readln(n);

    for i:=1 to n do

    begin read(a);b[n-i+1,1]:=a;a:=1;b[n-i+1,2]:=1;end;

    for i:=n-1 downto 1 do

    begin

    l:=0;k:=0;

    for j:=i+1 to n do

    begin

    if (a>a[j,1])and(a[j,2]>l)then l:=a[j,2];

    if (b>b[j,1])and(b[j,2]>k)then k:=b[j,2];

    end;

    if l>0 then a:=l+1;if k>0 then b:=k+1;

    end;k:=0;

    for i:=1 to n do begin a:=a+b[n-i+1,2]-1;

    if a>k then k:=a;

    end;

    writeln(n-k);

    end.

    多得大牛帮助。AC了~

  • 0
    @ 2008-08-19 18:33:03

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

  • 0
    @ 2008-08-05 23:56:48

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    两个LIS

  • 0
    @ 2008-07-18 10:12:15

    用C++很麻烦吗?

  • 0
    @ 2008-07-17 19:08:04

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    经典问题!!

信息

ID
1098
难度
5
分类
动态规划 | LIS 点击显示
标签
递交数
12819
已通过
4882
通过率
38%
被复制
20
上传者