Pagini recente » Cod sursa (job #1730000) | Cod sursa (job #333537) | Cod sursa (job #340404) | Cod sursa (job #1261270) | Cod sursa (job #1620336)
program bellman;
var t1,t2,t3,start,fr,co,d:array of longint;
viz:array of 0..1;
f,g:text;
procedure citire;
var k,x,y,i,z:longint;
begin
assign(f,'bellmanford.in');reset(f);
readln(f,n,m);
setlength(t1,n+1);
setlength(t2,n+1);
setlength(t3,n+1);
setlength(co,2*m+1);
setlength(start,n+1);
setlength(fr,n+1);
setlength(viz,n+1);
setlength(d,)
k:=0;
for i:=1 to n do
begin
inc(k);
readln(f,x,y,z);
t1[k]:=y;
t2[k]:=start[x];
start[x]:=k;
t3[k]:=z;
end;
close(f);
end.
procedure bellman
var p,:longint;
begin
for i:=1 to n do
d[i]:maxlongin;
end.
begin
citire;
belman;
afisare;
end.