ВІКІСТОРІНКА
Навигация:
Інформатика
Історія
Автоматизація
Адміністрування
Антропологія
Архітектура
Біологія
Будівництво
Бухгалтерія
Військова наука
Виробництво
Географія
Геологія
Господарство
Демографія
Екологія
Економіка
Електроніка
Енергетика
Журналістика
Кінематографія
Комп'ютеризація
Креслення
Кулінарія
Культура
Культура
Лінгвістика
Література
Лексикологія
Логіка
Маркетинг
Математика
Медицина
Менеджмент
Металургія
Метрологія
Мистецтво
Музика
Наукознавство
Освіта
Охорона Праці
Підприємництво
Педагогіка
Поліграфія
Право
Приладобудування
Програмування
Психологія
Радіозв'язок
Релігія
Риторика
Соціологія
Спорт
Стандартизація
Статистика
Технології
Торгівля
Транспорт
Фізіологія
Фізика
Філософія
Фінанси
Фармакологія


Указатели и динамические структуры

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

В Паскале существует и другой способ выделения памяти под данные, который называется динамическим. В этом случае память под величины отводится во время выполнения программы. Такие величины будем называть динамическими. Раздел оперативной памяти, распределяемый статически, называется статической памятью; динамически распределяемый раздел памяти называется динамической памятью.

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

Работа с динамическими величинами связана с использованием еще одного типа данных — ссылочного. Величины, имеющие ссылочный тип, называют указателями.

Указатель содержит адрес поля в динамической памяти, хранящего величину определенного типа. Сам указатель располагается в статической памяти (рис. 38).

 

Адрес величины — это номер первого байта поля памяти, в котором располагается величина. Размер поля однозначно определяется типом.

Величина ссылочного типа (указатель) описывается в разделе описания переменных следующим образом:

Var <идентификатор>:<ссылочный тип>

В стандарте Паскаля каждый указатель может ссылаться на величину только одного определенного типа, который называется базовым для указателя. Имя базового типа и указывается в описании в следующей форме:

<ссылочный тип>:=^<имя типа>

Вот примеры описания указателей:

Type Massiv=Array[l..100] Of Integer;

Var PI: ^Integer;

P2: ^Char;

PM: ^Massiv;

Здесь Р1 — указатель на динамическую величину целого типа; P2 — указатель на динамическую величину символьного типа; PM — указатель на динамический массив, тип которого задан в разделе Type.

Сами динамические величины не требуют описания в программе, поскольку во время компиляции память под них не выделяется

Во время компиляции память выделяется только под статические величины. Указатели — это статические величины, поэтому они требуют описания.

Каким же образом происходит выделение памяти под динамическую величину? Память под динамическую величину, связанную с указателем, выделяется в результате выполнения стандартной процедуры NEW. Формат обращения к этой процедуре выглядит так:

NEW(<указатель>);

Считается, что после выполнения этого оператора создана динамическая величина, имя которой имеет следующий вид:

<имя динамической величины>::=<указатель>^.

Пусть в программе, в которой имеется приведенное выше описание, присутствуют операторы

NEW(Pl); NEW(P2); NEW(PM);

После их выполнения в динамической памяти оказывается выделенным место под три величины (две скалярные и один массив), которые имеют идентификаторы

P1^, Р2^, РМ^

Например, обозначение P1^ можно расшифровать так: динамическая переменная, на которую ссылается указатель Р1.

На схеме, представленной на рис. 39, показана связь между динамическими величинами и их указателями.

 

Дальнейшая работа с динамическими переменными происходит точно так же, как со статическими переменными соответствующих типов. Им можно присваивать значения, их можно использовать в качестве операндов в выражениях, параметров подпрограмм и т.п. Например, если переменной Р1^ нужно присвоить значение 25, переменной P2^ присвоить значение символа 'W', a массив PM^ заполнить по порядку целыми числами от 1 до 100, то это делается так:

Р1^:=25;

Р2^: ='W';

For I:=l То 100 Do PM^ [I]:=I;

Кроме процедуры NEW значение указателя может определяться оператором присваивания:

<указатель>:=<ссылочное выражение>;

В качестве ссылочного выражения можно использовать:

• указатель;

• ссылочную функцию (т. е. функцию, значением которой является указатель);

• константу Nil.

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

До присваивания значения ссылочной переменной (с помощью оператора присваивания или процедуры NEW) она является неопределенной.

 

Ввод и вывод указателей не допускается. Рассмотрим пример. Пусть в программе описаны следующие указатели:

Var D,P:^Integer;

К: ^Boolean;

Тогда допустимыми являются операторы присваивания

D:=P; K:=Nil;

поскольку соблюдается принцип соответствия типов. Оператор K:=D ошибочен, так как базовые типы у правой и левой части разные.

Если динамическая величина теряет свой указатель, то она становится «мусором». В программировании под этим словом понимают информацию, которая занимает память, но уже не нужна.

Представьте себе, что в программе, в которой присутствуют описанные выше указатели, в разделе операторов записано следующее:

NEW(D); NEW(P) ;

{Выделено место в динамической памяти под

две целые переменные. Указатели получили

соответствующие значения)

D^:=3; Р^:=5;

{Динамическим переменным присвоены

значения}

P:=D;

{Указатели Р и D стали ссылаться на одну и

ту же величину, равную 3}

WriteLn(P",D^); {Дважды напечатается число 3}

Таким образом, динамическая величина, равная 5, потеряла свой указатель и стала недоступной. Однако место в памяти она занимает. Это и есть пример возникновения «мусора». На схеме, представленной на рис. 40, показано, что произошло в результате выполнения оператора Р:=D.

 

В Паскале имеется стандартная процедура, позволяющая освобождать память от данных, потребность в которых отпала. Ее формат:

DISPOSE(<указатель>);

Например, если динамическая переменная P^ больше не нужна, то оператор

DISPOSE(Р)

удалит ее из памяти. После этого значение указателя Р становится неопределенным. Особенно существенным становится эффект экономии памяти при удалении больших массивов.

В версиях Турбо Паскаля, работающих под управлением операционной системы MS DOS, под данные одной программы выделяется 64 килобайта памяти. Это и есть статическая область памяти. При необходимости работать с большими массивами информации этого может оказаться мало. Размер динамической памяти намного больше (сотни килобайт). Поэтому использование динамической памяти позволяет существенно увеличить объем обрабатываемой информации.

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

Пример 1. Создать вещественный массив из 10000 чисел, заполнить его случайными числами в диапазоне от 0 до 1. Вычислить среднее значение массива. Очистить динамическую память. Создать целый массив размером 10000, заполнить его случайными целыми числами в диапазоне от -100 до 100 и вычислить его среднее значение.

Program Sr;

Const NMax=10000;

Type Diapazon=l..NMax;

MasInt=Array[Diapazon] Of Integer;

MasReal=Array[Diapazon] Of Real;

Var Flint: ^Masint;

PReal: ^MasReal;

I,Midint: Longint;

MidReal: Real;

Begin

MidReal:=0; Midlnt:=0;

Randomize;

NEW(PReal);

{Выделение памяти под вещественный массив}

{Вычисление и суммирование массива}

For I:=1 То NMax Do

Begin PReal^[I]:=Random;

MidReal:=MidReal+PReal^[I]

End;

DISPOSE(PReal);{Удаление вещественного массива}

NEW(Pint); (Выделение памяти под целый массив}

{Вычисление и суммирование целого массива)

For I:=l To NMax Do

Begin

PInt^[I]:=Random(200)-100;

MidInt:=MidInt+PInt^[I]

End;

{Вывод средних значений}

WriteLn('среднее целое равно:',MidInt DivMax);

WriteLn('среднее вещественное равно:', (MidReal/NMax):10:6)

End.

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

Разберем следующий пример. В процессе физического эксперимента многократно снимаются показания прибора (допустим, термометра) и записываются в компьютерную память для дальнейшей обработки. Заранее неизвестно, сколько измерений будет произведено.

Если для обработки таких данных не использовать внешнюю память (файлы), то разумно расположить их в динамической памяти. Во-первых, динамическая память позволяет хранить больший объем информации, чем статическая. А во-вторых, в динамической памяти эти числа можно организовать в связанный список, который не требует предварительного указания количества чисел, подобно массиву. Что же такое связанный список? Схематически он выглядит так:

 

Каждый элемент списка состоит из двух частей: информационной части (x1, x2 и т.д.) и указателя на следующий элемент списка (p2, р3, и т.д.). Последний элемент имеет пустой указатель Nil. Связанный список такого типа называется однонаправленной цепочкой.

Для сформулированной выше задачи информационная часть представляет набор вещественных чисел: x1 — результат первого измерения, x2 — результат второго измерения и т

д., х4 — результат последнего измерения. Связанный список обладает тем замечательным свойством, что его можно дополнять по мере поступления новой информации. Добавление происходит путем присоединения нового элемента к концу списка. Значение Nil в последнем элементе заменяется ссылкой на новый элемент цепочки:

 

Связанный список не занимает лишней памяти. Память расходуется в том объеме, который требуется для поступившей информации.

В программе для представления элементов цепочки используется комбинированный тип (запись). Для нашего примера тип такого элемента может быть следующим:

Type Pe=^Elem;

Elem=Record

Т: Real;

P: Ре

End;

Здесь Ре — ссылочный тип на переменную типа Elem. Этим именем обозначен комбинированный тип, состоящий из двух полей: T — вещественная величина, хранящая температуру, P — указатель на динамическую величину типа Elem.

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

Пример 2. Рассмотрим программу формирования связанного списка в ходе ввода данных.

Type Pe=^TypElem;

TypElem=Record

Т: Real; P: Ре

End;

Var Elem,Beg: Pe;

X: Real; Ch: Char;

Begin (Определение адреса начала списка и его сохранение}

NEW(Elem); Beg:=Elem;

Elem^.P:=Elem;

{Диалоговый ввод значений с занесением их в список и организацией связи между элементами)

While Elem^.P<>Nil Do

Begin

Write('Вводите число:');

ReadLntElem^.T);

Write('Повторить ввод? (Y/N)');

ReadLn(Ch);

If (Ch='n') Or (Ch=-'N')

Then Elem^.P:=Nil

Else Begin

NEW(Elem^.P) ;

Elem:=Elem^.P

End

End;

WriteLn(«Ввод данных закончен»);

{Вывод полученной числовой последовательности}

WriteLn(«Контрольная распечатка»);

Elem:=Beg;

Repeat

WriteLn (N,':'/Elem^.T:8:3);

Elem:=Elem^.P

Until Elem=Nil

End.

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

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

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

Стек подобен детской пирамидке, в которой на стержень надеваются кольца. Всякое новое кольцо оказывается на вершине пирамиды. Снимать кольца можно только сверху. Принцип изменения содержания стека часто формулируют так: «Последним пришел — первым вышел».

Составим процедуры добавления элемента в стек (INSTEK) и исключения элемента из стека (OUTSTEK). При этом будем считать, что элементы стека — символьные величины.

В процедурах используется тип Pе, который должен быть глобально объявлен в основной программе.

Type Pe=^TypElem;

TypElem=Record

С: Char; P: Ре

End;

В процедуре INSTEK аргументом является параметр Sim, содержащий включаемый в стек символ. Ссылочная переменная Beg содержит указатель на вершину стека при входе в процедуру и при выходе из нее. Следовательно, этот параметр является и аргументом, и результатом процедуры. В случае, когда стек пустой, указатель Beg равен Nil.

Procedure INSTEK(Var Beg: Ре; Sim: Char);

Var X: Pe;

Begin New(X);

X^.C:=Sim;

X^.P:=Beg;

Beg:=X

End;

В процедуре OUTSTEK параметр Beg играет ту же роль, что и в предыдущей процедуре. После удаления последнего символа его значение станет равным Nil. Ясно, что если стек пустой, то удалять из него нечего. Логический параметр Flag позволяет распознать этот случай. Если на выходе из процедуры Flag=True, то, значит, удаление произошло; если Flag=False, значит, стек был пуст и ничего не изменилось.

Процедура не оставляет после себя «мусора», освобождая память из-под удаленных элементов.

Procedure OUTSTEK(Var Beg: Pe; Var Flag: Boolean);

Var X: Pe;

Begin

If Then Flag:=False

Else Begin

Flag:=True;

X:=Beg;

Beg:=Beg^.P;

DISPOSE(X)

End

End;

 

 

© 2013 wikipage.com.ua - Дякуємо за посилання на wikipage.com.ua | Контакти