4. ИСПОЛЬЗОВАНИЕ ПОДПРОГРАММ В ТУРБО ПАСКАЛЕ
56
TYPE <описание типов, определенных в данном модуле
и доступных для других модулей>;
CONST <описание констант, определенных в данном
модуле и доступных для других модулей >;
VAR <описание переменных, определенных в данном
модуле и доступных для других модулей >;
PROCEDURE <заголовки процедур, определенных в данном
модуле и доступных для других модулей >;
FUNCTION <заголовки функций, определенных в данном
модуле и доступных для других модулей >;
IMPLEMENTATION
USES <список подключаемых модулей>;
TYPE <описание типов, определенных в данном модуле
и недоступных для других модулей>;
CONST <описание констант, определенных в данном
модуле и недоступных для других модулей >;
VAR <описание переменных, определенных в данном
модуле и недоступных для других модулей >;
PROCEDURE <реализация процедур, определенных в
данном модуле и доступных для других модулей >;
FUNCTION <реализация функций, определенных в данном
модуле и доступных для других модулей >;
PROCEDURE <заголовки и реализация процедур,
определенных в данном модуле и недоступных для
других модулей >;
FUNCTION <заголовки и реализация функций,
определенных в данном модуле и недоступных для
других модулей >;
BEGIN <это слово необходимо, если имеются операторы
секции инициализации>
<Необязательная часть модуля>
END.
Интерфейсная и реализационная части могут быть пустыми, но присутствовать
должны обязательно. При подключении модуля вначале выполняются операторы секции
инициализации (если они имеются), а затем операторы основного блока главной програм-
мы, в которую включен данный модуль.
Рассмотрим пример. Требуется написать главную программу, в которой вводится
размер вектора и его элементы и вызывается процедура сортировки одномерного массива
целых чисел в порядке возрастания. Длина массива не превышает 100. Процедуру офор-
мить в виде модуля.
USES CRT,MODSORT;
VAR A:MAS;
I:BYTE;
N:BYTE;
BEGIN
WRITELN('ВВОД ИСХОДНЫХ ДАННЫХ:');