题解

61 条题解

  • 0
    @ 2008-10-29 13:27:52

    procedure sort1(k:dword);

    begin

    b[k]:=a[j];

    inc(j);

    if 2*k > n then exit;

    sort1(2*k+1);

    sort1(2*k);

    eND;

    编译通过...

    ├ 测试数据 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-10-22 16:46:50

    procedure cross(number:dword);

    begin

    b[number]:=a[i];

    i:=i+1;

    if 2*number>n then exit;

    cross(2*number+1);

    cross(2*number)

    end;

    //主程序中

    i:=1;

    cross(1);

    //end.

    核心代码,楼下的用两个参数,实际不用吧。

  • 0
    @ 2008-10-22 15:10:06

    procedure work(x,k:longint);

    var mid:longint;

    begin

    inc(ans[k,0]);

    ans[k,ans[k,0]]:=a[x];

    if 1 shl k>n then exit;

    work(x+(n+1) div (1 shl k),k+1);

    work(x+1,k+1);

    end;

  • 0
    @ 2008-10-21 22:06:58

    话说花了一节课来输出,郁闷死了。

    procedure work(x,k:longint);var mid:longint;begin inc(ans[k,0]); ans[k,ans[k,0]]:=a[x]; if 1 shl k>n then exit; work(x+(n+1) div (1 shl k),k+1); work(x+1,k+1);end;高效位运算

  • 0
    @ 2008-10-21 20:49:26

    编译通过...

    ├ 测试数据 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-10-21 19:48:06

    不要想太复杂,先熟悉小跟堆的原理(虽然此题用不到小跟堆。。。),两子节点只须比父节点小就OK。

    先观察数列1 2 3 4 5 6 7(经排序)

    解是 1

    5 2

    7 6 4 3

    发现一个节点的右节点永远为该节点 的 后数一个

    设父节点位置为W 位于树的第H层(根为1层)

    左节点的位置为W+(N+1) DIV 2^H;

  • 0
    @ 2008-10-21 13:27:16

    递归很强大!!

    献上我的递归算法代码

    procedure chore(l,r,w:longint);

    var mid:longint;

    begin

    if r

  • 0
    @ 2008-10-20 21:09:13

    编译通过...

    ├ 测试数据 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-10-20 20:08:06

    编译通过...

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

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

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

    ├ 测试数据 04:运行超时...

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

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

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

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

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

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

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

    Unaccepted 有效得分:90 有效耗时:0ms

    编译通过...

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

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

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

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

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

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

    ├ 测试数据 07:运行超时...

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

    ├ 测试数据 09:运行超时...

    ├ 测试数据 10:运行超时...

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

    Unaccepted 有效得分:70 有效耗时:0ms

    编译通过...

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

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

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

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

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

    ├ 测试数据 06:运行超时|格式错误...

    ├ 测试数据 07:运行超时|格式错误...

    ├ 测试数据 08:运行超时|无输出...

    ├ 测试数据 09:运行超时|格式错误...

    ├ 测试数据 10:运行超时...

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

    Unaccepted 有效得分:50 有效耗时:0ms

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    同样的程序.我的无比艰辛的AC历程. 555 下降一个百分点

  • 0
    @ 2008-10-20 13:44:53

    procedure combine(i,l,r:longint);

    var

    temp:longint;

    begin

    if l>r then exit;

    temp:=(r-l+1) shr 1;

    ans:=a[l+temp];

    combine(i*2,l+temp+1,r);

    ans:=a[l];

    combine(i*2+1,l+1,l+temp-1);

    end;

  • 0
    @ 2008-10-20 11:45:53

    同一个程序相隔一分钟提交的结果:

    编译通过...

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

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

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

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

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

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

    ├ 测试数据 07:运行超时...

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

    ├ 测试数据 09:运行超时...

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

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

    Unaccepted 有效得分:80 有效耗时:0ms

    //---|---|---|---|---|---|---|---|---|---|---|---|---|//

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    这就是瓶测机Lora的杰作

    还有要注意的是行未必须得打writeln

    否则是50分

  • 0
    @ 2008-10-20 11:36:35

    编译通过...

    ├ 测试数据 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-10-20 11:25:26

    感谢此题

    让我第400次提交

    A掉第100道题...

  • 0
    @ 2008-10-20 11:27:25

    用队列输出的。

    quicksort(1,n);

    head=tail=1;

    tmp.i=1;

    tmp.j=n;

    Enqueue(tmp);

    while(head!=tail)

    {

    tmp=Dequeue();

    i=tmp.i;

    j=tmp.j;

    p=(j-i)/2+i;

    if(!(i==1 && j==n)) printf(" ");

    printf("%ld",a[i]);

    tmp.i=p+1;

    tmp.j=j;

    if(p+1

  • 0
    @ 2008-10-20 10:34:32

    楼下的开多数组就K.O了.

  • 0
    @ 2008-10-20 09:47:26

    编译通过...

    ├ 测试数据 01:运行时错误...| 错误号: 216 | 存取非法

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

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

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

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

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

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

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

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

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

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

    Unaccepted 有效得分:90 有效耗时:0ms

    怎么回事。。。。

  • 0
    @ 2008-10-20 08:50:17

    恶心的评测

    我自己用测试数据评测100

    在lora temper上只有50分

    可怜我的小号AC率

  • 0
    @ 2008-10-19 21:55:23

    我写的程序好慢...不过还是过掉了

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

  • 0
    @ 2008-10-19 20:07:48

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

  • 0
    @ 2008-10-19 20:04:10

    评测机坏了吧,我交了3次50,结果竟然显示我Ac了

信息

ID
1469
难度
4
分类
其他 | 排序 点击显示
标签
递交数
522
已通过
214
通过率
41%
被复制
3
上传者