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

Опережающее описание процедуры (директива 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.