Сумма бесконечного ряда с точностью Паскаль

[Кириллович]

Даны числа x и ε.
Вычислить сумму с заданной точностью ε. Считать, что требуемая точность достигнута, если вычислена сумма нескольких первых слагаемых и очередное слагаемое оказалось по модулю меньше, чем ε, - это и последующие слагаемые можно уже не учитывать.
∑_(n=1)^∞▒〖(-1)^(n+1)/(n^2+2^n )*e^(x/n) 〗


Не могу найти множитель (отношение соседних членов ряда).. Или я может не той дорогой иду? Подскажите и направьте

[IT-man]

а зачем множитель то тут? члены ряда меняются в зависимости от n имхо

[Кириллович]

А как тогда возводить в n и n+1 степени?...

[IT-man]

тут n изменяется от 1 до бесконечности пока при каком то n очередное слагаемое не окажется по модулю меньше, чем ε!!

[Кириллович]

Это мне понятно, но чтобы посчитать это слагаемое, нужно 2 возвести в n степень... как это сделать в паскале без функций я не знаю....
Просто не пойму как эту задачу решать. впал в умственный ступор и смотрю как баран на новые ворота

[Anatole]

прежде чем приступать к програмированию представте общий член ряда в виде: An=F1(n)/(n^2)+F2(n)/(2^n)

[Кириллович]

Не понимаююююююююююююю.... Помогите, напишите пожалуйста программу... ОТупел от весны, наверное

[lutuygrey1]

program consumm;
uses crt;
var
i,n:integer;
s,a,x:real;
otvet:char;
begin
repeat
writeln('vvedite n,x');
readln(n,x);
a:=0;
s:=0;
i:=0;
while i<=n do
begin
s:=s+a;
a:=x/(i+1);
i:=i+1;
end;
writeln('summa ravna ',s:2:2);
writeln('prodolgit? "y" yesly da');
otvet:=readkey;
until 'y'<>otvet;
end.

ƒ =xi/i q= i*xi+1/xi*(i+1)=x/x
поробуй так

[Anatole]

lutuygrey1 вы не правы. Необходимо учитывать следующее условие:

очередное слагаемое не окажется по модулю меньше, чем ε!!

Поэтому считать необходимо вот так:

Program SumRiad;
{An=(-1)^(n+1)*e^(x/n)/(n^2+2^n)}
Var
e,ex,b,x,Sum,c,an,epsilon:extended;
n:word;
Begin
  write(' x=');      ReadLn(x);
  write('epsilon='); ReadLn(epsilon);
  ex:= exp(x);
  e:=  exp(1);
  n:=0;
  b:=1.0;
  Sum := 0.0;
  c := -1;
  repeat
  inc(n);
  c := -c/e;
  b := b*2;
  an := c*ex/(n*n+b);
  Sum := Sum+an;
  until abs(an)<epsilon;
  writeLn(' Sum=',Sum);
  readLn;
  end.

[Кириллович]

Анатоль, спасибо. Вы мне завсегда выручатель!