Пример разработки собственного модуля

Разработку собственного модуля рассмотрим на следующем примере:

Пусть дано задание: разработать личную библиотеку, включив в нее процедуры:

· ввода элементов числовой матрицы размером N*N;

· транспонирования матрицы;

· вывода результирующей матрицы.

В основной программе ввести размер матрицы N.

Начнем разработку модуля, который будет носить название Matrix. Программно это будет выглядеть так:

Unit Matrix;

{Зарезервированное слово Unit служит для указания имени библиотеки. Это имя

должно совпадать с именем PAS-файла библиотеки (т.е библиотека Matrix должна

находиться с файле Matrix.Pas), а иначе компилятор даст ошибку при попытке

использования такой библиотеки}

Interface

{Секция Interface содержит описания общедоступных типов данных, констант,

процедур и функций. Т.е. все, что будет здесь находиться можно будет

использовать при подключении данной библиотеки.}

Type

TMatrix = array [1..10,1..10] of Integer; { Квадратная матрица }

procedure MatrInput (Var m: TMatrix; n: Integer); { ввод матрицы }

procedure MatrOutput (Var m: TMatrix; n: Integer); { вывод матрицы }

procedure MatrTransp (Var m: TMatrix; n: Integer); { транспонирование }