Исправление ошибки времени выполнения 216 в программе на Pascal: анализ списка смежности

Delphi , Синтаксис , Ошибки и Исключения

Проблема, с которой столкнулся разработчик, заключается в возникновении ошибки времени выполнения 216 при использовании динамических массивов для реализации списка смежности в языке Pascal. Ошибка появляется непосредственно перед завершением выполнения программы, несмотря на то, что все предыдущие этапы работы программы проходят корректно и вывод результатов осуществляется без ошибок.

Описание кода

Код программы, представленный разработчиком, использует динамические массивы для хранения списка смежности узлов. Объявлены типы и переменные, необходимые для работы с графами, включая массивы для хранения ребер (edgebuf) и списков смежности (elist). В цикле чтения ребер сначала подсчитывается количество ребер для каждого узла, а затем выделяется память под списки смежности. После этого происходит заполнение списков смежности соответствующими узлами.

Анализ ошибки

Ошибка времени выполнения 216 обычно связана с фатальными исключениями, такими как GPF/SIGSEGV, и в некоторых случаях SIGILL/SIGBUS. Это может указывать на то, что программа где-то в коде нарушает целостность памяти.

Подтвержденный ответ

Разработчик обнаружил, что компиляция программы с включенными проверками во время выполнения (в Free Pascal это опция -Criot) позволила выявить ошибку. В частности, была обнаружена ошибка Runtime error 201 в строке 22, где происходит запись в динамический массив.

После дополнительного анализа было выяснено, что проблема заключалась в неверном индексировании элементов динамического массива. Согласно документации Free Pascal, функция SetLength выделяет память для массива с указанной длиной, начиная индексацию с нуля. Следовательно, при выделении памяти для списка смежности узла с n ребрами, фактическая длина массива должна быть n-1, а не n, как было в исходном коде.

Исправление

Исправленный фрагмент кода для выделения памяти под список смежности узла с ptrs[i] ребрами должен выглядеть следующим образом:

setlength(elist[i], ptrs[i] - 1);

Заключение

После внесения исправления в код программы, ошибка времени выполнения 216 должна быть устранена. Важно помнить о правилах индексации элементов массива, особенно при работе с динамическими массивами в Pascal.

Пример кода

program AdjacencyList;
{$APPTYPE CONSOLE}
{$MODE DELPHI}
uses
  sysutils;

var
  edgebuf: array[1..200000, 1..2] of longint;
  ptrs: array[1..100000] of longint;
  i, j, n, m: longint;
  elist: array[1..100000] of array of longint; // Используем двумерный массив для elist
  aptr = ^longint; // Тип указателя на longint

procedure FillPTRs;
begin
  // Код для подсчета количества ребер для каждого узла
end;

procedure FillEdgeList;
begin
  // Код для заполнения списка смежности с учетом исправления
end;

begin
  // Инициализация переменных
  FillPTRs;
  // Выделение памяти для списков смежности
  for i := 1 to n do
    SetLength(elist[i], ptrs[i] - 1);
  // Заполнение списков смежности
  FillEdgeList;
  // Вывод результатов
  // ...
  // Завершение программы
  Readln;
end.

Приведенный выше код демонстрирует, как исправить ошибку, связанную с индексацией элементов динамического массива, и предоставляет структуру программы для работы со списками смежности.

Создано по материалам из источника по ссылке.

Разработчик столкнулся с ошибкой времени выполнения 216 в программе на Pascal из-за неправильного индексирования элементов динамического массива при реализации списка смежности, что было исправлено путем корректировки выделения памяти для списков.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ошибки и Исключения ::