Створення модуля.

1. Створити текстовий файл в середовищі Turbo Pascal, що вміщує текст модуля.

2. Зберегти його з тим же ім’ям, яке записано в заголовку модуля. Отримаємо текстовий файл з розширенням pas.

3. По умовчанню скомпільовані файли знаходяться в оперативній пам’яті. Файл модуля необхідно зберегти на диску. Для цього необхідно скористатись пунктом меню Options + Linker. В стопчику Link buffer відмітити Disk в необхідному рядку.

4. Скомпілювати модуль. (Alt+ F9). Отримаємо двійковий файл з розширенням tpu. Щоб знати де розміститься цей файл, необхідно відкрити вікно призначення каталогів. Для цього необхідно скористатись пунктом меню Options + Directory. Відкриється вікно в якому видно призначення каталогів. В першому рядку з назвою „EXE & TPU directory” повинно бути записано шлях до каталогу в якому зберігаються модулі. Якщо рядок пустий, то файл модуля збережеться в поточному каталозі. Файл модуля буде мати те ж ім’я, що і текстовий файл модуля і розширення tpu.

Підключення модуля

1. Відкрити новий файл в середовищі Turbo Pascal для введення тексту програми яка буде використовувати створений модуль.

2. Записати заголовок програми.

3. В другому рядку за допомогою директиви USES підключити модуль.

4. В тексті програми можна використовувати звернення до підпрограм модуля в відповідності з їх об’явами.

Розробка програм з використанням власних бібліотек(модулів)

Приклад 1. Створити модуль, що містить процедуру вводу даних в масив дійсних чисел довільного розміру (але не більше 50 елементів), функцію визначення суми елементів масиву, функцію визначення найбільшого елементу масиву, процедуру виведення елементів масиву довільного розміру.

UNIT ObrMas;

INTERFACE

Type

TM=array [1..50] of real;

Procedure VVOD (var M:TM;var n:word);

Procedure VIVOD (var M:TM;n:word);

Function Summa (var M:TM;n:word):real;

Function max (var M:TM;n:word):real;

IMPLEMENTATION

Procedure VVOD;

var

i:word;

begin

repeat

writeln (‘Введіть розмір масиву (не більше 50)’);

readln (n);

until n<=50;

for i:1 to n do

begin

write (‘Введіть наступний елeмент’);

readln (M[i]);

end;

end;

procedure VIVOD;

var

i:word;

begin

writeln (‘Вміст масиву’);

for i:=1 to n do

write (M[i]:7:2);

writeln;

end;

Function Summa (var M:TM;n:word):real;

Var

i:word;

S:real;

Begin

S:=0;

For i:=1 to n do

S:=S+M[i];

Summa:=S;

End;

Function max (var M:TM;n:word):real;

Var

i:word;

mx:real;

Begin

mx:=M[1];

For i:=1 to n do

If M[i]> mx then

Mx:=M[i];

max:=mx;

End;

End.

Приклад 2. Розробити програму що формує масив 30 дійсних елементів, знаходить суму його елементів, мах елементі вивести вміст масиву.

Program PR;

Uses ObrMas;

Var

A:TM;

K:word;

Begin

VVOD (A,k);

Writeln (‘Сума елементів масиву =’,Summa(A,k):7:2 );

Writeln (‘Максимальний елемент масиву =’,max(A,k):7:2);

VIVOD (A,k);

End.

Завдання для самоперевірки.

1. Який сенс в використанні модулів.

2. Яким чином підключається модуль до програми.

3. Призначення розділу об¢яв.

4. Призначення розділу реалізацій.

5. Призначення розділу ініціалізації.