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

Исполняемая часть модуля начинается словом 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 }

Дата добавления: 2014-01-06