VPF::Алгоритм Дейкстры - Форум программистов

Guest

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

(голосов: 0)

Загрузка ...

Unregistered

Скажите пожалуйста, какие данные должен содержать файл(в данном случае dijkstra.dat) из которого будет считываться информация, а именно их последовательность. Заранее спасибо.

Код


program dijkstra;
var
  G:array[1..100,1..100] of integer; {матрица, задающая граф}
  Q,W:array[1..100]  of byte;        {очередь и массив весов}
  i,j:word;                         
  s:word;
  d:array[1..100] of word;           {массив расстояний: после завершения работы d[i] - расстояние от s до i}
  p:array[1..100] of word;           {массив родителей}
  f:text;
  n:word;                            {колличество вершин}
  nQ:word;
  nW:word;
  min,mI:word;
begin
  {Процесс считывания информации из текстового файла}
  assign(f,'dijkstra.dat'); reset(f);
  for i:=1 to 100 do
   for j:=1 to 100 do
     G[i,j]:=-1;
  read(f,n); readln(f,s);
  while not EOF(f) do
   begin
    read(f,i); read(f,j); readln(f,G[i,j]);
   end;
  close(f);
  {Информация считана из файла}
  
  for i:=1 to n do
   begin
    d[i]:=65535;
    p[i]:=0;
   end;
  d[s]:=0;
  for i:=1 to n do
   Q[i]:=i;
  nq:=n; nW:=0;
  
  while nq<>0 do
   begin
     min:=65535;
     for i:=1 to n do    {ищем вершину с минимальным d[i]}
       if (Q[i]<>0) and (d[i]<min) then
         begin
          min:=d[i]; mI:=i;
         end;
     dec(nQ);            
     Q[mI]:=0;
     inc(nW); W[nW]:=mI;
     
     for j:=1 TO n DO
      if G[mi,j]<>-1 then
        if d[j]>d[Mi]+G[Mi,j] then
         begin
          d[j]:=d[mi]+g[mi,j];
          p[j]:=mi;
         end;
   end;
   
 {вывод на экран}  
 for i:=1 to n do
  writeln(d[i]);
end.

poor_yorik

Дата 27.5.2005, 23:28 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 12.1.2005
Где: Общаги г. Киева

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

Отвечаю Guest.
В первой строке находится два числа, разделенных пробелом n и s.
n - колчиество вершин в графе.
s - количество ребер в графе.
Далее следует s строк. Каждая из этих строк содержит три числа a, b, c.
Это означает что между вершинами с номерами a и b находится ребро весом с. Насколкь я понял это именно так. smile

--------------------

Семь раз отмерь, один раз - откомпиль.... Семь раз отпей, один раз - отлей... Семь раз отъешь, один раз - не жадничай и другим дай...

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