Заняття №6.
Складання програм з використанням модулів.
Мета: навчитися розробляти програми з використанням модулів.
Теоретичні відомості.
Прогресивним підходом у програмувонні вважається використання модулів
або блоків. Набір процедур та функцій, об’єднаних в один блок (UNIT),
може компілюватися незалежно від головної програми. Завдяки цьому час
компіляції для великих програм може на багато зменшуватися, а це має
велике значення при відладці програм, які приходиться досить часто
компілювати.
МОДУЛЬ(UNIT) – це програмна одиниця, текст якої відкомпільовано
незалежно. Вона включає в себе визначення констант, типів даних,
змінних, процедур та функцій, доступних для використання в програмах,
які викликають.
Внутрішня структура модуля прихована від користувача.
Структура модуля.
В модулі можна виділити декілька розділів: заголовок, інтерфейсна
частина, реалізаційна частина і інілізаційна частина.
Заголовок модуля.
UNIT ім’я модуля;
Інтерфейсна частина.
INTERFACE початок розділу оголошень;
USES модулі, які використовуються;
LABEL оголошення доступних глобальних
міток;
CONST оголошення доступних глобальних
констант;
TYPE оголошення доступних глобальних
типів;
VAR оголошення доступних глобальних
змінних;
PROCEDURE(FUNCTION) заголовки доступних процедур (функцій);
Реалізаційна частина.
IMPLEMENTATION початок розділу реалізації;
USES модулі, які використовуються при реалізації;
LABEL оголошення скритих глобальних міток;
CONST оголошення глобальних констант;
TYPE оголошення скритих глобальних типів;
VAR оголошення скритих глобальних змінних;
PROCEDURE(FUNCTION) тіла доступних та скритих процедур (функцій);
Інілізаційна частина.
BEGIN основний блок модуля.
END.
Індивідуальне завдання.
Варіант №7.
Скласти програму на мові Pascal розв’язку даної задачі та виконання її
на ЕОМ. Процедури та функції оформити у вигляді модуля.
Задача 1.
Модуль:
unit gregory;
{———————————————————}
interface
uses crt;
var
c,k:array [1..5,1..4] of real;
i,j:integer;
m:byte;
function facktorial(x:integer):real;
{———————————————————}
implementation
function facktorial(x:integer):real;
var
i:integer;
facktorial1:real;
begin
facktorial1:=1;
if i
Нашли опечатку? Выделите и нажмите CTRL+Enter