Глава 3 Более сложные элементы языка

____________________________________________________________________

break;

end;

if not found then

writeln(UTF8ToConsole('Абонента с таким номером нет'));

end;

end.

И опять не останавливаемся на достигнутом, ищем недостатки в програм-

ме, улучшаем и совершенствуем ее. Собственно так и поступают все разработ-

чики программ. Они распространяют свои программные продукты версиями,

улучшая и совершенствуя свою программу от версии к версии.

В нашем случае мы научились вводить меньше данных, чем зарезервиро-

вали в массивах name и tel, но компилятор распределит память для всего объ-

ема массивов. Значит, часть памяти останется неиспользованной. Налицо нера-

циональное использование памяти. Хотя для современных компьютеров про-

блемы с объемами доступной памяти не столь остры, как в недавнем прошлом,

все же ни один профессиональный программист не пойдет на резервирование памяти, так сказать, "про запас", использует ровно столько памяти, сколько ему нужно. Для исправления этого недостатка в нашей программе воспользуемся так называемыми динамическими массивами.

3.4.1 Динамические массивы

Динамический массив – это массив, память для которого выделяется дина-

мически во время выполнения программы. А в момент компиляции его реаль-

ный размер неизвестен. Компилятор просто выделяет память для указателя на этот массив (4 байта).

При описании динамического массива границы не указываются, а указыва-

ется только его тип, например:

197

3.4 Массивы

____________________________________________________________________

var

name array of string[30];

tel array of string[7];

Перед использованием такого массива необходимо установить размер мас-

сива с помощью процедуры SetLength(имя массива, размер), например:

SetLength(name, 50);

В этом случае для массива name будет выделено (динамически!) память для размещения 50 элементов.

Можно использовать и многомерные динамические массивы. Вот как, на-

пример, описывается 3-х мерный динамический массив:

a: array of array of array of integer;

Выделим под этот массив память:

SetLength(a, 50, 50, 50);

После использования динамических массивов, память, распределенная для них, будет автоматически освобождена. Но можно и "вручную" освободить па-

мять, занимаемую динамическим массивом. Для этого достаточно присвоить массиву значение nil.

a:= nil;

Поскольку для реализации динамических массивов используется механизм указателей, применение оператора присваивания

b:= a;

где a и b динамические массивы не приведет к созданию нового массива b,

а будут созданы два указателя, ссылающиеся на одни и те же участки памяти.

Т.е. изменение элемента массива b приведет к изменению соответствующего элемента массива a, поскольку фактически это одно и то же данное, только с разными именами (в нашем случае a и b).

Для того чтобы создать другой массив идентичный по содержанию необ-

ходимо использовать процедуру Copy(), например:

198

Глава 3 Более сложные элементы языка

____________________________________________________________________

b:= Copy(a);// полная копия массива a

Можно скопировать часть массива:

b:= Copy(a, 5, 5);

В новый массив b будет скопировано 5 элементов массива a, начиная с пя-

того элемента.

Необходимо помнить, что нумерация элементов в динамических массивах начинается с нуля.

При передаче динамических массивов в качестве параметров в функции и процедуры узнать реальный размер массива можно с помощью функции high(имя массива), но можно просто передать реальный размер массива через дополнительный параметр.

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

мера массива использовали функцию high(), а в процедуру передали факти-

ческий размер массива через параметр.

program phone_4; {$mode objfpc}{$H+} uses

CRT, FileUtil, SysUtils; var

name: array of string[30]; tel: array of string[7]; n: integer;

phone: string[7];

{Эта функция осуществляет поиск абонента по его номеру телефона}

function find_data (var name: array of string[30];

var tel: array of string[7];

199

3.4 Массивы

____________________________________________________________________

phone:string[7]): boolean;

var

k: integer; begin

find_data:= false;

for k:= 0 to high(tel) do

if (tel[k] = phone) and (phone <> '') then begin

writeln(UTF8ToConsole('Фамилия этого абонента '), name[k]);

find_data:= true;

break;

end;

end;

{Процедура ввода фамилий и номеров телефонов}

procedure data_input(var name: array of string[30]; var tel: array of string[7]; var n: integer);

var

k: integer; fam: string[30];

begin

writeln(UTF8ToConsole('Введите фамилию')); writeln(UTF8ToConsole('Чтобы закончить ввод введите "***"'));

for k:= 0 to n - 1 do

begin

//запомним текущий индекс в переменной n n:= k; // по его значению мы потом

//установим фактический размер массивов

200

Глава 3 Более сложные элементы языка

____________________________________________________________________

readln (fam);

if fam = '***' then break;

name[k]:= fam;

writeln(UTF8ToConsole('Введите номер телефона'));

readln(tel[k]);

{Удаляем ведущие и ведомые ("хвостовые") пробелы}

tel[k]:= Trim(tel[k]);

writeln(UTF8ToConsole('Введите фамилию'));

end;

writeln(UTF8ToConsole('Ввод данных закончен'));

end;

begin

n:= 50;

{сначала устанавливаем максимальный размер массивов}

SetLength(name, 50);

SetLength(tel, 50);

data_input(name, tel, n); {ввод фамилий и номеров телефонов} {теперь устанавливаем фактический размер массивов}

SetLength(name, n);

SetLength(tel, n);

if n = 0 then exit;

writeln(UTF8ToConsole('Для поиска абонента введите')); writeln(UTF8ToConsole('номер его телефона')); writeln(UTF8ToConsole('Для выхода из программы')); writeln(UTF8ToConsole('введите ''***'''));

phone:= '';

while phone <> '***' do

begin

writeln(UTF8ToConsole('Введите номер телефона'));

201