Implementation

{Секция 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;

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;

end;

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