最短路

题目:

题目背景

狗哥做烂了最短路,突然机智的考了Bosh一道,没想到把Bosh考住了…你能帮Bosh解决吗?

他会给你100000000000000000000000000000000000%10金币w

题目描述

给定n个点的带权有向图,求从1到n的路径中边权之积最小的简单路径。

输入输出格式

输入格式:
第一行读入两个整数n,m,表示共n个点m条边。 接下来m行,每行三个正整数x,y,z,表示点x到点y有一条边权为z的边。

输出格式:
输出仅包括一行,记为所求路径的边权之积,由于答案可能很大,因此狗哥仁慈地让你输出它模9987的余数即可。

废话当然是一个数了w

//谢fyszzhouzj指正w

对于20%的数据,n<=10。

对于100%的数据,n<=1000,m<=1000000。边权不超过10000。

作者思路:显然,用最短路。
先找出最值路径,再搜最短路。
注意要赋初始值10001。

代码:

uses math;
var a:array[0..1001,0..1001] of longint;
    f:array[0..1001] of longint;
    n,m:longint;
procedure init;
var x,y,z,i,j:longint;
begin
  read(n,m);
  for i:=1 to n do
    for j:=1 to n do
      if i<>j then a[i,j]:=10001;
  for i:=1 to m do
  begin
    read(x,y,z);
    a[x,y]:=min(a[x,y],z);
  end;
  for i:=1 to n do f[i]:=10001;
end;
procedure short;
var b:array[0..1001] of boolean;
    i,j,k,xmin:longint;
begin
  fillchar(b,sizeof(b),false);
  for i:=1 to n do f[i]:=a[1,i];
  b[1]:=true;
  for i:=1 to n-1 do
  begin
    xmin:=maxlongint; k:=0;
    for j:=1 to n do
      if not(b[j]) then
      begin
        xmin:=min(f[j],xmin); k:=j;
      end;
    b[k]:=true;
    if k=0 then break;
    for j:=1 to n do
      if not(b[j]) then
        f[j]:=min(f[j],a[k,j]*f[k]mod 9987);

  end;
end;
begin
  init;
  short;
  write(f[n]);
end.
  • 2
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值