.

Адреси та вказівники (реферат)

Язык: украинский
Формат: реферат
Тип документа: Word Doc
0 3242
Скачать документ

ВИКОРИСТАННЯ ВІЛЬНОЇ

ПАМ’ЯТІ у ПАСКАЛІ

1. Адреси та вказівники

Пам’ять комп’ютера можна розглядати як послідовність байтів, номери яких
0, 1, 2, … називаються адресами. Кожна змінна в пам’яті займає залежно
від її типу деяку кількість послідовних байтів. Наприклад, змінні типу
char займають 1 байт, а величезні масиви – тисячі й десятки тисяч
байтів.

Адресою змінної вважається адреса її першого байта. Не кожна адреса може
бути адресою змінної. Наприклад, змінні типу integer можуть мати лише
парні адреси. Усі можливі адреси даних якогось типу T утворюють носій
типу адрес, що позначається виразом ^T. Наприклад, ^integer позначає
множину адрес цілих, ^array[1..100] of char – множину адрес масивів,
складених сотнею символів, ^record fld1, fld2 : real end – множину адрес
записів із двох дійсних. Типом T може бути довільний тип, окрім типу
файла. Тип, означений як ^T, називається адресним, а тип T – базовим для
нього.

У стандарті мови Паскаль немає сталих для явного позначення адрес, але є
в діалектах. Значення адресного типу ^T задаються викликом функції ADDR
вигляду addr(x), де x – ім’я змінної типу T. У мові Турбо Паскаль
означено операцію @: замість addr(x) можна писати @x. Ім’я nil позначає
адресу 0, що належить до всіх можливих типів ^T. Ця адреса не може бути
адресою жодної змінної, тобто є “нічийною”, фіктивною. До однотипних
адрес застосовні операції порівняння на рівність = і нерівність .

Змінні, значеннями яких є адреси, називаються вказівниками. У стандарті
мови Паскаль вживаються так звані типізовані вказівники – змінні типу
^T. Вони ще називаються вказівниками типу T. Їм можна присвоювати адреси
змінних тільки типу T або значення nil. Присвоювання адреси змінної
вказівнику називається встановленням його на змінну.

Приклад 16.1. За дії означень

type Ari = array[1..5]of integer; var x : Ari; p : ^Ari;

результат присвоювання p:=addr(x) можна подати так:

До вказівників застосовна специфічна операція розіменування зі знаком
“^”: якщо p – вказівник типу T, то вираз p^ задає змінну типу T, на яку
встановлено p.

Якщо p встановлено на змінну x, то вирази x і p^ еквівалентні. У
прикладі 16.1 елемент масиву з індексом k задається як виразом x[k], так
і виразом p^[k], тобто замість присвоювання x[1]:=1 можна написати
p^[1]:=1, або замість x[2]:=2*x[1] – p^[2]:=2*p^[1].

Розіменування нікуди не встановленого вказівника або вказівника зі
значенням nil призводить до аварійного закінчення програми.

Нині в більшості комп’ютерів адреси незалежно від їх базових типів
займають 4 байти. Таким чином, і адреси типу ^char, і адреси типів
^array[1..100] of char або ^^integer (адреси адрес цілих) займають по 4
байти. Неважко зрозуміти, що 4 байти можуть мати 232=4294967296=4Г
різних станів, якими подається стільки ж адрес.

2. Вільна пам’ять

Основним застосуванням вказівників є робота з вільною пам’яттю. Пам’ять
процесу виконання програми поділяється на кілька різних за призначенням
частин. Ними є:

пам’ять для операторів програми,

статична пам’ять – для глобальних і статичних змінних програми й
модулів,

автоматична пам’ять, або програмний стек – для локальних змінних при
виконанні викликів підпрограм.

вільна пам’ять, або купа.

Вільна пам’ять відрізняється від інших тим, що її ділянки виділяються
під змінні та звільняються від них за явними на те указаннями в
програмі. Змінні в цій пам’яті не мають імен, ідентифікуються за
допомогою встановлених на них вказівників й називаються динамічними.
Створення та знищення динамічних змінних називається керуванням купою.

Найпростішими засобами керування купою є процедури NEW та DISPOSE.
Виклики їх мають вигляд new(p) та dispose(p), де p – вказівник на
довільний тип T. Зазначимо одразу, що вказівник може бути як
автоматичною чи статичною змінною, так і динамічною. Приклади
застосування саме динамічних вказівників ми розглянемо в наступному
підрозділі.

За виконання процедури new виділяється вільна, тобто незайнята іншими
даними, ділянка купи. Її довжиною є кількість байтів, що займаються
даними типу T. Адреса першого байта ділянки присвоюється аргументу p,
тобто вказівник p встановлюється на цю ділянку. Наприклад, якщо в
програмі означено p : Ari, як у прикладі 16.1, то результат виконання
new(p) можна подати так:

Динамічна змінна, на яку встановлено вказівник p, означений у програмі,
ідентифікується виразом p^.

Якщо в купі немає вільної ділянки потрібного розміру, то результат
визначається конкретною системою програмування (найвірогідніше,
виконання програми аварійно завершиться).

При виконанні процедури dispose ділянка пам’яті, на яку встановлено
аргумент, звільняється, але (увага!) значення аргументу не змінюється.

Спроба звільнити вже звільнену ділянку пам’яті призводить до аварійного
закінчення виконання програми.

Приклад 2. Програма з такою послідовністю операторів закінчується
аварійно (p, q – однотипні вказівники):

new ( p ); q := p; dispose ( p );

dispose ( q ); { ??? }

3. Лінійні зв’язані списки

3.1. Зв’язаний список у купі

Поняття про лінійні списки та найпростіші дії над ними (додавання та
вилучення елементів) пояснимо на прикладі.

Задача. З клавіатури задається послідовність прізвищ непорожніми
рядками, що можуть повторюватися. Ознакою кінця є порожній рядок.
Надрукувати прізвища кожне один раз із виконанням однієї з умов:

(1) порядок прізвищ не суттєвий;

(2) прізвища друкуються в лексикографічному порядку.

Розглянемо спочатку задачу, що визначається умовою (1). Нехай s позначає
черговий рядок, а ss – послідовність прочитаних рядків. Спочатку ss
порожня, що позначимо символами . Задамо розв’язання алгоритмом:

ss := ;

readln ( s );

while s ” do

begin

if not ( s належить ss ) then (16.1)

додати s до ss;

readln ( s )

end;

надрукувати елементи ss.

Умова задачі не обмежує кількість елементів у послідовності ss, тому для
її зберігання масив непридатний. Скористаємося лінійним зв’язаним
списком рядків у вільній пам’яті. Елементами списку є структури вигляду

Рядок Вказівник на наступний рядок

Вони утворюють послідовність, показану на рис.16.1.

Перший елемент називається головою списку. Поле-вказівник кожного (крім
останнього) елемента списку ідентифікує наступний елемент, тобто
“прив’язує” його до попереднього.

Якщо розірвати цей зв’язок, змінивши значення вказівника, то наступний
елемент списку і всі за ним стають неідентифікованими і перетворюються
на “сміття” у вільній пам’яті.

Наприклад, якщо вказівник у першому елементі списку встановити не на
другий елемент, а на якусь іншу ділянку пам’яті (пунктирна стрілка на
рис.16.1), то на другий елемент (і всі за ним) вже немає посилань. А
якщо на щось немає посилань, то його ніби й немає.

За останнім елементом списку немає наступного, тому його вказівник
установлений на “ніщо”.

Для ідентифікації першого елемента (і списку як структури в цілому)
потрібен окремий вказівник, означений у програмі й розташований у її
статичній або автоматичній пам’яті. Його називають вказівником на голову
списку.

Розглянемо означення та операції, за допомогою яких створюється та
обробляється лінійний список. По-перше, нам потрібен тип для елементів
лінійного списку. Очевидно, вони являють собою структури, одне з полів
яких є вказівником на значення цього самого типу структур. Таким чином,
незрозуміло, який же тип слід означити спочатку – тип структур чи
вказівників на них? Вихід із цього “замкненого кола” дає така
властивість мови Паскаль:

означення типу ^T вказівників дозволяється записувати вище від означення
самого типу T.

Ця властивість мови грунтується на тім, що вказівники будь-якого типу
мають той самий розмір.

Отже, означимо спочатку тип Tple вказівників, а потім тип елементів Tle
зв’язаного списку рядків. Нехай str є ім’ям типу рядків у таких
означеннях:

type TPle = ^Tle;

Tle = record

v : str; next : TPle

end

Якщо вказівник p типу TPle установлений на деякий елемент списку, то
його можна позначити p^. Вирази p^.v і p^.next задають відповідно змінні
типів str та Tple – їх значеннями є рядок, що зберігається в елементі
списку, і адреса наступного елемента.

3.2. Найпростіші операції над списками

За допомогою введених означень почнемо уточнювати алгоритм (16.1).
Подамо послідовність ss зв’язаним списком рядків. Для його ідентифікації
означимо вказівник pss типу TPle.

Присвоювання ss := можна записати як pss := nil.

Опишемо додавання рядка s до послідовності ss. Найпростіший спосіб –
додавати елемент з голови списку, тобто рядок ніби записується перед
послідовністю. Для цього треба одержати ділянку вільної пам’яті під
новий елемент списку, записати в нього новий рядок, “прив’язати” голову
списку до нового елемента і зробити цей елемент головою:

procedure add ( s : str; var h : TPle );

var p : TPle;

begin

new ( p ); p^.v := s; p^.next := h; h := p

end

В результаті виконання процедури add у списку з’являється новий перший
елемент, і вказівник h на голову списку змінюється. Тому він обов’язково
повинен бути параметром-змінною. Оскільки послідовність представлено
вказівником pss, саме він повинен бути аргументом у викликах цієї
процедури: add ( s, pss ).

Для визначення належності s до ss треба рухатися по елементах списку від
його початку доти, поки не натрапимо на елемент із рядком s або не
дістанемось останнього елемента. Нехай h^ – черговий елемент списку.
Умову переходу до наступного елемента в пошуках s можна виразити так:

( h^.next nil ) { черговий елемент не є останнім }

and

( h^.v s ) { і зберігає рядок, не рівний s }

Перехід до наступного елемента задає оператор h:=h^.next. Якщо
послідовність порожня, то відповідь одержується тривіально. Отже,
визначення належності s до ss задається функцією isin:

function isin ( s: str; h: TPle ) : boolean;

begin

if h = nil then isin := false

else

begin

while ( h^.next nil ) and ( h^.v s ) do

h := h^.next;

{ ( h^.next = nil ) or ( h^.v = s ) }

isin := ( h^.v = s )

end

end

Оскільки список починається елементом pss^, то виклик функції має вигляд
isin(s, pss). Зміна вказівника h при виконанні процедури не міняє
значення pss і не веде до втрати зв’язку з головою списку, оскільки h є
параметром-значенням.

Рядки, представлені в списку, друкуються з його початку просуванням по
елементах до кінця:

procedure writelst ( h : TPle );

begin

while h nil do

begin writeln ( h^.v ); h := h^.next end

end

Зберемо означення типів str, TPle, Tle та наведені підпрограми в модуль
strlist, і запишемо розв’язання задачі (1) у вигляді програми namlist1:

program namlist1(input, output);

uses strlist;

var pss : TPle; s : str;

begin

pss := nil; readln ( s );

while s ” do

begin

if not isin ( s, pss ) then add ( s, pss );

readln ( s )

end;

writelst ( pss )

end.

3.3. Додавання до упорядкованого списку

Розглянемо тепер задачу про друкування прізвищ із умовою (2), тобто в
лексикографічному порядку. Нехай знак 1 і ai.

Якщо s>ss1, то відшукати такий елемент списку ssk, що

(ssk nil ) and not stop do

if lt(s, p^.next^.v) then stop := true

else p := p^.next;

{ Вставка після елемента p^ за умови, }

{ що s не дорівнює p^.v }

if p^.v s then newelem ( p^.next, s );

end

end

Нехай ця процедура разом із допоміжними до неї міститься в модулі
strlist. Як бачимо, вона задає вставку елемента після перевірки його
відсутності в списку. Тоді в наступній програмі розв’язання задачі з
умовою (2) функція isin не потрібна:

program namlist2(input, output);

uses strlist;

var pss : Tple; s : str;

begin

pss := nil; readln ( s );

while s ” do

begin

addord ( s, pss );

readln ( s )

end;

writelst ( pss )

end.

Упорядкований список можна створити іншим шляхом. Можна при читанні
додавати елементи просто з голови списку, і лише після цього починати
його переупорядкування. У розділі 17 ми розглянемо упорядкування
послідовності за допомогою так званого злиття її упорядкованих частин в
більші за довжиною упорядковані. Якщо доводиться читати багато значень і
створювати довгий список, то такий спосіб вимагає в підсумку суттєво
менше роботи, ніж наведене додавання зі збереженням упорядкованості.

3.4. Вилучення елемента зі списку

На прикладі списків рядків типу str розглянемо операцію вилучення
елемента, який зберігає задане значення. Реалізуємо її згідно з
алгоритмом:

1)Порожній список залишається без змін.

2)Якщо значення зберігається в голові списку, то достатньо перемістити
вказівник із неї на наступний елемент і звільнити пам’ять, зайняту нею.
Але внаслідок переміщення голова стає недоступною, тому спочатку треба
встановити на неї допоміжний вказівник.

JLb‚??$

.

@

D

?

AE

i

o

¬

pOe yyyy

м B зберігає задане значення. Потім треба наступний за B елемент
“прив’язати” до A та звільнити пам’ять, зайняту B. Якщо елемента із
заданим значенням немає, то список не змінюється. Аналогічно п.2 перед
розривом зв’язку з елементом B треба встановити на нього допоміжний
вказівник.

Наведений алгоритм уточнюється процедурою del:

procedure del ( s : str; var h : TPle );

var p, pp : TPle; stop : boolean;

begin

if h nil then

if h^.v = s then

begin

pp := h; h := h^.next;

dispose ( pp ); pp := nil

end

else

begin

p := h; stop := false;

while ( p^.next nil ) and not stop do

if p^.next^.v = s then stop := true

else p := p^.next;

{ p^.next = nil – елемента із заданим значенням немає або }

{ stop = true – треба вилучити елемент p^.next^ }

if stop then

begin

pp := p^.next; p^.next := pp^.next;

dispose ( pp ); pp := nil

end

end

end;

Задачі

1.* Імітувати виконання пpогpами

program LIFO ( input, output );

type PLe = ^Le;

Le = record

val : integer; next : PLe;

end;

var hd, p : PLe; i : integer;

procedure insel ( var h : PLe; v : integer );

var p : PLe;

begin

new ( p ); p^.next := h; p^.val := v; h := p

end;

begin

hd := nil;

for i := 1 to 3 do insel ( hd, i );

while hd nil do

begin

writeln ( hd^.val ); p := hd;

hd := hd^.next; dispose ( p );

end;

end.

2.* Написати програму визначення обсягу вільної пам’яті, що надається
програмі, з точністю до 1000 байтів.

3. Написати підпрограму pозташування елементів списку у зворотному
поpядку:

а) без побудови нового списку; б) у новому списку.

4. Написати функцію пеpевіpки, чи пpедставлено ціле число в
упорядкованому за зростанням списку.

5. Написати підпрограми додавання та вилучення рядка зі списку за умови:

а) разом із рядком елемент списку зберігає кількість М його повтоpень:
пpи пеpшому додаванні рядка полю М присвоюється 1, потім М збільшується
на 1 пpи додаванні й зменшується на 1 пpи вилученні, а пpи вилученні
рядка з М=1 знищується елемент списку, який пpедставляє цей рядок;

б) додавання й вилучення виконуються, як у пункті (а), але зберігається
упорядкованість елементів списку за спаданням кількості повторень;
упорядкованість елементів із однаковими кількостями повторень не має
значення.

6. Гpа-“лічилка” задається натуpальними N і M. Числа 1, … , N
pозташовуються по колу, і з числа 1 починається відлік від 1 по колу;
M-е число вилучається. Відлік поновлюється з елемента, наступного за
вилученим тощо до вилучення всіх чисел із кола. Написати підпpогpаму
друкування за N і M послідовності чисел, що вилучаються, напpиклад, за N
= 4 і M = 3 це буде 3, 2, 4, 1.

7. Зв’язаний список, у якому елементи додаються та вилучаються з голови,
реалізує магазин (стек). Написати модуль pоботи зі стеком, що подається
зв’язаним списком. У модулі мають бути пiдпpогpами

1) ініціалізації порожнього стека;

2) скидання стека (вилучення всіх його елементів);

3) обчислення кількості елементів стека;

4) перевірки поpожньості стека;

5) додавання елемента з початку стека;

6) добування й вилучення елемента з початку стека.

8. Чергою є список, у якому елементи вилучаються на початку, а додаються
в кінці. Зв’язаний список, у якому перший елемент є наступним за
останнім, називається циклічним. Найчастіше такий список ідентифікується
вказівником на останній елемент. Написати модуль роботи з чергою,
поданою циклічним зв’язаним списком. У модулі мають бути пiдпpогpами

1) ініціалізації порожньої черги;

2) скидання черги (вилучення всіх її елементів);

3) обчислення кількості елементів черги;

4) перевірки поpожньості черги;

5) додавання елемента в кiнці черги;

6) добування й вилучення елемента на початку черги.

9. Над множинами означено такі опеpації:

– перевірка належності елемента множині;

– перевірка порожньості множини;

– додавання й вилучення елемента;

– читання й друкування елементів множини.

Написати модуль, що реалізує поняття “множини цілих”. Для подання
множини застосувати

а) зв’язаний список; б) упорядкований за зростанням зв’язаний список.

10. Написати програму читання двох множин і друкування результату
застосування до них теоретико-множинної операції

а) об’єднання; б) пеpетину;

в) pізниці; г) симетричної різниці.

Програма має успадковувати модуль із попереднього завдання.

11. Відповідність задається двома множинами A, B та підмножиною R
їхнього декартового добутку A? B (множиною пар). Над множинами пар
означено такі опеpації:

– перевірка належності елемента множині пар;

– перевірка порожньості множини пар;

– додавання та вилучення елемента (пари);

– читання та друкування елементів множини пар.

Написати модуль, що реалізує поняття “відповідності множин цілих”. Для
подання множини пар застосувати

а) зв’язаний список пар;

б) “список списків”: кожний елемент a множини A зберігається у
зв’язаному списку разом із вказівником на голову списку таких елементів
b множини B, що пара (a, b) належить R.

12. Написати програму читання двох відповідностей і друкування
результату застосування до них операції

а) об’єднання; б) перетину; в) композиції.

Програма має успадковувати модуль із попереднього завдання.

13. Відношенням на множині A називається підмножина декартового добутку
A? A. Написати програму читання відношення на множині цілих і перевірки,
чи є воно

а) рефлексивним; б) симетричним; в) антисиметричним; г) транзитивним;

д) еквівалентністю; е) лінійним порядком; є) решіткою.

Програма має успадковувати модуль із завдання 16.11.

14. Результат лижника у перегонах задається трійкою цілих: його
стартовим номером та кількістю хвилин і секунд. Написати програму
читання результатів лижників і друкування їх у порядку неспадання часу.

15. Написати програму обробки файлів (задача 13.12), при виконанні якої
обробка початкового файла починається зі створення списку його
елементів. Далі всі дії (додавання, пошук, вилучення тощо) відбуваються
не з файлом, а зі списком, і лише наприкінці роботи зміст списку
копіюється в файл. Така організація даних дозволяє зменшити обсяг роботи
з зовнішніми носіями.

4. Списки як рекурсивні об’єкти

Нехай a позначає довільний елемент множини A. Списки її елементів можна
означити рекурсивно, а саме:

порожній список є списком;

якщо позначає список, то > також є списком.

За цим означенням список складається з головного елемента й підсписку,
який сам є списком. Відтворимо рекурсивну природу списків означенням
типу зв’язаних списків елементів типу T :

type Plist = ^List;

List = record

v : T; subl : Plist

end

Список ідентифікується вказівником на його головний елемент. Але й
кожний наступний елемент, ідентифікований полем subl попереднього,
вважається головним елементом підсписку. Порожній список указується
значенням nil. Виразимо рекурсивно обробку списку за допомогою обробки
головного елемента й підсписку, вважаючи для визначеності, що T =
integer.

Перевірку належності елемента списку задає рекурсивна функція

function isinr ( a : integer; lp : Plist ) : boolean;

begin

if lp = nil then isinr := false else

{ обробка голови }

if a = lp^.v then isinr := true else

{ рекурсивно перевірити належність елемента підсписку }

isinr := isinr ( a, lp^.subl )

end

Далі ми запишемо рекурсивну функцію addordr додавання елемента в
упорядкований список зі збереженням його упорядкованості та повернення
вказівника на список, у який вставлено елемент. Але спочатку напишемо
функцію newelemr, подібну процедурі newelem з підр.16.3. На відміну від
тієї процедури, вказівник на новий елемент повертається з неї.

function newelemr(p : Plist; z : integer) : Plist;

var pp : Plist;

begin

new(pp); pp^.subl:=p; pp^.v:=z;

newelemr:=pp

end;

Наведена функція використовується в функції addordr:

function addordr ( a : integer; lp : Plist ) : Plist;

var p : Plist;

begin

if (lp = nil) or (a glob-1-8) then

begin

write(k:8, parl(p[k div num])^[k mod num]:8);

cnt:=cnt+1;

end;

if cnt=4 then begin writeln; cnt:=0 end;

end;

writeln;

writeln(‘вільна пам”ять : ‘, memavail,

‘; найбільша ділянка : ‘, maxavail);

readln;

end.

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Ответить

Курсовые, Дипломы, Рефераты на заказ в кратчайшие сроки
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2020