poj1062 昂贵的聘礼 dij

题目大意

  中文题，题目大意就不说了。（注意，等级限制是包括间接地交易的。如一的等级是3，二的等级是5,三的等级是7，等级限制是2；那就不能一和二交易，二又和三交易，因为一和三的等级相差超过2）

分析

  如果没有等级限制，那就分两步：

  一．建图，把每个物品看成一个节点，酋长的允诺也看作一个物品（点1），如果一个物品加上金币可以交换另一个物品，则这两个节点之间有边，权值为金币数，把0点和其他点都相连，权值为所连的物品的原价。（注意，是有向图）

  二．Dij，从0点出发，求到1点的最短路径.

  有等级限制，那就枚举等级下限。

代码

var
  f:array[1..200,1..200] of longint;
  v,d,a:array[0..200] of longint;
  i,j,k,l,x:longint;
  n,m:longint;
  ans,max:longint;

begin
  readln(m,n);
  fillchar(f,sizeof(f),$7f div 2);
  for i:=1 to n do
    begin
      readln(l,a[i],k);
      f[n+1,i]:=l;
      for j:=1 to k do
        begin
          read(x);
          readln(f[x,i]);
        end;
    end;
  n:=n+1;
  ans:=maxlongint;
  for x:=a[1]-m to a[1] do
  begin
  fillchar(d,sizeof(d),$7f div 2);
  fillchar(v,sizeof(v),0);
  d[n]:=0;
  for i:=1 to n do
    begin
      k:=maxlongint;
      l:=0;
      for j:=1 to n do
        if (v[j]=0) and (d[j]<k) and ((a[j]>=x) and (a[j]<=x+m) or (j=n))
          then
            begin
              k:=d[j];
              l:=j;
            end;
      v[l]:=1;
      if l=0 then break;
      for j:=1 to n do
        if (d[l]+f[l,j]<d[j]) and ((a[j]>=x) and (a[j]<=x+m) or (j=n))
          then d[j]:=d[l]+f[l,j];
    end;
  if ans>d[1] then ans:=d[1];
  end;
  write(ans);
end.