Pagini recente » Cod sursa (job #2658131) | Cod sursa (job #3135671) | Cod sursa (job #3146916) | Cod sursa (job #3204935) | Cod sursa (job #1620338)
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.