Створення модуля.
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. Призначення розділу ініціалізації.
Дата добавления: 2015-08-26; просмотров: 623;