Cod sursa(job #1620338)

Utilizator TirauStelianTirau Ioan Stelian TirauStelian Data 29 februarie 2016 07:59:29
Problema Algoritmul Bellman-Ford Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.75 kb
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.