.
-60, . , . , .
, , , . .
, . , . , . :
Function Factorial (N: Integer): Integer;
Begin
if N = 1 Then Factorial:= 1
Else Factorial:= N*Factorial(N -1)
End;
Factorial(N) Factorial(N-1), Factorial(N-2), .. Factorial(0), 1. ( ), . , ().
. , n. n, . , , TRAP N , - , FN - , TRAP:
J:= TRAP (N1, A1, B1, TRAP (N2, A2, B2, FN));
, N1 N2.
3.1.
Function HighFactor(N1,N2:lnteger):lnteger;
Var P: Integer;
Begin
lf N1 > N2 Then P:=HighFactor(N1,N2)
Else
|
|
If N2<=0 Then p:= N1 { }
Else P:=HighFactor(N2,N1 Mod N2);
HighFactor: = P
End;
, . .
, , . , .
, , , , . , .
, , . , , . .
. HighFactor . , , , , .
: . , . , (). Forward, , , .. . , Forward. , . , .
3.2. First Second, , , First.
Procedure First(A, : Integer); Forward; { }
Procedure Second(C: Real); { }
Var X, Y: Integer;
begin
...
First(X, Y);
...
end;
Procedure First; { }
Var Z: Real;
begin
Second(Z);
end;
Forward , : , - . , . . [4,5].