, 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