Implementation

15 16 17 18 19 20 21

{Секция Implementation содержит реализацию тел процедур и функций, описанных

в Interface. Также здесь могут содержаться типы данных, константы, процедуры

и функции, необходимые для работы, но которые не будут видны программе при

подключении библиотеки.}

{Процедура обмена местами двух элементов матрицы (x1,y1) и (x2,y2).

Эта процедура используется при транспонировании матрицы, но ее

нельзя вызвать при подключении библиотеки, т.к. она не объявлена

в секции Interface. }

procedure Swap (Var m: TMatrix; x1,y1,x2,y2: Integer);

var

temp: Integer;

begin

temp:= m[x1,y1];

m[x1,y1]:= m[x2,y2];

m[x2,y2]:= temp;

end;

{Ввод матрицы с клавиатуры. Параметры процедуры здесь не указаны, т.к. они есть в секции Interface }

procedure MatrInput;

var

i,j: Integer;

begin

for i:=1 to n do

begin

Write(i:3,'-я строка: ');

for j:=1 to n do Read(m[i,j]);

ReadLn;

end;

{Транспонирование матрицы.}

procedure MatrTransp;

var

i,j: Integer;

begin

for i:=1 to n-1 do

for j:=i+1 to n do

Swap (m,i,j,j,i);

end;

{Вывод матрицы на экран.}

procedure MatrOutput;

var

i,j: Integer;

begin

for i:=1 to n do

begin

Write(i:3,'-я строка: ');

for j:=1 to n do Write (m[i,j]:4);

WriteLn;

end;

{Эта секция может использоваться для инициализации работы библиотеки.}

Begin

End.

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

{Это отдельный файл, содержащий основную программу}

Uses

Crt, { Библиотека стандартных процедур управления экраном и клавиатурой }

Matrix; {Наш разработанный модуль-библиотека работы с квадратными матрицами (личная)}

Var

m: TMatrix; { Объявляем матрицу - максимальный размер 10*10 }

n: Integer; { Размер матрицы }

Begin

{ Повторяем ввод размера, пока не будет введено корректное значение}

repeat

ClrScr;

Write('Введите размер матрицы (1..10): ');