( )
.
4
.
. . ; ; , , ; , , .
1. . . : / . ., . ., . . : , 2010. 192 .
2. . . 1 2 / . . : , 2006. 134 .
3. .
-
1. , , .
1. ?
2. while for ?
3. ?
4. for...todo for...downto...do?
, .
ϳ .
, , .
, , , , , .
, (), . , ε. ε - .
. , .
, f (x) = 0..
2. J2 (x)
- J2(x) ε = 10-3, x = 2,
, ε . , , ε.
|
|
. ,
. ,
= 2,
-
J2(x)
program bessel; uses crt;
var k,i:integer; U,S:real;
Begin
clrscr;
U:=1/2; S:=U; k:=2; i:=1;
Repeat
U:=-U/((k-1)*(k+1));
S:=S+U;
k:=k+1;
i:=i+1;
until ABS(U)<=0.001;
writeln (' = ', S);
writeln (' =', i);
readln
end.
= 0.353 = 5 |
1. .
2. .
3. , , , , .
:
- Pascal :
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
ֲ
1. .
2. .
3. .
4. , , , -, ( ), ( ).
5. , .
6. ϳ .