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