【Nescafé 31】杯NOIP模拟赛

t1

题意：n*m的棋盘上从(1,1)走到(n,m)，只能向下或向右，一些格子有老鼠，每个老鼠互不相同，当处于与老鼠有重边的格子时，视为看见了这只老鼠，求到终点看到最少的不同老鼠数。

分析：DP 由于求得是看到的不同的老鼠数目，不能直接用过河卒做，因为同一个位置的老鼠可能会统计多次，我们还需要增加一维即方向。

f[i,j,0]表示到从上面一个格子走到(i,j)时最少老鼠数,f[i,j,1]表示左边。

f[i,j,0]:=min(f[i-1,j,0]+a[i,j-1],f[i-1,j,1])+a[i+1,j]+a[i,j+1];

f[i,j,1]:=min(f[i,j-1,1]+a[i-1,j],f[i,j-1,0])+a[i+1,j]+a[i,j+1];

对于(i,j)如果左边有老鼠，那么从(i-1,j-1)走到(i-1,j)再到(i,j)会看到该老鼠两次但只能记为1次，(i-2,j)走到(i-1,j)再到(i,j)时只看到该老鼠一次，故要加上这一次。上边有老鼠也同理。

代码：

program mouse;
var
  a:array[..,..]of longint;
  f:array[..,..,..]of longint;
  n,i,m,j:longint;
function min(x,y:longint):longint;
begin
  if x<y then min:=x else min:=y;
end;
begin
  assign(input,'mouse.in');
reset(input);
assign(output,'mouse.out');
rewrite(output);
  readln(n,m);
  for i:= to n do begin
   for j:= to m do
     read(a[i,j]);  readln; end;
  for i:= to n do
    for j:= to m do
     begin
      f[i,j,]:=maxlongint div ;f[i,j,]:=maxlongint div ;
     end;
  f[,,]:=a[,]+a[,]+a[,]; f[,,]:=a[,]+a[,]+a[,];
  for i:= to n do
    for j:= to m do
    if (i<>)or(j<>) then
     begin
       f[i,j,]:=min(f[i-,j,]+a[i,j-],f[i-,j,])+a[i+,j]+a[i,j+];
       f[i,j,]:=min(f[i,j-,]+a[i-,j],f[i,j-,])+a[i+,j]+a[i,j+];
     end;
  writeln(min(f[n,m,],f[n,m,]));
  close(input); close(output);
end.

t2

题意：给出一个无向有权图，图的每个点为一个城市，我们说城市B愿意与城市A建立合作关系，当且仅当对于所有满足d(A,C)<=d(A,B)的城市C，都有R(C)<=R(B)。一个城市的受欢迎程度Bi定义为愿意与其建立合作关系的城市数量，求所有城市受欢迎度和（可以和自己建立关系）

分析：最短路，我们可以将条件转化为对于所有R(c)>R(B)的城市C，都有d(A,C)>d(A,B),我们设l[i]为满足R(x)>R(i)的点到i的最短路，从大到小枚举r的值，然后对R(i)=r的点做最短路，如果在这一过程中某个点d(i,j)<=l[j]说明不可行，则不去松弛。

代码：

program work;
type
  point=^node;
   node=record
     x,v:longint; next:point;
   end;
var
  a:array[..]of point;
  l,r,d,g,w,d1:array[..]of longint;
  q:array[..]of longint;
  n,i,m,ans,x,y,v,j:longint;
procedure add(x,y,v:longint);
var p:point;
begin
  new(p); p^.x:=y; p^.v:=v; p^.next:=a[x]; a[x]:=p;
end;
procedure spfa(s:longint);
var h,t,x,y,k:longint; p:point;
begin
  h:=; t:=; q[]:=s; d[s]:=; d1[s]:=; g[s]:=s;w[s]:=s; inc(ans);
  while h<t do
   begin
     inc(h); x:=q[h]; new(p); p:=a[x]; g[x]:=;
     if h>= then h:=;
     while p<>nil do
      begin
        y:=p^.x; k:=d1[x]+p^.v;
        if k<l[y] then
         if (w[y]<>s)or(k<d1[y]) then
          begin
            d1[y]:=k;  if d1[y]<d[y] then d[y]:=d1[y];
            if w[y]<>s then begin w[y]:=s; inc(ans); end;
            if g[y]<>s then
             begin
               g[y]:=s; inc(t); q[t]:=y;
               if t>= then t:=;
             end;
          end;
        p:=p^.next;
      end;
   end;
end;
begin
  readln(n,m);
  for i:= to n do readln(r[i]);
  for i:= to m do
   begin
     readln(x,y,v); add(x,y,v); add(y,x,v);
   end;
  ans:=;
  for i:= to n do l[i]:=maxlongint;
  for i:= downto  do
   begin
     for j:= to n do
       begin d[j]:=maxlongint div ; g[j]:=; w[j]:=; end;
     for j:= to n do
      if r[j]=i then spfa(j);
     for j:= to n do
      if d[j]<l[j] then l[j]:=d[j];
   end;
  writeln(ans);
end.