Вычислить сумму ряда с заданной точностью

08.10.2012, 02:27. **Показов** 1104. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста. Необходимо:
вычислить сумму ряда при X= -0.35 с точностью ε=0.0001

@CodeR · 08.10.2012, 07:21

Pascal

Const e=0.0001;x=-0.35;
Var a,s:real;
    k:integer;
Function F(n:real;m:byte):real;
Var i:byte;
    p:real;
Begin
    p:=1;
    For i:=1 to m do
     p:=p*n;
    F:=p;
End;
Begin
    k:=0;
    a:=F(x,4*k+5)/((4*k+1)*(4*k+3)*(4*k+5));
    s:=a;
    While a>=e do
    Begin
      inc(k);
      a:=F(x,4*k+5)/((4*k+1)*(4*k+3)*(4*k+5));
      s:=s+a;
    End;
    writeln('S = ',s:0:2);
End.

Вроде так...но при нулевом k уже доходит до этой точности...

Keleis
		1
	Вычислить сумму ряда с заданной точностью 08.10.2012, 02:27. Показов 1104. Ответов 1 Метки нет (Все метки) Помогите пожалуйста. Необходимо: вычислить сумму ряда при X= -0.35 с точностью ε=0.0001 Миниатюры

Опции темы

Вычислить сумму ряда с заданной точностью

Решение