Граф в Делфи

[Mariya2009]

Для заданного графа найти и вывести кратчайший путь между заданными вершинами.
Вопрос в том как это сделать в Делфи 7, может кто уже такое делал???????????????

[ArtInt]

Все это уже обсуждалось и не раз на форуме.
Вот например:
http://programmersforum.ru/showthrea...9+%EF%F3%F2%FC
Просто введите в строке поиска на форуме:
кратчайший путь
Дейкстра
Также посмотрите на сайте wikipedia, там эти алгоритмы практически "на пальцах объясняются".

[Mariya2009]

Это немного не то, мне нужно чтоб просто ввел 2 вершины, и он вывел мне кратчайший путь, найти такое не могу и не получается изменить имеющиеся коды

[Mariya2009]

const n = 10; //количество вершин в графе
var
  a:array[1..n,1..n] of longint;//матрица смежности
  b:array[1..n]of boolean;//список просмотренных вершин
  d:array[1..n] of longint;//кротчайшие расстояния
  q, i, j, m, v: integer;
begin
  //Ввод данных
  q := StrToIntDef(Edit1.Text, 1); //начальная вершина
  if (q < 1) or (q > n) then q := 1;
  for i := 1 to n do
  for j := 1 to n do
  a[j, i] := StrToIntDef(StringGrid1.Cells[i - 1, j - 1], -1);
  //Расчет
  fillchar(b,sizeof(b),0);
  fillchar(d,sizeof(d), 10000);
  d[q] := 0;//расстояние до начальной вершины
  for i:=1 to n do
  begin
    m := 1000;
    for j := 1 to n do
    if ( (d[j] <= m) and (not b[j]) ) then
    begin
      m:=d[j];
      v:=j;
    end;
    b[v] := true;
    for j := 1 to n do
     if ((a[v,j] <> -1) and (not b[j]) and (d[v]+a[v,j]
       d[j] := d[v] + a[v,j];
  end;
  //Вывод результата
  ListBox1.Clear;
  for i := 1 to n do
    ListBox1.Items.Append(IntToStr(q)
      + ' -> ' + IntToStr(i) + ': '
      + IntToStr(d[i]));
end;

Эта программа находит кратчайшее расстояние от одной из вершин графа до всех остальных, помогите переделать чтоб находила до указанной вершины

[ArtInt]

Вообще то в теме, указанной в посте #2 проблема с указанием начальной вершины и конечной вершины и расстояния между ними была решена, в качестве начальной вершины выбирался индекс города и конечной - другого города.
Вот исходник, где есть процедура DK - в которой задаются начальная и конечная вершины, а внутри вычисляется сумма данного расстояния.
P.S. Лишнее там уберете. Если, что-то будет не получаться лучше присылайте исходник, так легче исправлять ошибки (чем мне заново создавать проект и расставлять компоненты).
Кстати здесь не до конца строка:

for j := 1 to n do
if ((a[v,j] <> -1) and (not b[j]) and (d[v]+a[v,j]
d[j] := d[v] + a[v,j];
end;

Вообщем, просто подставите процедуру из моего исходника и все должно получиться, в переменной SummaKm и будет содержаться необходимое расстояние между двумя вершинами.