.


:




:

































 

 

 

 


,




, n < e.

: e (ps - ).

 

While... Do

       
 
   
 

 

 


       
 
 
   

 


 

{ 4}

{ WHILE}

{ ...... }

Uses crt; { TP}

Var x,a,eps,S: real; n:integer;

BEGIN Clrscr; { }

Writeln(' x,eps'); read(x,eps);

{ }

a:=x; n:=1; S:=a;

While >=eps Do

Begin n:=n+1;

{ (2)}

a:=a*x*(2*n+1)/((2*n-1)*(n+1));

s:=s+a;

end;

Writeln(' C S = ',S:10:4,' n = ',n:5);

END.

: ( ) .

 

1. an = (2n-1)*x / 2n; 11. an = x/n2;

2. an = x /((3n-2)(3n+1)); 12. an = 2nx / (n+1)!;

3. an = 10n / xn!; 13. an = 3nx * 3n / n!;

4. an = xn! /(2n)!; 14. an = x(n+1) / (n+2)!;

5. an = x* 2n / n!; 15. an = nx / 2(n+1);

6. an = x (3n * n!) / (3n)!; 16. an = 2xn! / (2n)!;

7. an = 3nx / (n+2)!; 17. an = xn! / (3n)!;

8. an = (2n-1) * x / 2n; 18. an = x * 5n / (n+5)!;

9. an = nx / 3(n+1)/2; 19. an = x * 2n /(2n+1)!;

10. an = (x+1) * 5n / n!; 20. an = x(2n+1)(2n-1)/(2n+1)!;

 

. () . ( ) .

- , , . Var Var Type, .

- Var:

Var _: Array[T1] OF [T2];

Array () Of () - .

T1 - ) - , ); 2 - ( , ).

:

1) Var Mas: Array[1..10] of integer; - , 10 Mas;

2) Var S: array[1..20] of real; - , 20 S;

3) Var Matr:array[1..20,1..20] of byte; - ( 20 20), 400 byte.

, . :

1) Mas[5]:=21; - Mas , 21.

2) For i:=1 to 20 do S[i]:=0.0; - 20 S , 0.0 ( ).

3) For i:=1 to 20 do For j:=1 to 20 do Matr[i,j]:=random(100); - () 400 0 100.

- Var Type:

Type __= Array[T1] OF [T2];

Var _: __;

:

1) Type Tm=array[1..100] of byte; - , 100 byte

Var Mas:Tm; - Mas.

2) Type Typ_Mas = array[1..100] of char;

Var M:Typ_Mas; - 100 .

3) Type Tmatr = Array[1..25,1..10] of real;

Var Matr1,Matr2:Tmatr; - Matr1 Matr2.

, - , - .. , , 64 .

: , - . , , .

:

Type tstr=array[1..25] of real;

Var masssiv:array[1..10] of tstr; - 3, Matr1 Matr2.

. .

, , . , : Var M:array[1..2,1..4] of byte;

:

M[1,1]; M[1,2]; M[1,3]; M[1,4]; M[2,1]; M[2,2]; M[2,3]; M[2,4].

. :

Var m1,m2:array[1..10] of word;

...

Begin...

m1:=m2; { }

...

End.

.

 

-

 

, . .

:

1) Const Mas:array[1..10] of byte=(1,1,1,1,1,1,1,1,1,1); - 10 , .

2) Const massim: array[0..5] of char = ('a','b','c','d','e','f'); -

6 - .

3) Const Matr: array[1..5,1..2]of byte = ((0,0),(0,0),(0,0),(0,0),(0,0)); -

10 .

: !

 

5

 





:


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


:

:

, .
==> ...

780 - | 750 -


© 2015-2024 lektsii.org - -

: 0.019 .