2016.8.16上午纪中初中部NOIP普及组比赛
2016.8.16上午纪中初中部NOIP普及组比赛
链接:https://jzoj.net/junior/#contest/home/1334
这次也翻车了,感觉比之前难多了。
辛辛苦苦改完了,太难改了!
进度:
分数:020+AC+010+060=190
改题:AC+AC+AC+AC=AK
一、作弊
链接:https://jzoj.net/junior/#contest/show/1334/0
好坑!把string改为ansistring时50,又改了改,时间超限80
改了好久……
莫名其妙的时超。方法和讲的一样,却时超了
题目简化:
就是在一个长字符串中找出一个最长的回文串!
正解:
枚举回文串的中心,发现比原来最长的长时,
就替代之。要注意一下长度为偶数的情况。
var
n,i,j,len,l,k,ans1:longint;
s,s1,ans2:ansistring;
//read&write:
procedure reads;
begin
readln(n);
readln(s);
s:=s+'+';
end;
procedure writes;
begin
writeln(ans1);
writeln(ans2);
end;
//runs:
procedure runs;
begin
ans1:=1;
ans2:=s[1];
for k:=1 to n do
begin
i:=k;
j:=k;
while (i>1) and (j<n) and (s[i-1]=s[j+1]) do
begin
dec(i);
inc(j);
end;
s1:=copy(s,i,j-i+1);
len:=j-i+1;
if len>ans1 then
begin
ans1:=len;
ans2:=s1;
end;
i:=k;
j:=k+1;
if s[i]=s[j] then
begin
while (i>1) and (j<n) and (s[i-1]=s[j+1]) do
begin
dec(i);
inc(j);
end;
end;
s1:=copy(s,i,j-i+1);
len:=j-i+1;
if len>ans1 then
begin
ans1:=len;
ans2:=s1;
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('cheat');
reads;
runs;
writes;
closefile;
end.
二、最大杂志
链接:https://jzoj.net/junior/#contest/show/1334/1
这个水,一不小心就AC了。
我可是用了数据库的哟!
题目简化:
没什么好简化的!
正解:
一看就知道是找规律的题目。
先手动算一些数据,
会发现规律:
如果输入为n,那么输出的结果就为第n+1行的杨辉三角的中间数!
杨辉三角:
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
……
求出来后输入后直接输出就行了(数据库)
记得%12345678!
var
f:array[1..3001,1..3001]of qword;
i,j,n:longint;
//files:
procedure openfile(s:string);
begin
assign(output,s+'.txt');rewrite(output);
end;
procedure closefile;
begin
close(input);
close(output);
end;
begin
openfile('yanghui');
for i:=1 to 3001 do
begin
f[i,1]:=1;
f[i,i]:=1;
end;
for i:=2 to 3001 do
for j:=2 to i-1 do
begin
f[i,j]:=(f[i-1,j-1]+f[i-1,j])mod 12345678;
end;
writeln('(');
writeln(f[1,1]);
for i:=2 to 3001 do
begin
if i mod 10<>0 then write(',',f[i,(i+1)div 2]) else writeln(',',f[i,(i+1)div 2]);
end;
writeln(')');
closefile;
end.//创建数据库
至于怎么用,我就不说了
三、投影
链接:https://jzoj.net/junior/#contest/show/1334/2
又是一道考语文的题目!出题者故意说复杂!
我语文差……考试时匆匆输出样例
题目简化:
不好说……一个建筑就是一个个贴着底的矩形,可以重叠的矩形!
然后组成题目的图案
最少的输出
正解:
学霸的方法!
首先那个什么w和下面输入的第一个数是没用的!
然后一层一层弄,如果遇到跟自己同样高的,就标记一下
放在一起。
var
a:array[1..10000]of longint;
bz:array[1..10000]of boolean;
w,n,i,j,k,x,y,ans,min,l:longint;
//reads&writes:
procedure reads_runs;
begin
readln(n,w);
for i:=1 to n do
begin
readln(x,y);
while (l>0)and(a[l]>y) do dec(l);
if ((l=0)or(a[l]<y))and(y>0) then
begin
inc(l);
inc(ans);
a[l]:=y;
end;
end;
end;
procedure writes;
begin
writeln(ans);
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('skyline');
reads_runs;
writes;
closefile;
end.
四、除草
链接:https://jzoj.net/junior/#contest/show/1334/3
考试时贪心,居然能拿60分
运气,运气!!
题目简化:
就是在一条线上有很多个点,然后走来走去,
所有点都去一次的最短路程(在这里时间也一样啦)
正解:
上一届钟俊权哥哥的正解
当然是DP
设f[i,j,1]代表走过i~j的所有点,停在i处
f[i,j,2]代表走过i~j的所有点,停在j处
初始化
f[i,i,1]=f[i,i,2]=abs(l-a[i])*n;
状态转移方程:
f[i,j,1]=min{f[i+1,j,1]+(a[i+1]-a[i])*(n-j+i),
f[i+1,j,2]+(a[j]-a[i])*(n-j+i)}
f[i,j,2]=min{f[i,j-1,1]+(a[j]-a[i])*(n-j+i),
f[i,j-1,2]+(a[j]-a[j-1])*(n-j+i)}
输出min{f[1,n,1],f[1,n,2]}
var
a:array[0..1000]of longint;
f:array[0..1000,0..1000,1..2] of longint;
n,l,i,j:longint;
//min:
function min(a,b:longint):longint;
begin
if a<b then exit(a)else exit(b);
end;
//reads&writes:
procedure reads;
begin
readln(n,l);
for i:=1 to n do readln(a[i]);
end;
procedure writes;
begin
writeln(min(f[1,n,1],f[1,n,2]));
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[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
inc(i);
dec(j);
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 do
begin
f[i,i,1]:=abs(l-a[i])*n;
f[i,i,2]:=f[i,i,1];
end;
for i:=n downto 1 do
for j:=i+1 to n do
begin
f[i,j,1]:=min(f[i+1,j,1]+(a[i+1]-a[i])*(n-j+i),
f[i+1,j,2]+(a[j]-a[i])*(n-j+i));
f[i,j,2]:=min(f[i,j-1,1]+(a[j]-a[i])*(n-j+i),
f[i,j-1,2]+(a[j]-a[j-1])*(n-j+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;
begin
openfile('ontherun');
reads;
runs;
writes;
closefile;
end.
给大家说个经验:如果只输入一个数的,很有可能是找规律。
在一个点里面输入t组数据的,一般都是输入后直接输出的那种。
题外话
1、我猛地发现,自从有新同学来我们教室之后,我都翻车了。希望明天不翻。
2、303的人享受着不被吵的优越的待遇,我也要努力进去!
3、今天是否能坚持AK是一个难题。最后辛苦地AK了。
2016.8.16上午纪中初中部NOIP普及组比赛的更多相关文章
- 2016.8.15上午纪中初中部NOIP普及组比赛
2016.8.15上午纪中初中部NOIP普及组比赛 链接:https://jzoj.net/junior/#contest/home/1333 这次比赛不怎么好,因为这套题目我并不是很擅长. 可同学们 ...
- 2016.8.18上午纪中初中部NOIP普及组比赛
2016.8.18上午纪中初中部NOIP普及组比赛 链接:https://jzoj.net/junior/#contest/home/1336 翻!车!啦!好吧,那是因为大神归来. 进度: 比赛:AC ...
- 2016.8.17上午纪中初中部NOIP普及组比赛
2016.8.17上午纪中初中部NOIP普及组比赛 链接:https://jzoj.net/junior/#contest/home/1335 本来觉得自己能考高分,但只得160分,并列第九.至少又挤 ...
- 2016.8.19上午初中部NOIP普及组比赛总结
2016.8.19上午初中部NOIP普及组比赛总结 链接:https://jzoj.net/junior/#contest/home/1338 这次总结发得有点晚啊!我在这里解释一下, 因为浏览器的问 ...
- 2016.9.15初中部上午NOIP普及组比赛总结
2016.9.15初中部上午NOIP普及组比赛总结 2016.09.15[初中部 NOIP普及组 ]模拟赛 又翻车了!表示时超和空超很可恨! 进度 比赛:AC+0+0+20=120 改题:AC+80+ ...
- 2016.9.24初中部上午NOIP普及组比赛总结
2016.9.24初中部上午NOIP普及组比赛总结 2016.09.24[初中部 NOIP普及组 ]模拟赛 其实这次我没比赛,早上去参加亲子活动去了. 不过在下午我做完了所有的题,感觉还好. 进度 现 ...
- 2016.10.29初中部上午NOIP普及组比赛总结
2016.10.29[初中部 NOIP普及组 ]模拟赛 做得好爽! 进度: 比赛:35+45+AC+0=180 改题:AC+AC+AC+0=300 幸运的数 有点无语--之前怕超限,还特意利用程序打了 ...
- 2016.9.17初中部下午NOIP普及组比赛总结
2016.9.17初中部下午NOIP普及组比赛总结 2016.09.17[初中部 NOIP普及组 ]模拟赛 最近几次的题目都不是自己擅长的啊... 不过含金量挺高的,也好... 进度: 比赛:0+0+ ...
- 2016.10.7初中部上午NOIP普及组比赛总结
2016.10.7初中部上午NOIP普及组比赛总结 这次的题还可以,重新入了比赛的前十. 进度: 比赛:90+10+70+30=200 改题:AC+AC+AC+AC=AK 找试场 这题很简单,但是被欺 ...
随机推荐
- Greenplum(PostgreSql)函数实现批量删除表
项目做库迁移,前期需要经常调整表结构语句,涉及多次的批量drop,本着偷懒精神写了这个函数.鉴于本函数在生产环境有巨大风险,建议测试完毕后立即删除. 主要步骤很简单:1)从pg_tables查询得到相 ...
- (转)HashSet<T>类
转载于:http://www.importnew.com/6931.html HashSet<T>类主要是设计用来做高性能集运算的,例如对两个集合求交集.并集.差集等.集合中包含一组不重复 ...
- 增量+全量备份SVN服务器
#!/bin/bash # 获取当前是星期几 DAY=$(date +%w) # 获取当前的日期 DATE=$(date '+%Y-%m-%d-%H-%M') # 获取当前版本库中最新的版本 CURR ...
- Java中哪个JSON库的解析速度是最快的?
JSON已经成为当前服务器与WEB应用之间数据传输的公认标准,不过正如许多我们所习以为常的事情一样,你会觉得这是理所当然的便不再深入思考 了.我们很少会去想用到的这些JSON库到底有什么不同,但事实上 ...
- java OOP第二章_封装
一. 封装: 属性通过private访问修饰符将其设置为私有的,只有当前类中可以访问,同时提供通过public访问修饰符的公共方法可以给任何类中访问. 通常针对属性提供公共的setter方法进行赋值, ...
- 几个实用的js函数
在阅读JavaScript DOM编程艺术这本书时看到了一些比较实用的代码. //加载多个window.onload事件 function addLoadEvent(func) { var oldon ...
- iOS开发系列-Category
Category Category是OC中特有的语法.Category的作用 * 可以在不修改原来类的基础上,为这个类扩充一些方法 * 一个庞大的类可以分为多个模块开发 * 一个庞大的类可以由多个人来 ...
- JS关闭当前父级div
代码: <img src="img/diagram.png" onclick="javascript:this.parentNode.parentNode.remo ...
- Leetcode274.H-IndexH指数
原题的中文翻译不是很好,所以给出英文版. Given an array of citations (each citation is a non-negative integer) of a rese ...
- merge存储引擎基本介绍和使用规范说明
[以下两段截自MySql手册]: merge存储引擎,也被认识为mrg_myisam引擎,是一个"相同“的表可以被当作一个表来用的myisam表的集合.“相同”意味着所有表同样的列和索引信息 ...