.


:




:

































 

 

 

 





 

 

.

-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 , : , - . , .

 

 





:


: 2016-11-18; !; : 2204 |


:

:

, .
==> ...

1264 - | 1223 -


© 2015-2024 lektsii.org - -

: 0.015 .