• jzoj_1001_最难的问题_Floyd


    Description

      这是一个很难的问题,你要找出“12345678987654321!”答案里一共含有多少个“0”,“!”表示阶乘的意思。
      其实,我是在开玩笑的,地球上没有人真正能成功的解决这个问题。
      实际上,我是一个间谍,我从敌人手中偷取了一些很重要的秘密,我只想以尽量少的时间离开敌人的基地。
    敌人的基地地图可以用一张网络图表示,交叉路口可表示为结点,通路可表示为边,我需要从基地总部逃出到撤离点。到底怎样走才最快呢?幸好我有一台超强的掌上电脑,请尽快帮我解决这个问题!

    Input

      数据第一行是两个整数N和M,(1<=N<=200,0<=M<=10000),分别表示交叉路口数量与通路数量。接下来M行每行有三个整数i,j,k(i!=j,1<=k<=10000),表示有一条长度为k的无向通路连接路口i与路口j。注意路口i与路口j间可能有多条不同长度的通路。
    你可以假定交叉路口是用1到n的整数来标识的,编号1是基地总部,编号n是撤离

    Output

      输出只有一个整数,为最短的逃离距离,如果不可能逃出,则输出“-1”。

    Solutions

    练个手而已,见代码

    代码

    var
      n,m:longint;
      a:array [0..201,0..201] of longint;
    function min(o,p:longint):longint;
    begin
      if o<p then exit(o);
      exit(p);
    end;
    
    procedure init;
    var
      i,x,y,z:longint;
    begin
      fillchar(a,sizeof(a),63);
      readln(n,m);
      for i:=1 to m do
        begin
          readln(x,y,z);
          a[x,y]:=min(a[x,y],z);
          a[y,x]:=min(a[y,x],z);
        end;
      for i:=1 to n do
        a[i,i]:=0;
    end;
    
    procedure floyd;
    var
      i,j,k:longint;
    begin
      for k:=1 to n do
        for i:=1 to n do
          for j:=1 to n do
            a[i,j]:=min(a[i,j],a[i,k]+a[k,j]);
    end;
    
    begin
      init;
      floyd;
      if a[1,n]=a[0,0] then writeln('-1')
                       else writeln(a[1,n]);
    end.
    
    
  • 相关阅读:
    150个JS特效脚本
    .sql文件被加密恢复
    Alpha865qqz.id 加密数据库恢复
    最新incaseformat 病毒删除文件恢复
    Oracle MISSING00000文件故障恢复
    asm 磁盘分区丢失恢复----惜分飞
    oracle数据文件0kb恢复
    ORA-600 16703--oracle介质被注入恶意脚本
    GANDCRAB病毒oracle数据库恢复
    文件系统损坏,oracle数据库恢复
  • 原文地址:https://www.cnblogs.com/zyx-crying/p/9319496.html
Copyright © 2020-2023  润新知