Найти минимум двух функций, задаваемых массивами значений с помощью соответствующих процедур.
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;