NOIP模拟赛

Posted QTY_YTQ的博客

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了NOIP模拟赛相关的知识,希望对你有一定的参考价值。

洛谷9月月赛2

t1

题意:懒得说了

分析:模拟

代码:

program flag;
var
  a:array[0..51,0..51]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:=1 to n do begin
   for j:=1 to m do
     read(a[i,j]);  readln;
  end;
  k:=maxlongint;
  for i:=1 to n-2 do
   for j:=i+2 to n do
    begin
      ans:=0;
      for x:=1 to i do
       for y:=1 to m do
        if a[x,y]<>\'W\' then inc(ans);
      for x:=i+1 to j-1 do
       for y:=1 to m do
        if a[x,y]<>\'B\' then inc(ans);
      for x:=j to n do
       for y:=1 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.
View Code

 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[0..100000]of point;
  q:array[0..300000]of longint;
  dis,mk:array[0..100000]of int64;
  g:array[0..100000]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:=0 to n do dis[i]:=maxlongint*10000;
  for i:=0 to n do g[i]:=false;
  h:=0; t:=1; q[1]:=s; g[s]:=true; dis[s]:=0;
  while h<t do
   begin
     inc(h); x:=q[h]; new(p); p:=a[x]; g[x]:=false;
     if h>=300000 then h:=0;
     while p<>nil do
      begin
        y:=p^.x;
        if not((s=1)and(mk[y]=2)) then
        begin
         if s=0 then cost:=1;
         if s=1 then
          if mk[y]=0 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>=300000 then t:=0;
             end;
          end;
        end;
        p:=p^.next;
      end;
   end;
end;
begin
  readln(n,m,k,maxs); readln(ppp,qqq);
  for i:=1 to k do
   begin
     readln(x); mk[x]:=2; add(0,x);
   end;
  for i:=1 to m do
   begin
     readln(x,y); add(x,y); add(y,x);
   end;
  spfa(0);
  for i:=0 to n do
   if dis[i]<=maxs+1 then begin
    if mk[i]<2 then mk[i]:=1;
   end;
  spfa(1);
  if n=1 then writeln(0) else
  if mk[n]=0 then writeln(int64(dis[n]-ppp)) else writeln(int64(dis[n]-qqq));
end.
View Code

 t3

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

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

以上是关于NOIP模拟赛的主要内容,如果未能解决你的问题,请参考以下文章

NOIP模拟赛16

NOIp模拟赛value

2017 10.25 NOIP模拟赛

ztz11的noip模拟赛T3:评分系统

XJOI NOIP模拟题1

YYH的营救计划(NOIP模拟赛Round 6)