Найти минимум двух функций, задаваемых массивами значений с помощью соответствующих процедур.

END.

BEGIN

IMPLEMENTATION

TYPE

INTERFACE

TYPE

INTERFACE

END.

BEGIN

IMPLEMENTATION

INTERFACE

<интерфейсная часть>

<исполняемая часть>

<инициирующая часть>

 

Файл, содержащий текст модуля, должен иметь имя, совпадающее с именем модуля. Так, если имеем заголовок модуля UNIT SP; то текст этого модуля должен содержаться в файле SP.PAS. Имя модуля служит для связи с другими модулями и основной программой. Эта связь устанавливается предложением USES <имена модулей>, которое должно открывать раздел описаний основной программы. После этого основной программе становятся доступны типы, переменные, процедуры и функции, описанные в этом модуле и перечисленные в разделе INTERFACE.

 

 

UNIT CMP;

COMPLEX = RECORD RE,IM:REAL END;

PROCEDURE ADDC (X,Y:COMPLEX;

VAR Z:COMPLEX);

 

Теперь, если в основной программе написать предложение USES CMP, то ей станут доступны тип COMPLEX и процедура ADDC из модуля СMP.

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

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

UNIT CMP;

COMPLEX=RECORD RE,IM:REAL END;

PROCEDURE ADDC (X,Y:COMPLEX;

VAR Z:COMPLEX);

PROCEDURE ADDC;

Z.RE := X.RE + Y.RE;

Z.IM := X.IM + Y.IM;

END;

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

Для записи откомпилированного модуля на диск в файле с расширением TPU следует в пункте меню COMPILE выбрать пункт DESTINATION и установить в нем режим DISK. После этого следует нажать [F9] и при отсутствии ошибок модуль будет записан на диск.

В Турбо-Паскале имеется ряд стандартных модулей, находящихся в одноименных файлах или в составе библиотеки TURBO.TPL. Только один модуль SYSTEM автоматически подключается к каждой программе. Остальные модули становятся доступны только после указания их имен после слова USES.

Пример.

 

Текст модуля содержит процедуры MY1 и MY2, с помощью которых формируются массивы значений двух функций, и функцию MIN. определяющую минимальное значение среди всех элементов массива.

unit func;