Proc16. Sign(X) , -
X :
−1, X < 0;
0, X = 0;
1, X > 0.
Sign(A) + Sign(B)
A B.
Proc17. RootsCount(A, B, C) ,
A x2 + B x + C = 0 (A, B, C
, A 6= 0).
.
:
D = B2 − 4 A C.
Proc18. CircleS(R) , -
R (R ).
. -
R S = π R2. π -
3.14.
Proc19. RingS(R 1, R 2) , -
,
R 1 R 2(R 1 R 2 , R 1> R 2).
, -
. R: S = π R 2.
π 3.14.
Proc20◦. TriangleP(a, h), -
a h,
(a h ).
, .
b
:
B2 = (a /2)2 + h2.
Proc21◦. SumRange(A, B) ,
A B (A B ). A > B,
0.
A B B C, A, B, C.
Proc22. Calc(A, B, Op) ,
A B
. -
Op: 1 , 2 , 3 , -
. Calc A B
, N 1, N 2, N 3.
Proc23. Quarter(x, y) ,
, -
40
. . . Programming Taskbook 4.6
(x, y).
-
.
Proc24. Even(K) , TRUE,
K , FALSE .
|
|
10 .
Proc25◦. IsSquare(K) ,
TRUE, K (> 0) -
, FALSE .
10 .
Proc26. IsPower5(K) ,
TRUE, K (> 0) 5, FALSE
. 5
10 .
Proc27. IsPowerN(K, N) ,
TRUE, K (> 0) N (> 1),
FALSE . N (> 1) 10 -
. IsPowerN
N .
Proc28. IsPrime(N) , TRUE,
N (> 1) , FALSE -
(, 1, ,
, 1 ). 10 -
, 1. IsPrime
.
Proc29. DigitCount(K) ,
K. , -
.
Proc30. DigitN(K, N) , N - -
K (
). K N, -
−1. K 1,
K 2,..., K 5 DigitN N, 1
5.
Proc31. IsPalindrom(K), TRUE,
K (> 0) ( -
), FALSE .
10 -
.
DigitCount DigitN Proc29 Proc30.
Proc32. DegToRad(D) , -
, D (D -
, 0 < D < 360). :
180º = π . π 3.14.
DegToRad .
Proc33. RadToDeg(R) , -
, R (R -
, 0 < R < 2π). :
180= π . π 3.14.
RadToDeg .
Proc34. Fact(N) , -
N! = 12... N (N > 0 ; -
,
N).
|
|
.
Proc35. Fact2(N) , -
:
N!! = 135... N, N ;
N!! = 246... N, N
(N > 0 ; -
,
N). -
.
Proc36. Fib(N) , N -
F K, -
:
F 1= 1,
F 2= 1,
F K= F K-2+ F K-1, K = 3, 4,....
Fib, -
N 1, N 2,..., N 5.
42
. . . Programming Taskbook 4.6