Cod sursa(job #1519847)

Utilizator VandheerManPopescu Alin VandheerMan Data 7 noiembrie 2015 22:12:27
Problema Algoritmul lui Dijkstra Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.51 kb
program dijkstra;

var
f:text;
a:array[1..31000,1..31000] of integer;
i,j,n,m,k,x:longint;

begin
 assign(f,'dijkstra.in');
 reset(f);
 for i:=1 to n do for j:=1 to n do a[i,j]:=0;
 readln(f,n,m);
 for i:=1 to m do
        begin
        read(f,j,k,x);
        a[j,k]:=x;
       end;
 for k:=2 to n do for j:=2 to n do
        if (k<>j) and (a[1,k]<>0) and (a[k,j]<>0) and ((a[1,k]+a[k,j]<a[1,j]) or (a[1,j]=0)) then a[1,j]:=a[1,k]+a[k,j];
 for i:=2 to n do write(a[1,i],' ');
 close(f);
 readln;
end.