Для любознательных. Особенности использования процедур и функций

Опережающее описание процедуры (директива Forward)

Описание процедуры, содержащее вместо блока операторов директиву Forward, называют опережающим описанием.

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

Возможность создавать "опережающее описание" для процедур позволяет решать проблемы следующего рода: предположим, в некоторой программе Вы используете две процедуры с именами Proc1 и Proc2, причем процедура Proc1 использует вложенную процедуру Proc2, а процедура Proc2 в свою очередь использует процедуру Proc1. Т.к. Вы не можете использовать необъявленную ранее процедуру, то у Вас возникает проблема, связанная с необходимостью развязать "зацикленные" друг на друге процедуры Proc1 и Proc2. Использование директивы Forward при объявлении процедуры Proc1 позволяет решить эту проблему.

Program Primer;

...

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure Proc1 (список формальных параметров); Forward;{заголовок первой процедуры}

Procedure Proc2 (список параметров); {заголовок второй процедуры}

Begin{Основной блок процедуры Proc2}

...

Proc1 (список фактических параметров); {Вызов процедуры Proc1}

...

End;

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure Proc1 (список параметров);

Begin{Основной блок процедуры Proc1}

...

Proc2 (список фактических параметров); {Вызов процедуры Proc2}

...

End;

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Begin

... {Тело основной программы}

End.

Процедуры с ближним и дальним адресом вызова

Турбо Паскаль поддерживает две модели вызова процедур – ближнюю Near и дальнюю Far. Между этими двумя моделями существует ряд различий. Процедуры, созданные с использованием модели Near, получаются более быстродействующими, но могут быть вызваны только из модуля, в котором они описаны.

Процедуры, созданные с использованием модели Far, могут быть вызваны из любого места программы. Недостатком этих процедур является их медлительность.

Компилятор на основе составленного описания процедуры может автоматически выбирать оптимальную модель вызова. Если же при разработки программы возникла необходимость задать данной процедуре конкретную модель вызова, то в описании данной процедуры перед ее основным блоком необходимо указать директиву Near или Far.