Алгоритм Флойда

[Дим@@]

Подскажите кто-нибудь его исполнения на delphi.

[Дим@@]

Люди плиз ичень надо

[Kingdom_Reborn]

решал такую задачу. только на c++...

////////////////////////////
вот переписал на Delphi:

program example;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

const
  Nmax = 100;
  Infinity = 10000;

type
  edge = record
    u, v, w: Integer;
  end;

var
  w, d, p: Array[1..Nmax, 1..Nmax] of Integer;
  n: Integer;

procedure Floyd_Warshall();
var
  i, j, k: Integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      d[i, j] := w[i, j];
  for k := 1 to n do
    for i := 1 to n do
      for j := 1 to n do
        d[i, j] := min(d[i, j], d[i, k] + d[k, j]);
end;

procedure Path();
var
  i, j, k, m, t: Integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      p[i, j] := 0;
  for i := 1 to n do
    for j := 1 to n do
      if d[i, j] < w[i, j] then
      begin
        m := infinity;
        t := 0;
        for k := 1 to n do
          if (k <> i) and (k <> j) and (d[i, j] = d[i, k] + d[k, j]) and (d[k, j] < m) then
          begin
            m := d[k, j];
            t := k;
          end;
          p[i, j] := t;
      end;
end;

var
  m, i, j: Integer;
  g: Array[1..Nmax * Nmax] of edge;
begin
  Reset(Input, 'input.txt');
  Rewrite(Output, 'output.txt');
  ReadLn(n);
  m := 0;
  while not EOF do
  begin
    Inc(m);
    ReadLn(g[m].u, g[m].v, g[m].w);
  end;
  for i := 1 to n do
    for j := 1 to n do
      if i <> j then
        w[i, j] := infinity
      else
        w[i, j] := 0;
  for i := 1 to m do
  begin
    w[g[i].u, g[i].v] := g[i].w;
    w[g[i].v, g[i].u] := g[i].w;
  end;
  Floyd_Warshall();
  for i := 1 to n do
  begin
    for j := 1 to n do
      if d[i, j] <> infinity then
        Write(d[i, j], ' ')
      else
        Write('-1 ');
    WriteLn;
  end;
  WriteLn;
  Path();
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(p[i, j], ' ');
    WriteLn;
  end;
end.

А задача сама звучала так:
Дан взвешенный не ориентированный граф. Алгоритмом Флойда-Уоршолла найти кратчайшие пути для всех пар вершин.
Вход:
В первой строке текстового файла INPUT.TXT записано количество вершин графа N (1 <= N <= 100). В остальных строках записан список ребер графа. Каждое ребро задано тройкой целых чисел u, v, w (1 <= u, v <= N, 0 <= w <= 10000), где u, v - номера вершин, w - вес ребра (u, v).
Выход:
В текстовый файл OUTPUT.TXT записать:
- вычисленную матрицу расстояний;
- вычисленную матрицу предшествования.
Если две вершины не достижимы друг из друга, вместо расстояния вывести число -1.

[_-Re@l-_]

Вот сюда...Вики

[Kingdom_Reborn]

_-Re@l-_, да сам алгоритм в 4 строчки, а реализация посложнее будет, нужно же ещё и сам путь найти, а не только расстояния...