P , . | P Q, , , , . |
procedure P; begin ¼ P ¼ end; | procedure P; begin ¼ Q ¼ end; procedure Q; begin ¼ P ¼ end; |
()
, , P Q, . P Q, . ( ) .
, forward . Q P
procedure Q( ); forward; { }
procedure P;
begin
Q
end;
procedure Q( ); { Q}
begin
P
end;
:
1) .
2) . , .
3) . , . , . , .
. , , :
program Recur;
procedure Rec;
begin
{*} writeln(');
{**} Rec
end;
begin Rec end.
' ( ). , Rec {*} {**} Rec, , . , - , .
- , , , .
, , , .
Rec , , 1.
procedure Pec(n:integer);
begin
writeln(');
if n>0 then Rec(n-1)
end;
n n 0, .
, . , ..
, .