.


:




:

































 

 

 

 





( )

.

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. ϳ .





:


: 2016-10-22; !; : 521 |


:

:

- , .
==> ...

1892 - | 1687 -


© 2015-2024 lektsii.org - -

: 0.012 .