, ( System, ), uses. , , : Pi, Sin(X), Chr(125), Inc(X,5). , .
,
, , .
function, () , , . , . , :
function <> ( ): < >;
Const...
Type...
Var
Begin
<>
End;
, , , . .
. , , .
,
:
Z=( + )/2* ,
Step.
Program DemoFunc;
Var
: integer;
,Z,R: real;
{ . N - , X , . N, X ; , , }
function Step(N: integer; X: real): real;
Var
I: integer;
Y: real;
Begin
Y:=1;
for I:=1 to N do { N X)
Y:=Y*X;
Step:=Y; { }
end; { }
Begin { }
Write(' ');
Readln(A,M);
Z:=Step(5,); { N=5, X=}
Z:=Z+ Step(3,l/A); { N=3, X=1/}
if M=0 then R:=l { , 1}
else if M>0 then R:=Step(M,A) { Step , }
else R:=Step(-M,A); { : - , }
Z:=Z/(2*R);
Writeln(' = ',,'= ',,' = ',Z);
|
|
End.
, Z, R, Step N X, , , - .
() I Y. I , Y N . .
" " .
:
Z:=Step(5,A);
Step 5, . N X. Step, 5 , Z. :
Z:= Z + Step(3,l/A);
Step 3, 1/A, Z Step.
:
if M=0 then R:=1
else if M>0 then R:=Step(M,A)
else R:=Step(- M,A);
=0, >0 R 1 ( =), Step , -, , Step R.
:
Z:=Z/(2*R);
, Z.
Writeln .
- : , .
- .
- .
- .
1. .
2. .
3. .
4. . .
5. . .
6. , .