Алгоритм Флойда-Уоршелла

@tipo4ek · Регистрация: 12.10.2010

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

Народ подскажите , а как реализовать этот алгоритм на Delphi ?

@dampir_sanek · 28.12.2010, 18:05

Посмотрите тут

@tipo4ek · 28.12.2010, 19:52 **[ТС]**

Я уже это видел . Мне нужна реализация именно Флойда-Уоршелла . Но все равно спасибо , что ответили.

Добавлено через 49 минут
Я написал так :

Delphi

 for i:=0 to kol-1 do
  for j:=0 to kol-1 do
   for k:=0 to kol-1 do
   if a[i,j]<a[i,k]+a[k,j] then begin
     a[i,j]:=a[i,k]+a[k,j];
     a[j,i]:=a[i,j];

Kol-это кол-во вершин в графе. Но он не работает . Что не так ?

Добавлено через 45 минут
Ну народ ? Что никто не знает ?

@anonimus · 29.12.2010, 14:43

Алгоритм Флойда-Уоршелла это типа алгоритма Дейкстры? или я что-то путаю?

@tipo4ek 12 / 11 / 3 Регистрация: 12.10.2010 Сообщений: 268
		1
	Алгоритм Флойда-Уоршелла 28.12.2010, 18:04. Показов 4218. Ответов 3 Метки нет (Все метки) Народ подскажите , а как реализовать этот алгоритм на Delphi ? 0

@dampir_sanek 152 / 150 / 44 Регистрация: 09.02.2010 Сообщений: 407
	28.12.2010, 18:05	2
	Посмотрите тут 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	29.12.2010, 14:43	4
	Алгоритм Флойда-Уоршелла это типа алгоритма Дейкстры? или я что-то путаю? 0