Задача на сходящийся ряд

[PavelSS]

Помогите кто чем может!
Вычислить сумму бесконечно сходящегося ряда при заданном значении X.

[alex_fcsm]

А Вы уверены, что ряд сходящийся?

[PavelSS]

Да в книжке именно так написано.

[alex_fcsm]

1. Предел n-ого члена ряда не стремится к 0 при стремлении n в бесконечность

2.Модули членов ряда не образуют монотонно убывающую последовательность(почитайте признак Лейбница для знакочередующихся рядов)


P.S. Если -0.1<x<-1 тогда бы условие выполнилось

uses crt;
const eps=0.0001;
var s:real;
    sum,x,temp:real;
    i:integer;
function power(x:real;y:integer):real;
var i:integer;
    res:real;
begin
res:=1;
  for i:=1 to y do
    res:=res*x;
power:=res;
end;

begin
repeat
clrscr;
writeln('input x');
readln(x);
until (x>-1) and (x<=-0.1);
i:=0;
repeat
inc(i);
temp:=power((1+x),i)/i;
if i mod 2 = 0 then sum:=sum+temp
   else sum:=sum-temp;
until temp<=eps;
writeln('Sum: ',sum:10:7);
end.

[PavelSS]

Спасибо, а эту же задачу можно решить по другому ?

вот пример подобной задачи и решить нужно таким методом !!

var x,eps,S,H,B:real;
n,C:integer;
begin writeln('Input X and EPS');
readln(x,eps);
B:=1; S:=1; H:=1; n:=0; C:=1;
while ABS(B)>eps do begin
n:=n+1; H:=H*SQR(x)/((2*n-1)*(2*n));
C:=-C; B:=(2*SQR(n)+1)*C*H; S:=S+B;
end;
Writeln('Summa Ryada =',S);
Writeln('4islo 4lenov ryada n=',n)
end.

Буду благодарен если у вас чтото получится.

[alex_fcsm]

У меня тоже самое только eps через константу задается. Можете сделать
так

var  eps:real;

.................
writeln('Input EPS');
readln(eps);
..............

Можете тоже выводить i - число членов вошедших в сумму

Writeln('Число слагаемых',i);

[PavelSS]

Так у вас через function и repeat а преподавателю похоже что именно это и ненравится =) Эту задачу вообще можно решить без function и repeat, а через while как в этой подобной задаче ?

[alex_fcsm]

Сообщение от PavelSS

Так у вас через function и repeat а преподавателю похоже что именно это и ненравится =) Эту задачу вообще можно решить без function и repeat, а через while как в этой подобной задаче ?

Здесь исправить-то можно и самому

uses crt;
var s:real;
    eps,sum,x,temp:real;
    i,j:integer;

begin
repeat
clrscr;
writeln('input x');
readln(x);
until (x>-1) and (x<=-0.1);
writeln('input eps');
readln(eps);
i:=0;
temp:=1;
while temp>=eps do
begin
inc(i);
temp:=1;
for j:=1 to 2*i do
 temp:=temp*(1+x);
temp:=temp/i;
if i mod 2 = 0 then sum:=sum+temp
   else sum:=sum-temp;
end;
writeln('Sum: ',sum:10:7);
writeln('Amount ',i);
end.

[PavelSS]

Спасибо, всё дело в том что мы ещё мало прошли и решаем простенькие задачки с простыми операторами а вот function ещё не проходили =)))