Исполняемая часть модуля

Исполняемая часть модуля начинается словом IMPLEMENTATION и содержит объявление локальных объектов модуля и тела (тексты) всех процедур и функ­ций, заголовки которых даны в интерфейсной части, и локальные подпрограм­мы. Тексты заголовков подпрограмм, заголовки которых даны в интерфейсной части, могут быть без параметров. После слова Implementation могут быть объ­явлены объекты, локальные в модуле: типы, константы, переменные, метки.

Структура исполняемой части модуля:

IMPLEMENTATION

Локальные объекты модуля

Заголовок подпрограммы для каждой подпрограммы

Блок подпрограммы.

Блок подпрограммы модуля, процедуры или функции имеет то же строение, что и у программы. То есть в ней могут быть локальные объекты и внутренние процедуры и функции.

Пример модуля с процедурой ISWAP и функцией IMAX. Подключить модуль к программе можно с помощью USES MODUL. После подклю­чения модуля можно использовать его процедуру и функцию.

Модуль с процедурой и функцией.

Unit MODUL;

Interface { - начало интерфейсной части }

Procedure ISWAP ( Var i, j : integer );

Function IMAX ( i, j : integer ) : integer ;

Implementation { - начало исполняемой части }

Procedure ISWAP; { - заголовок без параметров }

Var Т : integer;

Begin T := I; I := J; J := T;

End; { - конец процедуры ISWAP }

Function IMAX; { - заголовок без параметров }

Begin IF I > 3 THEN IMAX := I

ELSE IMAX := J

End; { - конец функции IMAX }

END. { - конец модуля MODUL }