2016.8.15上午纪中初中部NOIP普及组比赛

链接:https://jzoj.net/junior/#contest/home/1333

这次比赛不怎么好,因为这套题目我并不是很擅长。

可同学们都说很水,于是。。。我在同学的教导之下AK了。

进度:

比赛:100+ 60+ 30+ 10=200

改题:100+100+100+100=AK

一、icow

链接:https://jzoj.net/junior/#contest/show/1333/0

我一看到“权值”二字,就以为会是图论,结果。。。那没有图论这么难。。。

本来理解错题了,后来改一改就对了。

题目简化:

就是输入权值后,把最大的输出,然后平分给其它的,余数送给前面的,清零。

重复t次。

正解:

读入后来个循环i:=1..t,然后用循环找出最大的值。

然后把它清零,按照题目要求分配。。。循环完毕即可。

var
n,t,i,j,x,y,m,mx:longint;
r:array[0..1000]of longint;
{////////////////////reads////////////////////////////////}
procedure reads;
begin
readln(n,t);
for i:=1 to n do readln(r[i]);
end;
{/////////////////////runs&writes///////////////////////////}
procedure runs;
begin
repeat
m:=0;
mx:=0;
for i:=1 to n do
begin
if (r[i]>m) then
begin
m:=r[i];
mx:=i;
end;
end;
writeln(mx);
dec(t);
r[mx]:=0;
x:=m div (n-1);
y:=m mod (n-1);
for i:=1 to n do
begin
if i=mx then continue;
if y>0 then
begin
inc(r[i],x+1);
dec(y);
end else inc(r[i],x);
end;
until t=0;
end;
{///////////////////////files///////////////////////////////}
procedure openfile(s:string);
begin
assign(input,s+'.in');reset(input);
assign(output,s+'.out');rewrite(output);
end;
procedure closefile;
begin
close(input);
close(output);
end;
{//////////////////////main program/////////////////////////}
begin
openfile('icow');
reads;
runs;
closefile;
end.

二、化装晚会

链接:https://jzoj.net/junior/#contest/show/1333/1

这道题好像可以二分。。。我一开始编二分,结果错了。。。

暴搜后六十,当我以为是什么时间超限时,运行时错误立刻让我明白了为什么

数组开小了!!!

题目简化:

就是在1~n中选两个的和小于或等于s,能有多少方案

正解:

二分是可以的,排序后再二分。

也可以暴力。。数据太水。。。

var
n,s,i,j,l,r,mid,bz:longint;
a:array[0..20000]of longint;
ans:int64;
b:boolean;
{////////////////read&write/////////////////////////////////}
procedure reads;
begin
readln(n,s);
j:=0;
for i:=1 to n do
begin
inc(j);
readln(a[j]);
if a[j]>=s then dec(j);
end;
n:=j;
end;
procedure writes;
begin
writeln(ans);
end;
{////////////////runs///////////////////////////////////////}
procedure runs;
procedure qsort(l,r:longint);
var
i,j,mid:longint;
begin
i:=l;
j:=r;
randomize;
mid:=a[l+random(r-l)];
repeat
while a[j]>mid do dec(j);
while a[i]<mid do inc(i);
if i<=j then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
dec(j);
inc(i);
end;
until i>j;
if i<r then qsort(i,r);
if l<j then qsort(l,j);
end;
begin
qsort(1,n);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]+a[j]<=s then inc(ans)else break;
{
for i:=1 to n do
begin
l:=i+1;
r:=n;
repeat
bz:=mid;
mid:=(l+r)div 2;
if bz=mid then break;
if a[mid]+a[i]>s then r:=mid else
begin
if a[mid]+a[i]<=s then l:=mid;
end;
until false;
inc(ans,mid-i);
end;}
end;
{//////////////////files////////////////////////////////////}
procedure openfile(s:string);
begin
assign(input,s+'.in');reset(input);
assign(output,s+'.out');rewrite(output);
end;
procedure closefile;
begin
close(input);
close(output);
end;
{////////////////main program///////////////////////}
begin
openfile('costume');
reads;
runs;
writes;
closefile;
end.
    类似于合法方案
链接:http://61.142.113.107:8080/oj/problem.php?id=1469

三、奶牛的比赛

链接:https://jzoj.net/junior/#contest/show/1333/2

考试时用拓扑排序算法(我也不知是不是,听别人说的)

结果不知为何答案错误

题目简化:

没什么好简化的,就是排名高一定打得过排名低的,

然后让电脑分析分析有哪个排名能确定

正解:

拓扑排序是可以的,只不过我错了。

还有一种floyed的方法:

设f[i,j]为i和j哪个赢,如果未知就为0,不然就为i或j

如果i<>j并且i打得过k,k打得过j,f[i,j]:=i;

最后循环,如果发现f[i,1..n]中有n-1(即包括自己)个是有关系的

就inc(ans)。

var
n,s,i,j,l,r,mid,bz:longint;
a:array[0..20000]of longint;
ans:int64;
b:boolean;
{////////////////read&write/////////////////////////////////}
procedure reads;
begin
readln(n,s);
j:=0;
for i:=1 to n do
begin
inc(j);
readln(a[j]);
if a[j]>=s then dec(j);
end;
n:=j;
end;
procedure writes;
begin
writeln(ans);
end;
{////////////////runs///////////////////////////////////////}
procedure runs;
procedure qsort(l,r:longint);
var
i,j,mid:longint;
begin
i:=l;
j:=r;
randomize;
mid:=a[l+random(r-l)];
repeat
while a[j]>mid do dec(j);
while a[i]<mid do inc(i);
if i<=j then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
dec(j);
inc(i);
end;
until i>j;
if i<r then qsort(i,r);
if l<j then qsort(l,j);
end;
begin
qsort(1,n);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]+a[j]<=s then inc(ans)else break;
{
for i:=1 to n do
begin
l:=i+1;
r:=n;
repeat
bz:=mid;
mid:=(l+r)div 2;
if bz=mid then break;
if a[mid]+a[i]>s then r:=mid else
begin
if a[mid]+a[i]<=s then l:=mid;
end;
until false;
inc(ans,mid-i);
end;}
end;
{/////////////////files////////////////////////////////////}
procedure openfile(s:string);
begin
assign(input,s+'.in');reset(input);
assign(output,s+'.out');rewrite(output);
end;
procedure closefile;
begin
close(input);
close(output);
end;
{////////////main program/////////////////////////////////}
begin
openfile('costume');
reads;
runs;
writes;
closefile;
end.

四、贝茜的晨练计划

链接:https://jzoj.net/junior/#contest/show/1333/3

我一看就知道是DP,可是考试时半天想不出来

于是暴搜10分。

题目简化:

没什么好简化的,每一分钟内可以跑d[i]米或休息到不累。

正解:

DP。

设f[i,j]为i分钟时疲劳度为j

f[i,0]=f[i-1,0](f[i,0]的初值,必须在第一和第二重循环之间)

f[i,0]=max(f[i,0],f[i-j,j])(i>=j防止负数)

f[i,j]=max(f[i,j],f[i-1,j-1]+d[i]);

var
f:array[0..10000,0..500]of longint;
d:array[1..10000]of longint;
n,m,i,j,ans:longint;
{///////////reads&writes////////////////////////////////////}
procedure reads;
begin
readln(n,m);
for i:=1 to n do readln(d[i]);
end;
procedure writes;
begin
writeln(f[n,0]);
end;
{/////////////runs//////////////////////////////////////////}
procedure runs;
function max(a,b:longint):longint;
begin
if a>b then exit(a)else exit(b);
end;
begin
for i:=1 to n do
begin
f[i,0]:=f[i-1,0];
for j:=1 to m do
begin
if i>=j then f[i,0]:=max(f[i,0],f[i-j,j]);
f[i,j]:=max(f[i,j],f[i-1,j-1]+d[i]);
end;
end;
end;
{/////////////////files////////////////////////////////////}
procedure openfile(s:string);
begin
assign(input,s+'.in');reset(input);
assign(output,s+'.out');rewrite(output);
end;
procedure closefile;
begin
close(input);
close(output);
end;
{////////////main program///////////////////////////////////}
begin
openfile('cowrun');
reads;
runs;
writes;
closefile;
end.

今天心情好,发得比之前多得多,同时我想,我该为自己负责,所以才发了这么多。

只有养成不要敷衍的好习惯,水平必定会上升。

题外话:

1.我想投诉后面的新学生,很吵,吵到没得思考。

2016.8.15上午纪中初中部NOIP普及组比赛的更多相关文章

  1. 2016.8.18上午纪中初中部NOIP普及组比赛

    2016.8.18上午纪中初中部NOIP普及组比赛 链接:https://jzoj.net/junior/#contest/home/1336 翻!车!啦!好吧,那是因为大神归来. 进度: 比赛:AC ...

  2. 2016.8.17上午纪中初中部NOIP普及组比赛

    2016.8.17上午纪中初中部NOIP普及组比赛 链接:https://jzoj.net/junior/#contest/home/1335 本来觉得自己能考高分,但只得160分,并列第九.至少又挤 ...

  3. 2016.8.16上午纪中初中部NOIP普及组比赛

    2016.8.16上午纪中初中部NOIP普及组比赛 链接:https://jzoj.net/junior/#contest/home/1334 这次也翻车了,感觉比之前难多了. 辛辛苦苦改完了,太难改 ...

  4. 2016.8.19上午初中部NOIP普及组比赛总结

    2016.8.19上午初中部NOIP普及组比赛总结 链接:https://jzoj.net/junior/#contest/home/1338 这次总结发得有点晚啊!我在这里解释一下, 因为浏览器的问 ...

  5. 2016.9.15初中部上午NOIP普及组比赛总结

    2016.9.15初中部上午NOIP普及组比赛总结 2016.09.15[初中部 NOIP普及组 ]模拟赛 又翻车了!表示时超和空超很可恨! 进度 比赛:AC+0+0+20=120 改题:AC+80+ ...

  6. 2016.9.24初中部上午NOIP普及组比赛总结

    2016.9.24初中部上午NOIP普及组比赛总结 2016.09.24[初中部 NOIP普及组 ]模拟赛 其实这次我没比赛,早上去参加亲子活动去了. 不过在下午我做完了所有的题,感觉还好. 进度 现 ...

  7. 2016.10.29初中部上午NOIP普及组比赛总结

    2016.10.29[初中部 NOIP普及组 ]模拟赛 做得好爽! 进度: 比赛:35+45+AC+0=180 改题:AC+AC+AC+0=300 幸运的数 有点无语--之前怕超限,还特意利用程序打了 ...

  8. 2016.9.17初中部下午NOIP普及组比赛总结

    2016.9.17初中部下午NOIP普及组比赛总结 2016.09.17[初中部 NOIP普及组 ]模拟赛 最近几次的题目都不是自己擅长的啊... 不过含金量挺高的,也好... 进度: 比赛:0+0+ ...

  9. 2016.10.7初中部上午NOIP普及组比赛总结

    2016.10.7初中部上午NOIP普及组比赛总结 这次的题还可以,重新入了比赛的前十. 进度: 比赛:90+10+70+30=200 改题:AC+AC+AC+AC=AK 找试场 这题很简单,但是被欺 ...

随机推荐

  1. 2018湘潭大学程序设计竞赛【A】

    题目链接:https://www.nowcoder.com/acm/contest/105/A 题意:给你起始和结束的天时分,让你算总秒数. 题解:输入格式.注意long long.签到题. #inc ...

  2. el-scrollbar 如何去掉横线滚动条?

    1. el-scrollbar style="height:100%" 2. 不要在scoped私有变量添加 .el-scrollbar__wrap{ overflow-x: hi ...

  3. sanic连接mongo

    方法一: #没有密码,就是没有用户和用户密码 settings={"MOTOR_URI":"mongodb://127.0.0.1:27017/zzy"} ap ...

  4. Java中++操作是同步的吗?为什么?

    不是同步的 因为++操作分为三步实现 内存到寄存器 寄存器自增操作 寄存器写回内存 这三步每一步都可以被打断,不是原子操作,所以不是同步操作

  5. eclipse search只能打开一个文件

    通过search找到的文件只能打开一个.以前search打开的那个文件就自动关闭了,找不到了.解决办法: window-preferences-general-search找到第一行的一个选项  re ...

  6. tomcat 启用https协议

    利用tomcat服务器配置https双向认证. 1.为服务器生成证书 打开cmd,进入jdk的bin目录下,输入下面的命令: keytool -genkey -v -alias tomcat -key ...

  7. SLF4J log4j 不打印日志

      SLF4J: Failed to load class "org.slf4j.impl.StaticLoggerBinder". SLF4J: Defaulting to no ...

  8. 6361. 【NOIP2019模拟2019.9.18】鲳数

    题目 题目大意 给你一个区间\([l,r]\),求这个区间内每个整数的十进制上从高位到低位的逆序对个数之和. 思考历程 一开始就知道这是个数位DP-- 结果一直都没有调出来,心态崩了-- 正解 先讲讲 ...

  9. Java-Class-C:org.springframework.http.HttpHeaders

    ylbtech-Java-Class-C:org.springframework.http.HttpHeaders 1.返回顶部 1.1. import org.springframework.htt ...

  10. flutter SnackBar

    无法弹出 snackbar时