ЗАдача форда-беллмана

@ggod · Регистрация: 03.03.2010

Студворк — интернет-сервис помощи студентам

Нужна помощь в решении трансортной задачи методом беллмана форда где нужно найти кратчайший путь на графиках с вершины 1 до любой другой вершины.

@ggod · 03.11.2011, 22:57 **[ТС]**

чё ни кто не поможет даже ссылочку ни кто не кинет??

@Small Lamer · 04.11.2011, 23:17

Pascal

uses math;
const inf=1000000000;
type m1=record
    a,b,x:longint;
end;
var
    n,m,i,k,j,v,u,t:longint;
    e:array[1..20000] of m1;
    d:array[1..10000] of longint;
 
procedure Add(x,y,z:longint); 
begin
    k:=k+1;
    e[k].a:=x;
    e[k].b:=y;
    e[k].x:=z;
end;
 
begin
 
    readln(n,m);
    for i:=1 to m do begin
    
        readln(v,u,t);
        Add(v,u,t);
    
    end;
 
    d[1]:=0;
    for i:=2 to n do d[i]:=inf;
 
    for i:=1 to n do 
        for j:=1 to k do 
            d[e[j].b]:=min(d[e[j].b],d[e[j].a]+e[j].x);
 
    for i:=1 to n do write(d[i],' ');
 
end.

@riv94 · 05.11.2011, 18:19

http://ru.wikipedia.org/wiki/%... 1%F2%F0%FB может это поможет

@ggod 2 / 2 / 2 Регистрация: 03.03.2010 Сообщений: 139
		1
	ЗАдача форда-беллмана 18.10.2011, 10:44. Показов 1572. Ответов 3 Метки нет (Все метки) Нужна помощь в решении трансортной задачи методом беллмана форда где нужно найти кратчайший путь на графиках с вершины 1 до любой другой вершины. Миниатюры 0

@ggod 2 / 2 / 2 Регистрация: 03.03.2010 Сообщений: 139
	03.11.2011, 22:57 [ТС]	2
	чё ни кто не поможет даже ссылочку ни кто не кинет?? 0

@riv94 66 / 66 / 29 Регистрация: 13.02.2011 Сообщений: 392
	05.11.2011, 18:19	4
	http://ru.wikipedia.org/wiki/%... 1%F2%F0%FB может это поможет 1

Опции темы