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

____________________________________________________________________

3.5. Модули в Паскале

Модуль это такая программная единица, которая может и, чаще всего,

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

дур, а также константы, переменные, объявленные типы. Это позволяет разде-

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

грамм. Например, один программист может разрабатывать один модуль, второй программист – другой модуль, а третий главную программу.

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

ров, как правило, занимается руководитель проекта.

При этом каждый программист пишет и отлаживает свой модуль незави-

симо от других.

Текст модуля на языке программирования называется исходным модулем.

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

грамму (компонуются) для обеспечения правильных вызовов функций и проце-

дур. Например, главная программа вызывает некую функцию из модуля А, в

модуле В происходит вызов процедуры из модуля С и т.д. Такой процесс назы-

вается разрешением связей. В итоге собирается исполняемая программа.

3.5.1 Структура модуля

Структура модуля имеет вид:

213

3.5 Модули в Паскале

____________________________________________________________________

Модуль начинается со служебного слова unit, за которым следует имя модуля. В случае если данный модуль использует другие модули, после слова interface необходимо поместить служебное слово uses и список исполь-

зуемых модулей.

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

процедуры и функции, которые доступны для всех программ и модулей, ис-

пользующих данный модуль. Глобальные переменные, помещенные в интер-

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

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

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

ции являются видимыми в секции реализации.

Те процедуры и функции, которые описаны в интерфейсной секции, опи-

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

но таким же, как тот, который указан в секции интерфейса.

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

214

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

____________________________________________________________________

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

граммы. При использовании нескольких модулей, их секции инициализации вызываются в порядке, указанном в uses. Секция инициализации является не-

обязательной и может вообще отсутствовать.

Раздел finalization также является необязательным. В нем выполня-

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

С целью уменьшения размера основной программы, улучшения читабель-

ности готовые подпрограммы рекомендуется оформлять в виде модуля. Со временем у вас появится своя собственная библиотека модулей.

Имя библиотечного модуля должно совпадать с именем файла, под кото-

рым хранится текст модуля на диске. Исходный текст библиотечного модуля имеет расширение *.pas (<имя модуля>.pas).

В качестве примера оформим программу вычисления синуса из раздела

3.1.1.3 в виде модуля.

В меню Файл выберите пункт Создать модуль. В окне редактора исходного кода появится заготовка кода для модуля. Очистите окно редактора и введите текст модуля:

unit my_module;

interface

function No_standard_sin(x:real):real;

implementation

{повторяем заголовок функции точно таким

что и в разделе interface}

function No_standard_sin(x:real):real;

var eps,s,t: real;

215

3.5 Модули в Паскале

____________________________________________________________________

n: integer; begin

s:= x; t:= x; n:= 2; eps:= 1e-7; repeat

t:= -t * (sqr(x)/(n * (n + 1))); s:= s + t;

n:= n + 2; until abs(t)< eps;

No_standard_sin:= s; end;

end.

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

жав клавиши Ctrl+F9 или меню Запуск-> Собрать. Для каждого модуля созда-

ются два файла: двоичный файл описания модуля с расширением (.ppu) и объ-

ектный с расширением (.o). Таким образом, в вашей папке создадутся два файла my_module.ppu и my_module.o

Создайте консольное приложение и введите текст программы:

program project_with_my_module; {$mode objfpc}{$H+}

uses

CRT, FileUtil,SysUtils, my_module; // указываем имя модуля var x, y, dx: real;

begin x:= 0;

dx:= 0.1; while x <= 1 do

begin

216

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

____________________________________________________________________

y:= No_standard_sin(x);

writeln('x= ', x:0:1, ' y= ', y:0:7,

' sin(x)= ', sin(x):0:7);

x:= x + dx;

end;

writeln(UTF8ToConsole('Нажмите любую клавишу'));

readkey;

end.

Сохраните проект в той же папке, где вы сохранили модуль или скопируй-

те файлы my_module.ppu и my_module.o в папку с текущим проектом. Нажмите клавишу F9. Начнется компиляция и сборка (компоновка) программы. На этапе сборки ваш модуль будет автоматически добавлен в исполняемую программу.

После выполнения программы вы получите те же самые результаты, что и в разделе 3.1.1.3.

Если вы хотите, чтобы ваш модуль был доступен и в других программах,

то проще всего поступить следующим образом:

1.Создайте папку, например с именем my-units

2.Перенесите в эту папку файлы my_module.ppu и my_module.o;

3. Скопируйте саму папку my-units в системный каталог

"C:\lazarus\fpc\2.2.4\units\i386-win32" если вы работаете в Windows или в ката-

лог "/usr/lib/fpc/2.2.4/units/i386-linux", если вы работаете в Linux.

Теперь ваш модуль будет автоматически подключаться в ваши программы

(разумеется, надо прописать имена модулей в объявлении uses). Почему именно в этот каталог? Потому что компилятор если не найдет модуль в папке с вашим проектом, он будет искать его по умолчанию в этой системной папке.

Если же вы разместили папку my-units в другом месте, то вам придется прописывать путь к этой папке, либо в инспекторе проекта, либо непосредст-

венно в объявлении uses вот таким образом:

uses my_module in '<путь к папке с исходным кодом модуля>'

217