注意普通路径是双向的
program P3259;
var
f,n,m,w,i,j:longint;
s,e,t:longint;
map:array[1..2500,1..3] of longint;
wmap:array[1..300,1..3] of longint;
d:array[1..2500] of longint;
flag:boolean;
procedure relax(u,v,w:longint);
begin
if (d[v]>d[u]+w) then
begin
d[v]:=d[u]+w;
flag:=false;
end;
end;
procedure bellman_ford;
var
i,j:longint;
begin
for i:=1 to n do
begin
flag:=true;
for j:=1 to m do
begin
relax(map[j,1],map[j,2],map[j,3]);
relax(map[j,2],map[j,1],map[j,3]);
end;
for j:=1 to w do relax(wmap[j,1],wmap[j,2],-wmap[j,3]);
if flag then break;
end;
if flag then writeln('NO') else writeln('YES');
end;
begin
read(f);
while f>0 do
begin
fillchar(map,sizeof(map),0);
fillchar(wmap,sizeof(wmap),0);
fillchar(d,sizeof(d),0);
read(n,m,w);
for i:=1 to m do
begin
read(map[i,1],map[i,2],map[i,3]);
end;
for i:=1 to w do read(wmap[i,1],wmap[i,2],wmap[i,3]);
bellman_ford;
dec(f);
end;
end.
分享到:
相关推荐
北大POJ3259-Wormholes【Bellman】 解题报告+AC代码
POJ3259--Wormholes,使用bellman方法。
POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类
poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题...
POJ第1861题源码 POJ第1861题源码 POJ第1861题源码
poj分类poj分类poj分类poj分类
北大POJ1159-Palindrome 解题报告+AC代码
poj 3414解题报告poj 3414解题报告poj 3414解题报告poj 3414解题报告
poj 1012解题报告poj 1012解题报告poj 1012解题报告poj 1012解题报告
poj 2329解题报告poj 2329解题报告poj 2329解题报告poj 2329解题报告
poj 1659解题报告poj 1659解题报告poj 1659解题报告poj 1659解题报告
C语言 poj npu 西工大 C语言Poj答案全完整打包,给有需要的朋友
POJ1503解答 POJ1503解答,正确答案(已通过POJ)
POJ1083的代码,POJ1083的代码,POJ1083的代码
poj 百练 题目分类 poj 百练 题目分类
POJ1048,加强版的约瑟夫问题 难度中等
北大POJ2002-Squares 解题报告+AC代码
poj 1001答案
POJ2968代码有用,欢迎下载,POJ代码
poj 1440解题报告 poj 1440解题报告 poj 1440解题报告 poj 1440解题报告