生产武器

来源:互联网 发布:mysql eq ref 编辑:程序博客网 时间:2024/03/28 22:32

题目描述:最近,飞过海在OI总部总算弄了个小差,现在他又被调去了OI防卫部门来制造对付基德的工具。当然,这些工作是在OI总部内的机器上进行的,可是飞过海从来没有此经验,现在飞过海又接到了一批新的任务,现在他要编程来控制机器。已知机器一天工作N mins,当飞过海按动开始按钮的时候机器就开始运转。现在OI总司给了K个生产目标,可是只有一台机器,所以总司希望知道最少机器能生产多少个零件(也就是最少工作多少分钟)。如果同时有许多的零件要加工,机器只能选择一个。但是一个零件任务是有时间限制的,也就是说,1个零件必须从P分开始,持续T分钟(好牵强的规定啊!)。由于飞过海很忙,所以请你来编写一下这个程序吧!

输入:输入文件中的第一行为两个整数N,K(1<=N<=10000000,1<=K<=100000),其中:N表示机器的运转时间(由于机器要维护,它只能工作那么多时间),单位为分钟,K表示总司布置的零件总数。接下来的K行,每行有两个整数P,T,表示该任务从第P分钟开始,持续时间为T分钟。

输出:输出文件中仅一行为一个数,表示机器最多可能加工零件的最少时间。

样例输入:

1 1
1 1

样例输出:

1


思路:简单的DP(要不是题目描述不清楚,我比赛时就AC了),顺便说一句:最近比赛的题目描述好难懂啊!!!


代码:

var
        n,m,i,j,k,x,y,z,s,ls:longint;
        f:array[0..20000001]of longint;
        a,b:array[0..200001]of longint;
procedure qs(l,r:longint);
var
        i,j,mid,t:longint;
begin
        i:=l;
        j:=r;
        mid:=a[(l+r)div 2];
        repeat
                while a[i]<mid do inc(i);
                while a[j]>mid do dec(j);
                if i<=j then
                begin
                        t:=a[i];
                        a[i]:=a[j];
                        a[j]:=t;
                        t:=b[i];
                        b[i]:=b[j];
                        b[j]:=t;
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then qs(l,j);
        if i<r then qs(i,r);
end;
begin
        assign(input,'produce.in');
        reset(input);
        assign(output,'produce.out');
        rewrite(output);
        readln(n,m);
        for i:=1 to m do
        readln(a[i],b[i]);
        qs(1,m);
        for i:=n downto 1 do
        begin
                if i<>a[m] then f[i]:=f[i+1]+1
                else
                begin
                        while i=a[m] do
                        begin
                                if f[i+b[m]]>f[i] then f[i]:=f[i+b[m]];
                                dec(m);
                        end;
                end;
        end;
        writeln(n-f[1]);
end.