Создание модуля

Модуль содержит:

· заголовок модуля (UNIT <имя модуля>);

· раздел объявлений – интерфейс: INTERFACE;

· раздел реализаций – IMPLEMENTATION;

· раздел инициализации (необязательный) – между BEGIN и END. Если этот раздел отсутствует, то достаточно употребить END с точкой в конце.

Содержательная часть каждого из разделов может отсутствовать. Например, не будет противоречить синтаксису «пустой» модуль:

UNIT pustoj;

INTERFACE

IMPLEMENTATION

END.

Имя модуля либо должно совпадать с именем файла, в котором он помещен (без расширения), либо его первые восемь букв должны совпадать с именем файла; обычно расширение файла с модулем *.pas (но не обязательно).

В разделе объявлений (Interface) заносятся:

· имена модулей, используемых в данном модуле, в виде USES <имя модуля 1>, <имя модуля 2>,.., <имя модуля n>;

· описание типов, констант, переменных, вносимых в программу из модуля;

· заголовки процедур и функций, описываемых в модуле в следующем разделе; заголовок – это указание на вид процедуры (procedure или function), затем в круглых скобках дается список параметров с их типами в стандартном виде и для функции – тип возвращаемого результата.

В разделе реализации (Implementation) могут быть введены:

· свои типы, константы и переменные, доступные только для программ данного модуля, для которых они являются глобальными;

· тела процедур и функций, указанных в разделе объявлений; при этом должны повториться их заглавия, но, возможно, без списка параметров и типа возвращаемого результата (т.е. просто без круглых скобок и их содержимого).

В разделе инициализации помещают некоторые стартовые действия или присваивание стартовых значений некоторым величинам. Чаще всего этот раздел пустой и состоит из одного слова END. Если же он не пустой, то начинается со слова BEGIN.

Пример выполнения лабораторной работы

Задание. Найти разность R между максимальным и минимальным элементами массива

Программа расчета:

program lab_10;

uses crt, un1; {подключение модулей}

var A: arr; {массив А}

R: integer; {разность}

Amax: integer; {максимальный элемент}

Amin: integer; {минимальный элемент}

m: word; {реальный размер квадратной матрицы}

fi,fo: text; {файловые переменные}

{------------- основная программа --------------------}

begin

clrscr;

assign (fi, 'input8_2.pas');

reset (fi);

{вызов процедуры чтения данных из файла}

{ fi, A, MaxDim, m – фактические параметры}

ReadFromFile (fi, A, MaxDim, m);

close(fi);

{вызов процедуры решения основной задачи}

{A, m, Amin, Amax – фактические параметры}

MaxMin(A, m, Amin, Amax);

R:=Amax-Amin; { вычисление разности}

assign (fo, 'out_8_2.pas');

rewrite (fo);

{вызов процедуры вывода результатов в файл}

{ fo, Amin, Amax, R – фактические параметры}

SaveToFile(fo, Amin, Amax, R);

close (fo);

repeat until keypressed;

end.

Модуль с процедурами (содержимое файла un1.pas ):

UNIT un1;

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

{описание констант, типов, переменных}

const MaxDim = 10; {максимальный размер матрицы}

type arr=array[1.. MaxDim,1.. MaxDim] of integer; {описание типа arr}

{описание заголовков функций}

Procedure ReadFromFile (var f:text; var a1:arr; MaxD:word;var m1:word);

{Исходные данные: f – файл исходных данных,

MaxD – максимальная размерность массива a1.

Результат: заполненный массив a1 и его реальный размер – m1. }

Procedure MaxMin(a1:arr; m1:word; var min, max: integer);

{Исходные данные: массив a1 и его реальный размер – m1.

Результат: min, max – минимальный и максимальный его элементы.}

Procedure SaveToFile(var f:text; min, max, R: integer);

{Исходные данные: f – файл для сохранения результата, min, max, R – выводимые в файл и на экран данные. Результатом подпрограммы является вывод результатов программы в файл и на экран}

IMPLEMENTATION {выполняемая часть}

Procedure ReadFromFile;

Var i, j: word; {счетчики по строкам, столбцам –

локальные переменные }

begin

readln (f,m1); {чтение размера матрицы из первой строки файла}

if m1> MaxD then {проверка размера матрицы}

begin

m1:= MaxD;

writeln(‘Матрица из файла урезана до размера массива’);

end;

for i:=1 to m1 do {чтение из файла матрицы А}