2020.02.22【NOIP普及组】模拟赛C组9

最新推荐文章于 2022-08-08 02:12:45 发布

VL——MOESR

最新推荐文章于 2022-08-08 02:12:45 发布

阅读量229

点赞数

分类专栏：比赛

本文链接：https://blog.csdn.net/liuziha/article/details/104484275

版权

比赛专栏收录该内容

45 篇文章 1 订阅

订阅专栏

题目编号	标题
0	【普及模拟】生产武器
1	【普及模拟】城市连接
2	【普及模拟】抢救文件
3	【普及模拟】机密文件

T1：

题目描述

最近，飞过海在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分钟（P+T<=N+1）。

输出

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

样例输入

1 1
1 1

样例输出

DP
设第i时刻可做的最少工作
f[i]=max(f[i],f[i+b[j]){i=a[i]}

var
n,m,i,ans:longint;
f:array[0..20000000]of longint;
a,b:array[0..200000]of longint;
procedure kp(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 kp(l,j);
        if i<r then kp(i,r);
end;
begin
        readln(n,m);
        for i:=1 to m do readln(a[i],b[i]);
        kp(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;
        ans:=n-f[1];
        writeln(ans);
        close(input);close(output);
end.

T2:

题目描述

天网恢恢，疏而不漏，经过上一次的抓捕，OI总部终于获取了怪盗的特征！现在，我们需要在基德再次来之前就把他的特征送到超级大牛的手上，可惜超级大牛不在总部，所以飞过海必须尽快把资料送到大牛家里。已知OI总部到大牛家中间有n-2个城城市，为了尽快达到目的地，飞过海通过水晶球了解到OI总部到大牛家的路线图，图上显示了n个城之间的连接距离。

可是飞过海很忙，需要请你来帮忙编写一个程序。

输入

输入文件中的第一行为一个整数n（n<=1000）。

第二行至第n+1行，每行有n个数。其中：第i+1行中表示第i个城市与其他城市之间的连接关系，0表示不连接，其它数字表示连接的距离。

输出

输出文件中的第一行为n个整数，表示所选的线路。

第二行中为一个数，表示最短距离。

样例输入

7
0 3 5 0 0 0 0
0 0 0 7 8 6 0
0 0 0 0 4 5 0
0 0 0 0 0 0 4
0 0 0 0 0 0 7
0 0 0 0 0 0 6
0 0 0 0 0 0 0

样例输出

1 2 4 7
14

SPFA模板题+路径
但是：
我爆0了

var
i,j,k,m,n,x,y:longint;
a:array[0..1001,0..1001]of longint;
dis:array[0..1001,1..2]of longint;
f:array[1..100010,1..2]of longint;
v:array[0..1001]of boolean;
l:array[0..1000]of longint;
procedure spfa(x:longint);
var
i,head,tail,xx,m:longint;
begin
    head:=0;tail:=1;
    fillchar(dis,sizeof(dis),10);
    dis[x][1]:=0;
    f[1][1]:=x;
    v[x]:=true;
    while(head<=tail)do
    begin
        inc(head);
        xx:=f[head][1];
        for i:=1 to n do
        begin
            if(a[xx][i]<>0)then
            begin
                if(dis[i][1]>dis[xx][1]+a[xx][i])then
                begin
                    dis[i][1]:=dis[xx][1]+a[xx][i];
                    dis[i][2]:=xx;
                    if(v[i]<>true)then
                    begin
                        v[i]:=true;
                        inc(tail);
                        f[tail][1]:=i;
                    end;
                end;
            end;
        end;
        v[xx]:=false;
    end;
    m:=n;
    while(m<>1)do
    begin
        inc(y);
        l[y]:=m;
        m:=dis[m][2];
    end;
    write(1,' ');
    for i:=y downto 1 do write(l[i],' ');
    writeln;
    write(dis[n][1]);
end;
begin
assign(input,'city.in');
assign(output,'city.out');
reset(input);
rewrite(output);
    read(n);
    for i:=1 to n do
    for j:=1 to n do
    read(a[i,j]);
    spfa(1);
    close(input);
    close(output);
end.

T3:

题目描述

    现在，OI界出现了一位来无影去无踪的怪盗，那就是基德！曾经他盗窃了著名的Paris Sunshine，各位大牛为之震惊！所以，在这之后，许多大牛都废寝忘食，研究对付基德的有效办法，在这期间，为了防止基德再次来盗窃，OI总司令就决定派出OIER，来保护OI总部。现在你担任OI防御大队大队长，需要在OI总部里安排尽可能多的OI特制陷阱！原来OI总部是完全分离的两部分需要铺设特殊的管道才能到达OI总部。现在，OIER为了保卫总部，设计了许多许多的陷阱，让基德自投罗网。
    现在有一份超级无敌大牛提供的宝贵规划资料，需要让你来部署。你的任务就是编写一个程序来实现这次规划。

输入

输入文件中的第一行为两个整数x，y（10<=x<=6000000000000，10<=y<=1000000000000000），其中：x表示OI总部间隔带的长度，而y表示宽。 第二行中为一个整数N（1<=N<=500000），表示分布在间隔带的陷阱对数。 接下来的N行，每行有两个正数C，D（0<C，D<=x），描述了每一对陷阱沿着间隔带与西边境线的距离。其中：C表示北边间隔带陷阱的距离而D表示南边陷阱的距离。在间隔带的同一边，任何两个陷阱的位置都是不同的。

输出

输出文件中仅一行为一个整数，即在互不干扰的情况下所能布置的最多陷阱数目。

样例输入

样例输出

最长不下降子序列……

var
i,j,k,m,n:longint;
s:string;
a:array[1..500010,1..2]of longint;
f:array[0..500010]of longint;
procedure qsort(l,r:longint);
var
i,j,m,sw:longint;
begin
    if(l>r)then exit;
    i:=l;j:=r;m:=a[(l+r)div 2,1];
    while(i<=j)do
    begin
        while(a[i,1]<m)do inc(i);
        while(a[j,1]>m)do dec(j);
        if(i<=j)then
        begin
            sw:=a[i,1];
            a[i,1]:=a[j,1];
            a[j,1]:=sw;
            sw:=a[i,2];
            a[i,2]:=a[j,2];
            a[j,2]:=sw;
            inc(i);dec(j);
        end;
    end;
    qsort(l,j);
    qsort(i,r);
end;
begin
assign(input,'save.in');
assign(output,'save.out');
reset(input);
rewrite(output);
    readln(s);
    read(n);
    for i:=1 to n do
    begin
        read(a[i,1],a[i,2]);
    end;
    qsort(1,n);
    for i:=1 to n do
    begin
        f[i]:=1;
        for j:=1 to i-1 do
        if(a[i,2]>=a[j,2])then
        if(f[j]+1>f[i])then f[i]:=f[j]+1;
        if(f[i]>m)then m:=f[i];
    end;
    write(m);
    close(input);
    close(output);
end.

T4:

题目描述

OI总部最近得到可靠消息，近日来怪盗基德会再次来OI总部盗窃机密文件（因为是机密，所以不能透露），所以OIER得在怪盗基德来临之前就把文件备份。不过，正好今天OI总部停电了，所以就得人工抄写了。现在，OI总部内一共有M份资料和K个OIER（S），需要将每一份资料都备份一份，M份资料的页数不一定相同（有不同的，也有相同的）。

现在，你作为其中的一名OIER，把资料分配给OIER备份，由于人太多了，所以每一名OIER所分配到的资料都必须是连续顺序的，并且每一名OIER的备份速度是相同的。

你的任务就是让备份的时间最短，列出最短的方案。数据可能存在多个解，所以，当存在多个解时，让前面的人少备份。

输入

输入文件中的第一行为两个整数M，K，分别表示书本的数目和OIER的人数。

第二行中为由M个分隔的整数构成，分别表示M本书的页数。其中：第i份资料的编号为i。

输出

输出文件中共有K行，每行有两个整数。其中：第i行中表示第i个OIER备份的资料编号的起止。

样例输入

8 3
1 2 3 4 5 6 7 8

样例输出

1 3
4 6
7 8

提示

【数据范围】

对于50%的数据，满足：1<=k<=m<=500；

对于100%的数据，满足：1<=k<=m<=1000。

二分+特判
二分最高限制，特判人=书本

var
i,j,k,m,n,y:longint;
a:array[1..1001]of longint;
f:array[0..1000,1..2]of longint;
l,r,mid:int64;
function pd(m1:int64):boolean;
var i,s,k1,j,next,y1:longint;
    l:array[0..1000,1..2]of longint;
begin
    fillchar(l,0,sizeof(l));
    y1:=0;
    s:=0;
    for i:=n downto 1 do
    begin
        if(i=n)then
        begin
            inc(y1);
            l[y1,1]:=i;
            s:=s+a[i];
        end
        else
        if(i=m-y1)then
        begin
            l[y1,2]:=i+1;
            inc(y1);
            l[y1,1]:=i;
            l[y1,2]:=i;
        end
        else
        if(s+a[i]>m1)then
        begin
            l[y1,2]:=i+1;
            inc(y1);
            if(y1>m)then exit(false);
            l[y1,1]:=i;
            s:=a[i];
        end
        else s:=s+a[i];
    end;
    l[y,2]:=1;
    y:=y1;
    f:=l;
    exit(true);
end;
begin
assign(input,'secret.in');
assign(output,'secret.out');
reset(input);
rewrite(output);
    read(n,m);
    for i:=1 to n do
    begin read(a[i]);r:=r+a[i];if(a[i]>l)then l:=a[i]; end;
    while(l<=r)do
    begin
        mid:=(l+r)div 2;
        if(pd(mid))then r:=mid-1
        else l:=mid+1;
    end;
    for i:=y downto 1 do
    writeln(f[i,2],' ',f[i,1]);
    close(input);
    close(output);
end.