2020.02.22【NOIP普及组】模拟赛C组9
| 题目编号 | 标题 |
|---|---|
| 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
样例输出
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输出
输出文件中仅一行为一个整数，即在互不干扰的情况下所能布置的最多陷阱数目。
样例输入
10 4
2
1 2
2 1
样例输出
1
最长不下降子序列……
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.