Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.04.2013, 14:19   #1
MagAragorn
Пользователь
 
Регистрация: 22.04.2013
Сообщений: 25
По умолчанию DFS( поиск в глубину)

Помогите посчитать расстояния от данной вершины графа( с матрицы смежности) до всех других вершин.
Цифра 0 в матрице- это отсутствие пути, больше 0,вес пути.
Пожалуйста, сам написал только сам поиск:
Код:
Procedure DFS(v: integer)// v это текущая вершина.
Var i: integer;
Begin
  marked[v] := true;
  For i := 1 to n do
  if (a[v, i] = 1) and (not marked[i]) then dfs(i); //a - это матрица смежности графа( 0 - нет ребра).
End;
Понимаю, что решение где-то рядом,но не понимаю пока..
MagAragorn вне форума Ответить с цитированием
Старый 27.04.2013, 05:19   #2
MagAragorn
Пользователь
 
Регистрация: 22.04.2013
Сообщений: 25
По умолчанию

Именно просто расстояния. Представим,что это дерево, и каждый путь будет единственным и кратчайшим.
MagAragorn вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
JavaScript. DFS. Поиск мостов. AlexCODER23 Помощь студентам 2 06.07.2012 08:53
граф поиск в глубину revoltecklol Паскаль, Turbo Pascal, PascalABC.NET 0 14.05.2012 23:47
итеративный поиск в глубину Anastasia.K Помощь студентам 1 23.10.2011 09:21
Поиск в глубину Nicko_mt Помощь студентам 2 20.09.2011 14:15
Поиск в ширину и глубину Дядя Тёма Фриланс 0 21.05.2011 10:42