VPF::[Pascal]Реализация алгоритма Дейкстры

TESLA

Дата 6.5.2007, 00:13 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 5.5.2007
Где: В. Новгород

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

Уважаемые программисты!
Очень нужна помощь с курсовой работой...
Задача такая: необходимо реализовать на языке Turbo Pascal алгоритм Дейкстры (нахождение кратчайшего пути по графу).
Исходники, предложенные в похожих темах скачала, но разобраться не смогла... Если есть у кого-нибудь текст программы, скиньте плизз, буду очень благодарна.
Для связи:
моя ася 235-768-092
мыло [email protected]
Екатерина

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

skyboy

Дата 6.5.2007, 01:41 (ссылка)

(голосов:1)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

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

TESLA

Дата 6.5.2007, 02:14 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 5.5.2007
Где: В. Новгород

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

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

TESLA

Дата 6.5.2007, 13:35 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 5.5.2007
Где: В. Новгород

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

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

Код


{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. Помогите плизз разобаться, из-за чего так получается и как это исправить.

Это сообщение отредактировал(а) Alexeis - 7.5.2007, 15:48

TESLA

Дата 6.5.2007, 14:04 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 5.5.2007
Где: В. Новгород

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

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

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

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

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

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

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

TESLA

Дата 6.5.2007, 23:08 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 5.5.2007
Где: В. Новгород

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

Все, разобралась, вопрос решен, темку можно закрывать)
Всем спасибо за внимание)

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