Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Pascal]Реализация алгоритма Дейкстры


Автор: TESLA 6.5.2007, 00:13
Уважаемые программисты! 
Очень нужна помощь с курсовой работой... 
Задача такая: необходимо реализовать на языке Turbo Pascal алгоритм Дейкстры (нахождение кратчайшего пути по графу).
Исходники, предложенные в похожих темах скачала, но разобраться не смогла... Если есть у кого-нибудь текст программы, скиньте плизз, буду очень благодарна. 
Для связи:
моя ася 235-768-092
мыло uch05@mail.ru
Екатерина

Заранее спасибо за помощь. smile 

Автор: skyboy 6.5.2007, 01:41
а как на счет Delphi? все же охота такой алгоритм реализовать на объектах, а паскаль  совсем уж крив в этом отношении... smile

Автор: TESLA 6.5.2007, 02:14
Да курсовую именно на Паскале нужно...
В принципе, я уже нашла на форуме этот алгоритм)

Автор: TESLA 6.5.2007, 13:35
В общем, еще вопрос по этой темке...
Нашла тут на форуме вот ткой код алгоритма дейкстры:
Код

{Dijkstra's algorithm}
var a : array [1..20,1..20] of word;
    c, pred : array [1..20] of word;
    i, j, k, n, first, last, jn, kn : byte;
    f, g : text;
    min : word;
begin
     assign(f,'in.txt');
     reset(f);
     readln(f, n);
     for i := 1 to n do
     begin
          for j := 1 to n do
          read(f, a[i,j]);
          readln(f);
     end;
     readln(f, first, last);
     close(f);

     min := 32767;
     for j := 1 to n do
         if a[first,j] < min then begin min := a[first,j];jn := j;end;
     c[jn] := min;pred[jn] := first;
     j := jn;
     for i := 2 to n do
     begin
         min := 32767;
         for j := 1 to n do
         if c[j] <> 0 then
         begin
               for k := 1 to n do
               if (c[j] + a[j,k] < min)and(c[k] = 0) then begin min := c[j] + a[j,k];jn := j;kn := k;end;
         end;
         c[kn] := min;pred[kn] := jn;
     end;


     assign(g,'out.txt');
     rewrite(g);
     if c[last] = 32767 then writeln(g,'N') else
     begin
          writeln(g,'Y');
          write(g,first,' ');
          i := last;k := 1;
          while i <> first do
          begin
               a[1,k] := i;
               k := k + 1;
               i := pred[i];
          end;
          for i := k - 1 downto 1 do
          write(g,a[1,i],' ');
          writeln(g);
          writeln(g,c[last]);
     end;
     close(g);
end.


Набрала код, но на 22 строчке (это где if a[first,j]<min then begin.....) выскакивает ошибка: error 201 Range Check error. Помогите плизз разобаться, из-за чего так получается и как это исправить.

Автор: TESLA 6.5.2007, 14:04
Вот что я нашла по этой теме:
"201 Range check error (Ошибка при проверке границ). 

Ошибка генерируется операторами, скомпилированными в состоянии {$R+}, при возникновении 

одной из следующих ситуаций: 

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

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

качестве параметра процедуре или функции. "
Но как исправить эту ошибку, помогите пожалуйста...

Автор: TESLA 6.5.2007, 23:08
Все, разобралась, вопрос решен, темку можно закрывать)
Всем спасибо за внимание)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)