题解

163 条题解

  • 0
    @ 2009-10-21 18:07:45

    {

    ID:p.tiany1

    PROG:1445

    LANG:PASCAL

    }

    program p1445;

    type

    arr=record

    he,t:longint;

    end;

    var

    a:array[0..100000] of arr;

    b,c:array[0..100000] of longint;

    n,m:longint;

    procedure qsort1(s,l:longint);

    var

    i,j,x:longint;

    begin

    i:=s;j:=l;x:=b[(i+j) div 2];

    repeat

    while b[i]x do dec(j);

    if ij;

    if j>s then qsort1(s,j);

    if ix do inc(i);

    while a[j].hes then qsort(s,j);

    if i0 do

    begin

    j:=0;

    while j

  • 0
    @ 2009-10-17 13:37:27

    无比困惑:flush可是标准IO库操作啊,居然给我来个非法字符……和system一样

    #include

    using namespace std;

    void BubbleSort(int *pData,int Count)

    {

    int iTemp;

    for(int i(0);i=i;j--){

    if(pData[j]>n>>m;

    const size_t size(1000);

    int app={},tt={},sum={};

    size_t iapp(n),itt(m);

    for(int ia(0);ia!=n;++ia){

    int num_a(0);

    cin>>num_a;

    app[ia]=num_a;

    }

    BubbleSort(app,n);

    for(int it(0);it!=m;++it){

    int num_t(0);

    cin>>num_t;

    tt[it]=num_t;

    }

    BubbleSort(tt,m);

    //为sum循环赋值,此处还当斟酌

    for(int is(n-1);is>=0;){

    int is_t(is);

    for(int is2(m-1);is2>=0&&is_t>=0;--is2){

    sum[is2]+=app[is_t];

    --is_t;

    }

    is-=m;

    }

    for(int index(0);index!=m;++index){

    cout

  • 0
    @ 2009-10-15 13:04:04

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

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

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

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

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

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

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

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

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

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

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

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

    快排

  • 0
    @ 2009-10-11 10:09:00

    qsort*2

  • 0
    @ 2009-10-06 16:06:05

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    赤裸裸的快排,暴力模拟……

  • 0
    @ 2009-10-03 18:15:11

    郁闷!数组开小了!看错数据范围了!!!好囧!!!!!

    准备参加noip的朋友们一定要审题仔细哟!但也不要开大了哟!

    呵呵!

  • 0
    @ 2009-09-19 23:04:41

    用俩快排 过

  • 0
    @ 2009-09-15 00:23:32

    呃....郁闷,数组忘记要开到0了...于是很郁闷的uc了...呃,我的ac率.....

    www.2008dream.cn.vc我的博客,欢迎大家光临!!

  • 0
    @ 2009-09-12 08:12:45

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    ___|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|__

    AC,好爽啊,一次AC,又搞定了一条傻X题了...

    var n,m,k,j,i:longint;

    t:int64;

    apple,taotao,a,c:array [1..100000] of int64;

    procedure kp(l,r:longint);

    var i,j,x,t:longint;

    begin

    i:=l;j:=r;x:=apple[(l+r) div 2];

    repeat

    while apple[i]>x do inc(i);

    while x>apple[j] do dec(j);

    if ij;

    if itaotao[j] do dec(j);

    if ij;

    if i

  • 0
    @ 2009-09-08 13:34:07

    program p1445;

    var a,b,c:array[1..100000] of int64;

       e:array[1..100000] of longint;

       i,j,k,l,m,n,r:longint;

    procedure qsort1(x,y:longint);

    var s,l,r:longint;

       g,t:int64;

    begin

    t:=b[(x+y) div 2];l:=x;r:=y;

    repeat

      while b[l]>t do inc(l);

      while b[r]

  • 0
    @ 2009-09-04 16:12:44

    经鉴定,此题密度近似于1

  • 0
    @ 2009-09-04 10:21:16

    program p1445;

    var a,b,c:array[1..100000] of int64;

    e:array[1..100000] of longint;

    i,j,k,l,m,n,r:longint;

    procedure qsort1(x,y:longint);

    var s,l,r:longint;

    g,t:int64;

    begin

    t:=b[(x+y) div 2];l:=x;r:=y;

    repeat

    while b[l]>t do inc(l);

    while b[r]

  • 0
    @ 2009-08-20 18:24:18

    So...............I'm a foolish man...............

    const maxn=110000;

    var tt,p,ap,a,ans:array[1..maxn]of longint;

    i,j,k,t,n,m:longint;

    procedure qsorttt(s,t:longint);

    var i,j,x,px:longint;

    begin

    i:=s;j:=t;x:=a[i];px:=p[i];

    while ii)do inc(i);

    if ii)do dec(j);

    if i

  • 0
    @ 2009-08-10 13:00:16



    三星了。。。

    开始弄的从大到小排序。。。WA了。。。。

  • 0
    @ 2009-08-07 12:28:36

    var

    n,m,i,j:longint;

    num,a,w,b:array[1..100000] of longint;

    procedure qs1(l,r:longint);

    var

    i,j,x,y:longint;

    begin

    i:=l;j:=r;x:=w[(l+r) div 2];

    repeat

    while w[i]>x do inc(i);

    while w[j]

  • 0
    @ 2009-08-04 17:05:55

    狂晕,前驱函数写反了...WA了4次!!

  • 0
    @ 2009-07-30 22:43:52

    60!!!

    与楼上同庆!!!!

  • 0
    @ 2009-07-30 16:05:40

    120题,庆祝下!

    两个快排+计数

  • 0
    @ 2009-07-29 22:27:19

    Program P1445;

    type ay=array[0..100000] of longint;

    var a,b,c,num:ay;

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

    procedure qsort1(t,s:longint);

    var i,j,mid,temp:longint;

    begin

    i:=t; j:=s; mid:=a[(i+j) div 2];

    repeat

    while a[i]mid do dec(j);

    if ij;

    if i

  • 0
    @ 2009-07-28 16:56:24

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    一样的程序第二次…………

    无语了……

信息

ID
1445
难度
5
分类
模拟 点击显示
标签
递交数
2844
已通过
879
通过率
31%
被复制
6
上传者