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

[makskovalko]

Здравствуйте! Я с помощью алгоритма Флойда нахожу минимальные расстояния от заданной вершины к остальным. (Не хочу использовать алгоритм Дейкстры или Беллмана-Форда). Подскажите, правильно ли я его реализовал?

PHP код:

Type
 GR = array[0..1000,0..1000] of integer;
Var
 n,i,j,k,st,en:integer;
 a:GR;

Procedure Floyd(a:GR; v:integer);
Var
 i,j,k:integer;
begin
 for k:=1 to v do
  for i:=1 to v do
   for j:=1 to v do
    if (a[i,k]<>0) and (a[k,j]<>0) and (i<>j) then
     if (a[i,k]+a[k,j]<a[i,j]) and (a[i,j]<>0) then
      a[i,j]:=a[i,k]+a[k,j];
 for i:=1 to v do
  begin
   for j:=1 to v do
    write(a[i,j]:3);
    writeln;
  end;
end;

Begin
 writeln('Введите количество вершин графа:');
 readln(n);
 writeln('Введите матрицу весов графа:');
  for i:=1 to n do
   for j:=1 to n do
    begin
     write('A[',i,',',j,'] = ');
     read(a[i,j]);
    end;
 writeln('Матрица минимальных путей:');
 Floyd(a,n);
 writeln('Введите начальную вершину:');
 readln(st);
 writeln('Минимальные расстояния от этой вершины ко всем остальным:');
  for i:=1 to n do
    writeln(i,' => ',a[st,i],' ');
End. 


[Poma][a]

Не хочу использовать алгоритм Дейкстры или Беллмана-Форда

Мало ли что Вы не хотите.. Алгоритм Роя (тот же Флойд-Уоршелл) находит наименьшие пути от всех вершин до всех.. тем самым изменяя граф, что Вам делать нельзя..
Пишите Форда или Дейкстру..