СтатьиПрограммированиеPascal

Динамический массив в Pascal

Автор: Blacksus

Как-то раз, изучая Turbo Pascal, я столкнулся с проблемой отсутствия в нем динамических массивов. Два дня были потрачены на безрезультатные поиски решения этой проблемы. Но, к сожалению, в интернете было больше вопросов, чем ответов, связанных с этой проблемой. А все ответы были примерно одинаковыми, приводился код:

... var DinArray: Array of integer; ... begin SetLength(DinArray, 1); ... end.

Складывалось такое впечатление, что люди, которые это писали, либо не читали сам вопрос, либо никогда не включали Turbo Pascal, и просто не понимали, что этот пример работает только на Delphi.

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

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

Для начала приведу общую схему этого массива, рисунок 1.

Рисунок 1

Как видно из рисунка, организация этой структуры полностью идентична двумерному массиву. Доступ к элементам будет осуществляться с помощью специальных процедур, они будут рассмотрены ниже. Ссылка «link» всегда указывает на первый элемент списка, он нужен для процедуры поиска нужного элемента.

Теперь разберемся с процедурами, типами и переменными.

Объявление пользовательских типов:

type ref = ^z; z = record el: integer; right: ref; down: ref; end;

Глобальные переменные, используемые в процедурах. aa - ссылка, указывающая на первый элемент массива. Эта переменная является самим массивом.

var aa: ref;

Функция поиска заданного элемента, напрямую она не используется и нужна для работы процедур получения и установки данных элемента. Возвращаемое значение - ссылка на элемент массива.

function Search(aai, aaj: integer): ref; var i, j: integer; curright, curdown: ref; begin curdown := aa; for i := 2 to aai do curdown := curdown^.down; curright := curdown; for j := 2 to aaj do curright:=curright^.right; Result := curright; end;

Функция извлечения данных из элемента массива. В нее передаются следующие параметры: i - номер строки, j - номер столбца. Возвращаемое значение - данные элемента массива.

function GetEl(i,j: integer): integer; var link: ref; begin link := Search(i, j); Result := link^.el; end;

Процедура сохранения данных в элемент массива. В нее передаются следующие параметры: i - номер строки, j - номер столбца, el - значение, которое будет сохранено.

procedure SetEl(i, j, el: integer); var link:ref; begin link := Search(i, j); link^.el := el; end;

Процедура для создания массива. В нее передаются следующие параметры: myi - количество строк, myj - количество столбцов.

procedure Init(myi, myj: integer); var i, j: integer; curright, curdown: ref; begin new(aa); curdown := aa; curright := aa; for i := 1 to myi do begin for j := 1 to myj do begin new(curright^.right); curright := curright^.right; end; curright^.right := nil; new(curdown^.down); curdown := curdown^.down; curright := curdown; end; curdown^.down := nil; end;

Процедура очищения памяти, используется при выходе из программы:

procedure FreeMem; var cur: ref; curright, curdown: ref; begin curdown := aa; curright := aa; repeat curdown := curdown^.down; repeat cur := curright; curright := curright^.right; Dispose(cur); until curright^.right = nil; curright := curdown; until curdown^.down = nil; end;

Как видите, ничего особо сложного для понимания тут нет, всего 5 процедур и 2 пользовательских типа.

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

program myarray; uses crt; type ... var aa: ref; data: integer; ii, jj: integer; begin Clrscr; Init(10, 10); for ii := 1 to 10 do for jj := 1 to 10 do SetEl(ii, jj, ii + jj); for ii := 1 to 10 do begin for jj := 1 to 10 do begin data := GetEl(ii, jj); Write(data); Write(' '); end; Writeln; end; Readln; FreeMem; end.

Рабочий исходник программы можно скачать тут.

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