spfa

原创 2015年07月10日 09:46:32

program spfa;
const
maxp=10000;
var
p,c,s,t:longint;
a,b:array[1..maxp,0..maxp]of longint;
d:array[1..maxp]of longint;
v:array[1..maxp]of boolean;
dist:array[1..maxp]of longint;
head,tail:longint;
procedure init;
var
i,x,y,z:longint;
begin
read(p,c);
for i:=1 to c do
begin
readln(x,y,z);
inc(b[x,0]);b[x,b[x,0]]:=y;a[x,y]:=z;
inc(b[y,0]);b[y,b[x,0]]:=x;a[y,x]:=z;{wu xiang zhuan yong}
end;
readln(s,t);
end;
procedure spaf(s:longint);
var
i,j,now,sum:longint;
begin
 fillchar(d,sizeof(d),0);
 fillchar(v,sizeof(v),false);
 for j:=1 to p do dist[j]:=maxlongint;
 dist[s]:=0; v[s]:=true;d[1]:=s;
 head:=1;tail:=1;
 while head<=tail do
 begin
 now:=d[head];
 for i:=1 to b[now,0]do
 if dist[b[now,i]]>dist[now]+a[now,b[now,i]] then
 begin
 dist[b[now,i]]:=dist[now+a[now,b[now,i]]];
 if not v[b[now,i]] then
 begin
 inc(tail);
 d[tail]:=b[now,i];
 v[b[now,i]]:=true;
 end;end;end;end;
 procedure print;
 begin
 writeln(dist[t]);
 end;
begin
 assign(input,'input.txt');
 assign(output,'output.txt');
 reset(input);
 rewrite(output);
 init;
 spaf(s);
 print;
 close(input);
 close(output);
end.

const maxp=10000;
var p,c,s,t:longint;
 a,b:array[1..maxp,0..maxp]of longint;
 d:array[1..maxp]of integer;
v:array[1..maxp]of boolean;
dist:array[1..maxp]of longint;
head,tail:longint;
procedure init;
var  i,x,y,z:longint;
begin
read(p,c); for i:=1 to c do
begin
readln(x,y,z);
inc(b[x,0]);b[x,b[x,0]]:=y;a[x,y]:=z;
inc(b[y,0]);b[y,b[y,0]]:=x;a[y,x]:=z;
end;
readln(s,t);
end;
procedure spfa(s:longint);
var  i,j,now,sum:longint;
begin
fillchar(d,sizeof(d),0);
fillchar(v,sizeof(v),false);
for j:=1 to p do dist[j]:=maxlongint;
dist[s]:=0; v[s]:=true; d[1]:=s;
head:=1; tail:=1; while head<=tail do
begin
now:=d[head];
for i:=1 to b[now,0] do
if dist[b[now,i]]>dist[now]+a[now,b[now,i]] then
begin
dist[b[now,i]]:=dist[now]+a[now,b[now,i]];
if not v[b[now,i]] then
begin
inc(tail);
d[tail]:=b[now,i];
v[b[now,i]]:=true; end; end;
v[now]:=false;
inc(head);
end; end;
procedure print;
begin
writeln(dist[t]);
end;
begin
init;
spfa(s);
print;
end.


program p111;
const
 maxp=10000;
var
 p,c,s,t:longint;
 a,b:array[1..maxp,0..maxp] of longint;
 d,time:array[1..maxp] of integer;
 v:array[1..maxp] of boolean;
 dist:array[1..maxp] of longint;
 head,tail:longint;
procedure init;
var
 i,x,y,z:longint;
begin
 read(p,c);
 for i:=1 to c do
  begin
   readln(x,y,z);
   inc(b[x,0]);b[x,b[x,0]]:=y;a[x,y]:=z;
  end;
 readln(s,t);
end;
procedure spfa(s:longint);
var
 i,j,now,sum:longint;
begin
 fillchar(d,sizeof(d),0);
 fillchar(v,sizeof(v),false);
 for j:=1 to p do dist[j]:=maxlongint;
dist[s]:=0; v[s]:=true; d[1]:=s;
head:=1; tail:=1;
while head<=tail do
 begin
  now:=d[head];
  for i:=1 to b[now,0] do
   if dist[b[now,i]]>dist[now]+a[now,b[now,i]] then
    begin
     dist[b[now,i]]:=dist[now]+a[now,b[now,i]];
     if not v[b[now,i]] then
      begin
       inc[tail]:=b[now,i];
       v[b[now,i]]:=true;
       inc(time[b[now,i]]);
       if time[b[now,i]]>p then begin write('no'); halt; end;
      end;
    end;
  v[now]:=false;
  inc(head);
 end;
end;
procedure print;
begin
 init;
 safa(s);
 print;
end.

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

SPFA算法.ppt

  • 2015年08月04日 15:15
  • 34KB
  • 下载

java spfa 算法 demo 最短路径双向

  • 2013年12月10日 17:35
  • 4KB
  • 下载

最短路练习14/poj/3169 Layout 差分约束spfa解法

题意: 有n头牛,按照序号1……n排队,多头牛可以站在同一个位置(暂且这么认为),也就是任意两头牛之间的距离都大于等于0。先给出ml组约束关系(u,v,w)代表第u牛和第v牛之间的距离要小于等于w。再...

SPFA算法的优化及应用

  • 2011年09月23日 13:07
  • 467KB
  • 下载

dijkstra和spfa

  • 2017年11月14日 14:55
  • 2KB
  • 下载

【洛谷 P1186】玛丽卡 spfa+删边

题目描述麦克找了个新女朋友,玛丽卡对他非常恼火并伺机报复。因为她和他们不住在同一个城市,因此她开始准备她的长途旅行。在这个国家中每两个城市之间最多只有一条路相通,并且我们知道从一个城市到另一个城市路上...

最短路SPFA

  • 2012年12月02日 20:28
  • 20KB
  • 下载

AOE网上的关键路径——spfa+前向星

Think: 1知识点:spfa+前向星 2题目分析:字典序最小——逆序建图——建议参考博客SDUT题目链接#include using namespace std;const int Inf =...

SPFA算法源代码

  • 2012年11月21日 20:26
  • 1KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:spfa
举报原因:
原因补充:

(最多只允许输入30个字)