Графы.Флойд Уоршелл

[Тамерлан Абилов]

Везде есть обычный алгоритм флойда.и рекурсивные уравнение есть.но с этими уравнениями построить ту же рекурсию....( вообще не могу понять.

  function De(i,j,k:integer):integer;
  begin
  if k=0 then  De:=A[i,j]
   else
     De:=min(De(i,j,k-1),De(i,k,k-1)+De(k,j,k-1));
 end;

думаю, что для всех вершин надо запускать отдельно)....но прежде всего.сама функция которую якобы написал хотя бы тут должна делать так по моему:именно этот путь волнует допустим: P(i,j). кол.во вершин 5.. тогда и k=5-путь проходящий через v1..v5 ....и он мне выдаст путь P[i,j] не для всех i,j,что и надо была по алгоритму..но для данного i,j хотябы должен.но рекурсия выдает мне само ребро A[i,j].или из-за минимума он не складывает..?паскаль абц.просто по вики и по хабре алг был таким.и вроде правильный пишу думаю.а тут не мгу не как понять в чем проблема(



В самой программе ее вызываю так же De(1,3,5) -путь( 1,3) ..к=5.