洛谷9月月赛2

t1

题意:懒得说了

分析:模拟

代码:

program flag;
var
a:array[..,..]of char;
n,i,m,j,x,y,ans,k:longint;
begin
assign(input,'flag.in');
reset(input);
assign(output,'flag.out');
rewrite(output);
readln(n,m);
for i:= to n do begin
for j:= to m do
read(a[i,j]); readln;
end;
k:=maxlongint;
for i:= to n- do
for j:=i+ to n do
begin
ans:=;
for x:= to i do
for y:= to m do
if a[x,y]<>'W' then inc(ans);
for x:=i+ to j- do
for y:= to m do
if a[x,y]<>'B' then inc(ans);
for x:=j to n do
for y:= to m do
if a[x,y]<>'R' then inc(ans);
if ans<k then k:=ans;
end;
writeln(k);
close(input); close(output);
end.

t2

题意:无向无权图中,有k个点是禁止点,不可经过,与禁止点距离不超过s的点是危险点,可以经过,通过普通点花费为p,通过危险点花费为q,求1到n最小花费。

分析:;将0对所有禁止点,以0为起点建边跑最短路,凡是距离<=s+1的且不是禁止点的点标记为危险点,然后以1为起点跑最短路,花费为各点权值,注意最后一个点不交费,要在输出时减去在该点的花费(有两种情况,终点为危险点或普通点),记得用int64,另外dis初值要设很大。

program run;
type
point=^node;
node=record
x:longint; next:point;
end;
var
a:array[..]of point;
q:array[..]of longint;
dis,mk:array[..]of int64;
g:array[..]of boolean;
n,m,k,maxs,ppp,qqq,x,y:int64; i:longint;
procedure add(x,y:longint);
var p:point;
begin
new(p); p^.x:=y; p^.next:=a[x]; a[x]:=p;
end;
procedure spfa(s:longint);
var h,t,x,y,cost:int64; i:longint; p:point;
begin
for i:= to n do dis[i]:=maxlongint*;
for i:= to n do g[i]:=false;
h:=; t:=; q[]:=s; g[s]:=true; dis[s]:=;
while h<t do
begin
inc(h); x:=q[h]; new(p); p:=a[x]; g[x]:=false;
if h>= then h:=;
while p<>nil do
begin
y:=p^.x;
if not((s=)and(mk[y]=)) then
begin
if s= then cost:=;
if s= then
if mk[y]= then cost:=ppp else cost:=qqq;
if dis[x]+cost<dis[y] then
begin
dis[y]:=dis[x]+cost;
if g[y]=false then
begin
inc(t); q[t]:=y; g[y]:=true;
if t>= then t:=;
end;
end;
end;
p:=p^.next;
end;
end;
end;
begin
readln(n,m,k,maxs); readln(ppp,qqq);
for i:= to k do
begin
readln(x); mk[x]:=; add(,x);
end;
for i:= to m do
begin
readln(x,y); add(x,y); add(y,x);
end;
spfa();
for i:= to n do
if dis[i]<=maxs+ then begin
if mk[i]< then mk[i]:=;
end;
spfa();
if n= then writeln() else
if mk[n]= then writeln(int64(dis[n]-ppp)) else writeln(int64(dis[n]-qqq));
end.

t3

题意:给出一段行走命令,机器人连续执行k次,每走一次放一个标记,求四角被标记的正方形个数。

分析:有一个乱搞方法是走4次找出被标记的个数然后得到k次的,正解懒得写了。

洛谷9月月赛round2的更多相关文章

  1. 洛谷4月月赛R2

    洛谷4月月赛R2 打酱油... A.koishi的数学题  线性筛约数和就可以\(O(N)\)了... #include <iostream> #include <cstdio> ...

  2. 洛谷3月月赛 R1 Step! ZERO to ONE

    洛谷3月月赛 R1 Step! ZERO to ONE 普及组难度 290.25/310滚粗 t1 10分的日语翻译题....太难了不会... t2 真·普及组.略 注意长为1的情况 #include ...

  3. 【洛谷5月月赛】玩游戏(NTT,生成函数)

    [洛谷5月月赛]玩游戏(NTT,生成函数) 题面 Luogu 题解 看一下要求的是什么东西 \((a_x+b_y)^i\)的期望.期望显然是所有答案和的平均数. 所以求出所有的答案就在乘一个逆元就好了 ...

  4. 【LGR-054】洛谷10月月赛II

    [LGR-054]洛谷10月月赛II luogu 成功咕掉Codeforces Round #517的后果就是,我\(\mbox{T4}\)依旧没有写出来.\(\mbox{GG}\) . 浏览器 \( ...

  5. 【LGR-051】洛谷9月月赛

    [LGR-051]洛谷9月月赛 luogu 签到题 description 给出\(K\)和质数\(m\),求最小的\(N\)使得\(111....1\)(\(N\)个\(1\))\(\equiv k ...

  6. 「LGR-049」洛谷7月月赛 D.Beautiful Pair

    「LGR-049」洛谷7月月赛 D.Beautiful Pair 题目大意 : 给出长度为 \(n\) 的序列,求满足 \(i \leq j\) 且 $a_i \times a_j \leq \max ...

  7. 「P4996」「洛谷11月月赛」 咕咕咕(数论

    题目描述 小 F 是一个能鸽善鹉的同学,他经常把事情拖到最后一天才去做,导致他的某些日子总是非常匆忙. 比如,时间回溯到了 2018 年 11 月 3 日.小 F 望着自己的任务清单: 看 iG 夺冠 ...

  8. 「P4994」「洛谷11月月赛」 终于结束的起点(枚举

    题目背景 终于结束的起点终于写下句点终于我们告别终于我们又回到原点…… 一个个 OIer 的竞赛生涯总是从一场 NOIp 开始,大多也在一场 NOIp 中结束,好似一次次轮回在不断上演.如果这次 NO ...

  9. 「LuoguP4995」「洛谷11月月赛」 跳跳!(贪心

    题目描述 你是一只小跳蛙,你特别擅长在各种地方跳来跳去. 这一天,你和朋友小 F 一起出去玩耍的时候,遇到了一堆高矮不同的石头,其中第 ii 块的石头高度为 h_ihi​,地面的高度是 h_0 = 0 ...

随机推荐

  1. postman传递参数的问题

    postman是一款通过post或者get发送请求测试代码的工具 如果是类的话,就选择JSON格式,如果是一个字段的方法,就直接写入方法值就好了比如 public PageResult<Info ...

  2. ETL工具--DataX3.0实战

    DataX是一个在异构的数据库/文件系统之间高速交换数据的工具,实现了在任意的数据处理系统(RDBMS/Hdfs/Local filesystem)之间的数据交换,由淘宝数据平台部门完成. DataX ...

  3. SQL Server中通用数据库角色权限的处理详解

    SQL Server中通用数据库角色权限的处理详解 前言 安全性是所有数据库管理系统的一个重要特征.理解安全性问题是理解数据库管理系统安全性机制的前提. 最近和同事在做数据库权限清理的事情,主要是删除 ...

  4. 安装mysql提示This application requires .NET framework 4.0.

    问题描述:安装MySQL社区版时遇到This application requires .NET framework 4.0. 解决方法:在http://search.microsoft.com/zh ...

  5. 使用Servlet根据浏览器request的get方法获取值,将磁盘中与之对应的json数据删除的方法

    package com.swift; import java.io.BufferedReader; import java.io.File; import java.io.FileInputStrea ...

  6. vs对某些网络错误的拦截

    在编写代码的过程中发现如果在写好网页中的文本框内写入js代码(以<script>1</script>输入为例) vs会自动拦截并报错,如图(密码中我也输入了<script ...

  7. 5.Cisco Packet Tracer里关于交换机或路由器配置文件和系统映像备份与恢复

    我们会将交换机或路由器的配置文件和系统镜像直接备份到tftp服务器上,所以我们需要准备一台tftp的服务器 1我们需要给服务器配一个ip地址,给路由器的f0/1端口配置一个ip地址,路由器与服务器能相 ...

  8. nginx Keepalived高可用集群

    一.Keepalived高可用 1.简介 Keepalived软件起初是专为LvS负载均衡软件设计的,用来管理并监控LVS集群系统中各个服务节点的状态,后来又加入了可以实现高可用的VRRP功能.因此, ...

  9. 【TP】TP如何向模板中的js传变量

    <input type="hidden" class= "val" value = "{$value}" /> <scri ...

  10. [BZOJ1597][Usaco2008 Mar]土地购买(斜率优化)

    Description 农夫John准备扩大他的农场,他正在考虑N (1 <= N <= 50,000) 块长方形的土地. 每块土地的长宽满足(1 <= 宽 <= 1,000, ...