58 条题解

  • 0
    @ 2009-10-05 18:15:46

    .............

    没看到d的范围,搞了个离散化bool数组,⊙﹏⊙b汗

    细节啊!!!!

  • 0
    @ 2009-10-05 10:31:47

    mao难度

  • 0
    @ 2009-09-21 13:24:32

    MS

  • 0
    @ 2009-09-07 13:20:19

    这个..和某月NOI专刊的一题很相象的样子...

    我记得自己还写了个有两种解法的题解..

    题目是什么呢..#...哦对了...是叫做地鼠游戏..#

  • 0
    @ 2009-09-02 23:50:45

    调度分两步:

    1,按期限递增的顺序对早于期限的任务进行调度

    2,早任务要放在迟任务之前

    即安排任务i时,如果存在恰处于或先于d[i]的时间空位,则将i填入其中最早的空位;如果不存在,则将i填入一个最近的还未被占的空位。

  • 0
    @ 2009-08-18 15:38:45

    var d,w:array[1..500] of longint;

    x:array[1..500] of integer;

    i,j,n,t,total:longint;

    procedure ice(s,t:integer);

    var i,j,m,x:longint;

    begin

    i:=s;j:=t;x:=w[i];

    repeat

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

    while w[j]

  • 0
    @ 2009-08-15 23:27:44

    如对本题有疑问可以参看我的题解:http://xujieqi.blog.hexun.com/35722312_d.html

  • 0
    @ 2009-08-13 08:06:36

    题目的限制时间的意思是只要在

  • 0
    @ 2009-08-11 19:18:45

    var

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

    d,w:array[0..1000]of longint;

    boo:array[0..1000]of boolean;

    procedure quicksort(f,l:longint);

    var

    i,j,k,x,xx:longint;

    begin

    k:=random(l-f+1)+f;

    x:=w[k];w[k]:=w[f];w[f]:=x;

    xx:=d[k];d[k]:=d[f];d[f]:=xx;

    i:=f;j:=l;

    while i

  • 0
    @ 2009-08-11 10:58:39

    var

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

    boo:boolean;

    a,b:array[1..10000] of longint;

    hash:array[1..1000000] of boolean;

    procedure sort;

    var

    p,q:longint;

    begin

    for i:=1 to n-1 do

    for j:=i+1 to n do

    if b[i]

  • 0
    @ 2009-08-11 10:52:15

    编译通过...

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

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

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

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

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

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

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

    hehe,过了!!!

  • 0
    @ 2009-08-10 11:20:36

    贪贪贪贪贪~~~~~~心~

    第100个

  • 0
    @ 2009-08-08 10:34:14

    应该算是为数不多的贪心经典题之一吧……

    程序38行

    正愁着dp题做不出来这玩玩,没想到这就成为我的第100道了……

  • 0
    @ 2009-08-08 00:07:56

    好恶心啊 ,远看像搜索,近看像动规,再细看才知道是贪心,没很好的证明还真的不敢轻易谈心啊!!!!!!

    ┴┬┴┬/ ̄\_/ ̄\

    ┬┴┬┴▏  ▏▔▔▔▔\ 这

    ┴┬┴/\ /      ﹨ 地

    ┬┴∕       /   ) 方

    ┴┬▏        ●  ▏ 不

    ┬┴▏           ▔█◤ 错,

    ┴◢██◣       \__/

    ┬█████◣       /  让我用来踩踩!  

    ┴█████████████◣

    ◢██████████████▆▄

    ◢██████████████▆▄

    █◤◢██◣◥█████████◤\

    ◥◢████ ████████◤   \

    ┴█████ ██████◤      ﹨

    ┬│   │█████◤        ▏

    ┴│   │ 狗熊在此!借贵宝地一踩!  ▏

    ┬∕   ∕    /▔▔▔\     ∕

    *∕___/﹨   ∕      \  /\

  • 0
    @ 2009-08-07 21:54:26

    回19樓 網速慢嘿嘿 安裝了10多小時

  • 0
    @ 2009-08-06 23:15:01

    第一眼:关键路径?

    第二眼:搜索?

    ..

    ...

    ....

    .....

    第N眼:原来是贪心(PS:题意是1个任务1个时间就可以完成。。)

    解法正如 搁浅 牛的方法

    按w[i]降序排列,从1->n依次填入时间,若无法在a[i]前完成,则将该任务的完成时间填入一个尽可能大的时间,并inc(ans,w[i]);

  • 0
    @ 2009-08-06 09:19:43

    贪心~~~

    要注意的是即使不能按时完成,也还是要做的- -国企

  • 0
    @ 2009-08-04 22:28:11

    贪心能过吗...

    快排都懒得写

  • 0
    @ 2009-08-04 18:37:26

    六分钟Ac掉这题。

  • 0
    @ 2009-08-04 15:34:18

    有数据吗? 不知道为什么错了

    program p1604;

    type re=record

    time:integer;

    w:integer;

    end;

    var i,j,k:longint;

    a:array[1..500] of re;

    b:array[1..500] of longint;

    sum,n:longint;

    procedure kp(l,r:longint);

    var i,j,x,t:longint;

    begin

    i:=l;

    j:=r;

    x:=a[(l+r) div 2].w;

    repeat

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

    while a[j].w

信息

ID
1604
难度
3
分类
贪心 点击显示
标签
(无)
递交数
1229
已通过
622
通过率
51%
被复制
3
上传者