[Gman]

Здравствуйте, дайте пож. ссылочку на алгоритм Флойда-Уоршелла на Pascal или Delphi, а то в сети только на C++.

[NumLock]

ну так наверное не алгоритм нужен, а реализация алгоритма? ибо описание алгоритма не зависит от языка его реализации.

[PhoeniX]

Ну ты ленивый... врать бы научился.
Раз, два, три.

[Gman]

Спасибо, я уже сам нашёл, но у меня вопрос по коду:

Код:

type
  Graph = array[1..nn,1..nn] of integer;

Procedure Floyd(var a, p: graph);
  var i,j,k: integer;
  c: graph;

begin
  //A - матрица содержащая кратчайшие пути.
  //P - матрица, сохраняющая маршруты.
  Randomize;
  for i:=1 to nn do
  for j:=1 to nn do
  c[i,j] := random(100);
  for i:=1 to nn do
  for j:=1 to nn do
  begin
    a[i,j]:=c[i,j];
    p[i,j]:=0;
  end;
  for i:=1 to nn do a[i,i]:=0;
  for k:=1 to nn do
    for i:=1 to nn do
      for j:=1 to nn do
        if (a[i,k]+a[k,j] < a) then
        begin
          a[i,j]:=a[i,k]+a[k,j];
          p[i,j]:=k;
        end;
end;

а именно в этой строке

Код:

   if (a[i,k]+a[k,j] < a) then 

сдесь сумма элементов a[i,k]+a[k,j] сравнивается с a, но а ведь тоже должен быть какой то элемент (у него не указан индекс).

[NumLock]

Сообщение от Gman

если б не хотел не отвечал бы на вопрос, зачем мне отминусил.

я никому не минусил

[Gman]

если б не хотел не отвечал бы на вопрос, зачем мне отминусил.

[AlexSku]

Сообщение от Gman

Спасибо, я уже сам нашёл, но у меня вопрос по коду:

Код:

   if (a[i,k]+a[k,j] < a) then 

здесь сумма элементов a[i,k]+a[k,j] сравнивается с a, но а ведь тоже должен быть какой то элемент (у него не указан индекс).

На сайте есть комментарий, где высказано предположение, что это а[i,j]

[Gman]

Я пробывал так, но результатвыходит не верный

[AlexSku]

В алгоритме написано:

Код:

W[i][j] = min(W[i][j], W[i][k] + W[k][j])

а это, по-моему, и реализует кусок:

Код:

        if (a[i,k]+a[k,j] < a[i,j]) then
        begin
          a[i,j]:=a[i,k]+a[k,j];