Файл: Лабораторная работа 2 Модульное программирование. Интерфейсы. По дисциплине Объектноориентированное программирование.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 10.11.2023
Просмотров: 65
Скачиваний: 2
, объявленных в интерфейсной секции, и описание внутренних ресурсов модуля. Обращение к этим ресурсам возможно только из подпрограмм, описанных в том же модуле.
Секция инициализации содержит операторы, которые выполняют некоторые действия, необходимые для нормальной работы процедур модуля (например, открывают файлы, изменяют цвет, выдают информацию о разработчике и т.п.) Операции этой секции выполняются один раз при включении модуля до начала выполнения основной программы. Эта секция в модуле может отсутствовать, что показано включением ее в квадратные скобки ([ ]).
В результате компиляции модуля система формирует одноимённый файл, имеющий расширение .tpu.
Среда языка Borland Pascal предусматривает три режима компиляции программы, использующей модули (главное меню, пункт Compile):
-
Compile – компилируется только основная программа, все модули должны быть предварительно откомпилированы в tpu–файлы и размещены либо в текущем каталоге, либо в одном из каталогов, указанных как источники tpu–файлов в настройках среды (Options/Directories); -
Make – модули, для которых не обнаружены tpu–файлы компилируются из соответствующих pas–файлов, которые должны находиться либо в текущем каталоге, либо в одном из каталогов, указанных как источники pas–файлов в настройках среды (Options/Directories); -
Build – все ранее откомпилированные tpu–модули игнорируются и все модули компилируются из своих исходных файлов заново.
readln (n);writeln (‘значения элементов: ’);For i:= 1 to n dobeginwrite (‘X[’, i, ‘] = ’);readln (X[i]);end;End;Procedure Print;Var i: byte; {i – локальный ресурс – параметр цикла}Beginwriteln (‘Значения элементов массива равны: ’);For i:= 1 to n dоwriteln (‘X[’, i, ‘] = ’, X[i]: 8: 2);End;Function Sum;Var i: byte; {i – локальный ресурс – параметр цикла}s: real; {s – локальный ресурс для накопления суммы}Begins:= 0;For i:= 1 to n dos:= s+X[i];Sum:= s; {присваивание выполнено для передачи значения суммы во внешнюю среду}End;BEGINClrScr;writeln (‘Модуль разработан Алексеенко К. Д.’);readln;END.