2016.08.14【初中部 NOIP提高组 】模拟赛C

制杖的我终于改完题了,写一下前天比赛的题解吧~


第一题:

https://61.142.113.109/senior/#main/show/2553

题目描述:

2553. 【NOIP2011模拟9.7】射命丸文 (StandardIO)

  在幻想乡,射命丸文是以偷拍闻名的鸦天狗。当然,文文的照相机可不止能够照相,还能够消除取景框里面所有的弹幕。假设现在文文面前有一块N行M列的弹幕群,每一个单位面积内有分值有num[i][j]的弹幕。相机的取景框可以将一块R行C列的弹幕消除,并且得到这一块区域内所有弹幕的分值(累加)。现在文文想要取得尽可能多的分值,请你计算出她最多能够得到的分值。

Input

  第1行:4个正整数N,M,R,C
  第2..N+1行:每行M个正整数,第i+1行第j个数表示num[i][j]

Output

  第1行:1个整数,表示文文能够取得的最大得分

Sample Input

3 5 2 3

5 2 7 1 1

5 9 5 1 5

3 5 1 5 3

Sample Output

33

【数据范围】
  对于60%的数据:1 <= N,M <= 200
  对于100%的数据:1 <= N,M <= 1,000
  1 <= R<= N, 1 <= C <= M
  1 <=num[i][j] <= 1000
  保证结果不超过2,000,000,000



很水的一道递推题,做过无数次的二维前缀和~不会的自行脑补吧、、


参考程序:

var     n,m,r,c,i,j:longint;
        sum,f,a:array[0..1001,0..1001]of int64;
        max:int64;
begin
        readln(n,m,r,c);
        for i:=1 to n do
                for j:=1 to m do
                        read(a[i,j]);
        for i:=1 to n do
                for j:=1 to m do
                        sum[i,j]:=a[i,j]+sum[i-1,j]+sum[i,j-1]-sum[i-1,j-1];
        for i:=r to n do
                for j:=c to m do
                begin
                        f[i,j]:=sum[i,j]-sum[i-r,j]-sum[i,j-c]+sum[i-r,j-c];
                        if f[i,j]>max then max:=f[i,j];
                end;
        writeln(max);
end.


第二题:

https://61.142.113.109/senior/#main/show/2554

题目描述:

2554. 【NOIP2011模拟9.7】帕秋莉·诺蕾姬 (Standard IO)

  在幻想乡,帕秋莉·诺蕾姬是以宅在图书馆闻名的魔法使。这一天帕秋莉又在考虑如何加强魔法咒语的威力。帕秋莉的魔法咒语是一个仅有大写字母组成的字符串,我们考虑从’A’到’Z’分别表示0到25的数字,于是这个魔法咒语就可以看作一个26进制数。帕秋莉通过研究发现,如果一个魔法咒语所代表的数能够整除10进制数M的话,就能够发挥最大的威力。若当前的魔法咒语并不能整除M,帕秋莉只会将其中两个字符的位置交换,尽量让它能够被M整除,当然由于某些咒语比较特殊,无论怎么改变都不能达到这个目的。请你计算出她能否只交换两个字符就让当前咒语被M整除。(首位的’A’为前导0)

Input

  第1行:1个字符串,长度不超过L。
  第2行:1个正整数,M

Output

  第1行:用空格隔开的2个整数,输出时先输位置靠前的那个。
  如果存在多种交换方法,输出字典序最小的,比如1 3和1 5都可以达到目的,就输出1 3;1 3和2 4都行时也输出1 3。注意字符串下标从左到右依次为1到L开始。如果初始魔法咒语已经能够整除M,输出”0 0”;若无论如何也不能到达目的输出”-1 -1”。

Sample Input

PATCHOULI
16

Sample Output

4 9

【数据范围】
  对于30%的数据:1 <= L <= 10, 1 <= M<= 100
  对于50%的数据:除前面30%外,1 <= L <= 500, M = 5或25或26
对于100%的数据:1 <= L <= 2,000, 1 <= M<= 200,000


刚开始先计算转成10进制后与m取余的结果,如果为0就输出‘0 0’,否则就把它记录下来。


之后枚举i,j,只要把第i位和第j位的指数交换一下在判断,如果成立就直接输出再退出程序。

如果到最后都没有结果就直接输出‘-1 -1’


参考程序:

var     s:ansistring;
        m,i,j,t,k:longint;
        ans1,ans2:int64;
        a:array[0..1000]of longint;
        f:array[0..1000]of longint;
begin
        readln(s);
        readln(m);
        a[0]:=length(s);
        for i:=1 to a[0] do
                a[i]:=ord(s[i])-65;
        f[a[0]]:=1;
        for i:=a[0]-1 downto 1 do
                f[i]:=f[i+1]*26 mod m;
        for i:=1 to a[0] do
                ans1:=(ans1+a[i]*f[i]) mod m;
        if ans1=0 then
        begin
                writeln(0,' ',0);
                exit;
        end;
        for i:=1 to a[0]-1 do
                for j:=i+1 to a[0] do
                begin
                        ans2:=(ans1-a[i]*f[i]-a[j]*f[j]+a[i]*f[j]+a[j]*f[i])mod m;
                        if ans2=0 then
                        begin
                                writeln(i,' ',j);
                                exit;
                        end;
                end;
        writeln(-1,' ',-1);
end.



第三题:

https://61.142.113.109/senior/#main/show/2555

题目描述:

2555. 【NOIP2011模拟9.7】雾雨魔理沙 (StandardIO)

  在幻想乡,雾雨魔理沙是住在魔法之森普通的黑魔法少女。话说最近魔理沙从香霖堂拿到了升级过后的的迷你八卦炉,她迫不及待地希望试试八卦炉的威力。在一个二维平面上有许多毛玉(一种飞行生物,可以视为点),每个毛玉具有两个属性,分值value和倍率mul。八卦炉发射出的魔法炮是一条无限长的直线形区域,可以视为两条倾斜角为α的平行线之间的区域,平行线之间的距离可以为任意值,如下图所示:
  
  蓝色部分上下两条长边之间就是这次八卦炉的攻击范围,在蓝色范围内的毛玉(红点)属于该此被击中的毛玉,如果一个毛玉刚好在边界上也视为被击中。毛玉击中以后就会消失,每次发射八卦炉得到分值是该次击中毛玉的分值和乘上这些毛玉平均的倍率,设该次击中的毛玉集合为S,则分值计算公式为:
  Score =SUM{value[i] | i 属于 S} *SUM{mul[i] | i 属于 S} / |S|
  其中|S|表示S的元素个数。魔理沙将会使用若干次八卦炉,直到把所有毛玉全部击中。任意两次攻击的范围均不重叠。最后得到的分值为每次攻击分值之和。现在请你计算出能够得到的最大分值。

Input

  第1行:1个整数N,表示毛玉个数
  第2..N+1行:每行四个整数x, y, value, mul,表示星星的坐标(x,y),以及value和mul
  第N+2行:1个整数α,表示倾斜角角度,0°到180°

Output

  第1行:1个实数,表示最大分值,保留三位小数

Sample Input

3

1 3 3 1

2 1 2 2

3 4 2 1

45

Sample Output

9.333

【数据范围】
  对于60%的数据:1 <= N <= 500
  对于100%的数据:1 <= N <= 2,000
  -10,000<= x,y <= 10,000
  1 <=value,mul <= 100
【注意】
  π = 3.1415926


看完题目我表示露出一脸懵逼的样子~严重超纲的一道变态题目。。。




第四题:

https://61.142.113.109/senior/#main/show/2556

题目描述:

2556. 【NOIP2011模拟9.7】伊吹萃香 (StandardIO)

  在幻想乡,伊吹萃香是能够控制物体密度的鬼王。因为能够控制密度,所以萃香能够制造白洞和黑洞,并可以随时改变它们。某一天萃香闲着无聊,在妖怪之山上设置了一些白洞或黑洞,由于引力的影响,给妖怪们带来了很大的麻烦。于是他们决定找出一条消耗体力最少的路,来方便进出。已知妖怪之山上有N个路口(编号1..N),每个路口都被萃香设置了一定质量白洞或者黑洞。原本在各个路口之间有M条单向路,走过每一条路需要消耗一定量的体力以及1个单位的时间。由于白洞和黑洞的存在,走过每条路需要消耗的体力也就产生了变化,假设一条道路两端路口黑白洞的质量差为delta:
  1. 从有白洞的路口走向有黑洞的路口,消耗的体力值减少delta,若该条路径消耗的体力值变为负数的话,取为0。
  2. 从有黑洞的路口走向有白洞的路口,消耗的体力值增加delta。
  3. 如果路口两端均为白洞或黑洞,消耗的体力值无变化。
  由于光是放置黑洞白洞不足以体现萃香的强大,所以她决定每过1个单位时间,就把所有路口的白洞改成黑洞,黑洞改成白洞。当然在走的过程中你可以选择在一个路口上停留1个单位的时间,如果当前路口为白洞,则不消耗体力,否则消耗s[i]的体力。现在请你计算从路口1走到路口N最小的体力消耗。保证一定存在道路从路口1到路口N。

Input

  第1行:2个正整数N, M
  第2行:N个整数,第i个数为0表示第i个路口开始时为白洞,1表示黑洞
  第3行:N个整数,第i个数表示第i个路口设置的白洞或黑洞的质量w[i]
  第4行:N个整数,第i个数表示在第i个路口停留消耗的体力s[i]
  第5..M+4行:每行3个整数,u, v, k,表示在没有影响的情况下,从路口u走到路口v需要消耗k的体力。

Output

  第1行:1个整数,表示消耗的最小体力

Sample Input

4 5

1 0 1 0

10 10 100 10

5 20 15 10

1 2 30

2 3 40

1 3 20

1 4 200

3 4 200

Sample Output

130

【数据范围】
  对于30%的数据:1 <= N <= 100, 1 <= M<= 500
  对于60%的数据:1 <= N <= 1,000, 1 <= M<= 5,000
  对于100%的数据:1 <= N <= 5,000, 1 <= M<= 30,000
  其中20%的数据为1 <= N <= 3000的链
  1 <= u,v<= N, 1 <= k,w[i],s[i] <= 200
【样例说明】
  按照1 -> 3-> 4的路线。



题目吐槽:我去这伊吹萃香闲着蛋疼嘛,放这么多白洞黑洞还要每一时刻让它们变化,纯心更妖怪之山有仇吗?!!


spfa加上一大堆奇奇怪怪的东西,仔细调试就可以AC了


参考代码:

var     n,m,i,j,x,y,t,t2,l,r,p,z:longint;    
		a,b:array[1..5000]of longint;
        c1,c2:array[1..5000,0..200]of longint;
        data:array[1..100000,1..2]of longint;
        dis:array[1..5000,0..1]of longint;
        s:array[1..5000]of longint;
begin
        readln(n,m);
        for i:=1to n doread(a[i]);
        for i:=1to n doread(b[i]);
        for i:=1to n doread(s[i]);
        for i:=1to m do
        begin
                readln(x,y,t);
                inc(c1[x,0]);
                c1[x,c1[x,0]]:=y;
                c2[x,c1[x,0]]:=t;
        end;
        l:=0;
        r:=1;
        fillchar(dis,sizeof(dis),100);
        data[1,1]:=1;
        data[1,2]:=0;
        dis[1,0]:=0;
        dis[1,1]:=s[1];
        while l<>r do
        begin
                inc(l);
                if l>100000then l:=1;
                t:=data[l,1];
                t2:=data[l,2];
                for i:=1to c1[t,0] do
                begin
                        inc(r);
                        if r>100000then r:=1;
                        data[r,1]:=c1[t,i];
                        data[r,2]:=1-t2;
                        x:=(a[t]+t2)mod2;
                        y:=(a[c1[t,i]]+t2)mod2;
                        p:=abs(b[t]-b[c1[t,i]]);
                        z:=c2[t,i];
                        if (x=0) and (y=1) then z:=z-p else
                        if (x=1) and (y=0) then z:=z+p;
                        if z<0then z:=0;
                        if dis[c1[t,i],data[r,2]]>dis[t,t2]+z then
                                dis[c1[t,i],data[r,2]]:=dis[t,t2]+z else
                                begin
                                        dec(r);
                                        if r=0then r:=100000;
                                end;
                end;
                inc(r);
                if r>100000then r:=1;
                data[r,1]:=data[l,1];
                data[r,2]:=1-t2;
                x:=dis[t,t2];
                if (t2+a[t])mod2=1then x:=x+s[t];
                if x<dis[t,data[r,2]] then dis[t,data[r,2]]:=x else
                begin
                        dec(r);
                        if r=0then r:=100000;
                end;
        end;
        if dis[n,0]<dis[n,1] then writeln(dis[n,0]) else writeln(dis[n,1]);
end.

 


第三题:

https://61.142.113.109/senior/#main/show/2555

题目描述:

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值