Создание модулей: Исполняемая и Инициирующая части. Пример №17.

Создание модулей: Исполняемая и Инициирующая части. Пример №17.
В предыдущем посте мы познакомились с описанием модуля, и первыми двумя составными частями: Заголовком и Интерфейсной частью. Сегодня предлагаем Вам познакомиться с исполняемой и инициирующей частями модуля в языке программирования Турбо-паскаль.

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

Инициирующая часть модуля в языке Турбо-Паскаль как правило завершает модуль. Она может отсутствовать вместе с начинающим ее словом BEGIN, или быть пустой – тогда за BEGIN сразу следует слово END с точкой. В инициирующей части содержится некоторый фрагмент программы. Он выполняется до передачи управления основной программе и обычно используется для подготовки ее работы (например, именно в этой части переменным присваиваются начальные значения).

Посмотрим, как выглядит наш модуль для работы с массивами в пример ниже.

Пример 17


UNIT MyModule;

INTERFACE
{ Интерфейсная часть }
const Number=100;
type IntArray=array[1..Number] of integer;

procedure InputIntArray(var A:IntArray);
procedure SortIntArray(var A:IntArray);
function SumIntArray(A:IntArray):longint;

IMPLEMENTATION
{ Исполняемая часть }
{ Процедура ввода массива }
PROCEDURE InputIntArray(var A: IntArray);
var
i: byte;
begin
for i:=1 to Number do
readln(A[i]);
end;

{ Процедура сортировки массива методом пузырька }
PROCEDURE SortIntArray;
var
i,j: byte;
t:integer;
begin
for i:=Number downto 2 do
for j:=1 to i-1 do
if A[j]&gt;A[j+1] then
begin
t:= A[j];
A[j]:= A[j+1];
A[j+1]:= t;
end;
end;

{ Функция подсчета суммы элементов массива }
FUNCTION SumIntArray(A: IntArray):longint;
var
i: byte;
begin
SumIntArray:=0;
for i:=1 to Number do
SumIntArray:=SumIntArray+A[i];
end;

{ Инициирующая часть отсутствует }
END.

UNIT MyModule;

INTERFACE

{ Интерфейсная часть }

const Number=100;

type IntArray=array[1..Number] of integer;

procedure InputIntArray(var A:IntArray);

procedure SortIntArray(var A:IntArray);

function SumIntArray(A:IntArray):longint;

IMPLEMENTATION

{ Исполняемая часть }

{ Процедура ввода массива }

PROCEDURE InputIntArray(var A: IntArray);

var

i: byte;

begin

for i:=1 to Number do

readln(A[i]);

end;

{ Процедура сортировки массива методом пузырька }

PROCEDURE SortIntArray;

var

i,j: byte;

t:integer;

begin

for i:=Number downto 2 do

for j:=1 to i-1 do

if A[j]>A[j+1] then

begin

t:= A[j];

A[j]:= A[j+1];

A[j+1]:= t;

end;

{ Функция подсчета суммы элементов массива }

FUNCTION SumIntArray(A: IntArray):longint;

var

i: byte;

begin

SumIntArray:=0;

for i:=1 to Number do

SumIntArray:=SumIntArray+A[i];

end;

{ Инициирующая часть отсутствует }

END.

Обратите внимание на описание процедуры SortIntArray в исполняемой части – параметры вызова здесь опущены. Так можно было поступить со всеми процедурами и функциями, объявленными в интерфейсной части, ведь там уже все указано. Поэтому теперь заголовок процедуры (функции) можно либо сократить, либо описать только точно так же.

После компиляции этого модуля Вы получите файл mymodule.tpu. Вот теперь Ваш модуль готов к употреблению. Можно смело подключать его к любой программе также как и любые другие, используя предложение USES: