VPF::Где ошибка в поиске наим. пути в графе

KvSanya

Дата 2.11.2006, 22:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 11.9.2006

Репутация: нет
Всего: нет

Где сдесь ошибка????
v-начальная вершина, p-матрица стоимости, n-количество вершин

Код


Procedure Dist(v:integer);
  VAR i,u,j:integer;
    min:integer;
  Begin
  For j:=1 to n do d1[j]:=maxint;
  d1[v]:=0;

   for i:=1 to n do
    begin
     min:=1;
     for j:=1 to n do if (d1[j]<d1[min])then min:=j;

     For j:=1 to n do
      if d1[j]=maxint then
        d1[j]:=p[min,j]+d1[min]
      else
        if p[min,j]+d1[min]<d1[j] then
          d1[j]:=p[min,j]+d1[min];
      d1[v]:=maxint;
    end;
  end;

Zero

Дата 2.11.2006, 22:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Ошибка в 27 строке.

KvSanya

Дата 2.11.2006, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 11.9.2006

Репутация: нет
Всего: нет

А с помощью какого алгоритма можно найти наименьшую стоимоть пути от вершины 1 к вершине n неориентированного графа?

Zero

Дата 3.11.2006, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(KvSanya @ 3.11.2006, 00:13

)

Ну алгоритм Дейкстры довольно распротранён. Поиском учись пользоваться... 30 секунд, и результат:
http://forum.vingrad.ru/topic-38605.html
http://forum.vingrad.ru/index.php?showtopic=53581
http://algolist.manual.ru/maths/graphs/sho...th/dijkstra.php

Добавлено @ 00:21
Вчасности вот топ который тебе скорее всего понадобится:
http://forum.vingrad.ru/index.php?showtopi...st&p=370846

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »