Параметры-процедуры и параметры-функции

Передаваемым параметром может быть также параметр-процедура или параметр-функция, т. е. параметр процедурного типа. Фактически этот параметр является параметром-значением, т. к. записывается без зарезервированного слова var.

В качестве фактического параметра в этом случае используется соответствующая процедура или функция, имеющая необходимое количество параметров требуемых типов.

Для параметров-процедур и параметров-функций существуют те же правила, что и для других переменных процедурного типа: подпрограммы должны компилироваться с ключом {$F+} или иметь директиву far, не должны быть стандартными подпрограммами, не должны объявляться внутри других подпрограмм, не иметь директив inline или interrupt.

Пример. Программа, печатающая таблицы сложения и умножения двух целых чисел в заданном диапазоне.

program EXAMPLE15;

type

Func = functionCX, Y: Integer): Integer;

{$F+}

function Add(X, Y: Integer): Integer;

begin

Add := X + Y

end;

function Multiply (X, Y: Integer): Integer;

begin

Multiply := X * Y

end;

{$F-}

procedure PrintTable(A, B: Integer; Operation: Func);

{процедура печати таблицы}

var

i, j: Integer;

begin

for i := 1 to A do

begin

for j := 1 to В do

Write(0peration(i, j): 5);

WriteLn

end;

WriteLn

end;

begin {начало основной программы}

PrintTable(10, 10, Add);

PrintTable(10, 10, Multiply)

end.

5. Использование модулей в Турбо Паскаль

Понятие модуля или, в более общем случае, модульного программирования, возникло на определенном этапе развития вычислительного дела и было обусловлено, в первую очередь, возрастающими объемами программ, их увеличивающейся внутренней сложностью и коллективным характером разработок. К настоящему времени понятие модуля проделало значительную эволюцию от примитивного "разрубания" текста программы на произвольные части или создания библиотек включаемых фрагментов до независимо хранимых и разрабатываемых, независимо компилируемых и тестируемых программных единиц со строго определенными интерфейсами, которые могут объединяться в различных сочетаниях.

При всех несомненных достоинствах алголоподобных языков, большинство из них имеет существенный недостаток - отсутствие модульности. Представление программной системы как единой языковой конструкции является препятствием для эффективной организации коллективных разработок сложных систем, затрудняет понимание и модификацию программ. Понятие подпрограмм лишь частично решает проблему ввиду неявных и слабо контролируемых информационных зависимостей подпрограмм и их окружения.

С этой точки зрения, введение понятия модуля в Turbo Pascal, явилось решающим шагом на пути его превращения в язык, пригодный для крупных разработок производственного и коммерческого назначения на современном уровне технологии программирования. Стал возможным современный стиль реализации программных пакетов различного назначения и ориентации, легко подключаемых к любой программе. Кроме того, за счет введения модулей удалось ослабить ограничения на суммарный объем готовых программ.

Модульные средства в Turbo Pascal'e заметно слабее аналогичных возможностей тех языков, для которых модульный принцип был положен в основу их проектирования. Однако следует признать, что разработчики языка Turbo Pascal нашли удачный компромисс, достаточно органично встроив принципиально новое понятие в считающийся уже классическим язык Pascal, не нарушив при этом его целостности, элегантности и простоты и одновременно значительно расширив его возможности.

В Турбо Паскаль модульное программирование является дальнейшим развитием стратегии структурирования программы, начало которому положило использование подпрограмм (процедур и функций).

Реализация технологии модульного программирования предполагает, что процедуры и функции из раздела описания основной программы переносятся в отдельный файл, создаваемый по определенным правилам и называемый модулем.

В результате появляется возможность однажды разработанные процедуры и функции использовать многократно, причем не только одной программой, в которой написан код подпрограммы, а несколькими программами. Кроме того, наличие модулей в Turbo Pascal позволяет программировать и отлаживать программу по частям, создавать библиотеки подпрограмм и данных, использовать возможности стандартных модулей и модулей, созданных пользователем, практически неограниченно увеличивать кодовую (содержащую коды команд) часть программы.

Стандартные процедуры и функции Турбо Паскаль размещаются в модулях, входящих в комплект поставки компилятора Турбо Паскаль. Эти модули будут кратко рассмотрены во втором вопросе.

Вместе с тем, разработчики Турбо Паскаль позаботились о том, чтобы пользователи могли самостоятельно создавать свои собственные модули, содержащие новые данные (константы, типы, переменные) и новые подпрограммы (процедуры и функции). Структура модуля и правила его создания и использования будут рассмотрены в третьем вопросе лекции.