Сумма ряда (Pascal). Не могу понять смысл задачи :(

[DsDevis]

Всем доброго здоровья.
Помогите мне понять, что собственно от меня хотят Вот условие задачи:
Найти сумму ряда с точностью e=10^(-3), общий член которого:

В матанализе я полный профан, пытался освоить ряды, но не вышло
Я так понимаю, нужно прогонять это выражение в цикле до тех пор, пока не достгнется точность e. Но что собственно это означает? Пока n не станет равным e? Или пока само выражение не станет равным е?

[alex_fcsm]

Нужно сложить все слагаемые, которые превышают e=10^-3

[DsDevis]

Слагаемые - это значения An, полученные путем прогона цикла? В таком случае, логически рассуждая, сумма этих слагаемых будет равна положительной бесконечности. Или я опять чего-то не понял?

[alex_fcsm]

как Вы могли заметить значение слагаемого стремится к 0 при устремлении n в бесконечность. Так вот Вам надо сложить все слагаемые, которые больше 0,001. Их будет не так уж и много

[DsDevis]

Все понял, большое спасибо.

[DsDevis]

Вот, ясделал так:

program faktorial;
uses crt;
var x,y,a,e,s: real;
n: integer;
function chisl (var n:integer):real;
var s1,k1,n1 :real;
begin
  s1:=1; k1:=1; n1:=n;
  while k1<n1 do
  begin
     k1:=k1+1;
     s1:=s1*k1;
   end;
  chisl:=s1;
end;
    function znam
    (var n:integer):real;
    var s,k,n2: real;
    begin
        s:=1; k:=1;n2:=n; n2:=(exp(n2*ln(2)));
        while k<n2 do
        begin
        k:=k+1;
        s:=s*k;
        end;
    znam:=s;
    end;
begin
clrscr;
n:=1; e:=0.001;
x:=chisl(n);
y:=znam(n);
a:=x/y; s:=0+a;
while a>e do
begin
n:=n+1;
a:=x/y;
s:=s+a;
end;
writeln(s:0:5);
readln(x);
end.

Только что то в нем неправильно, программа не выходит из последнего цикла. Опять я где-то накосячил . Не подскажете, где именно? Если в помеченной строке сменить знак неравенства, то вроде как работает, но ведь это противоречит условию задачи?

[Sazary]

Опять я где-то накосячил . Не подскажете, где именно?

while a>e do
begin
n:=n+1;
a:=x/y;
s:=s+a;
end;

У вас a не меняется.
Видимо, вы забыли добавить в цикл

x:=chisl(n);
y:=znam(n);

[DsDevis]

Спасибо, теперь работает. Только одно непонятно - то что я чуть повыше приравнял

x:=chisl(n);
y:=znam(n);

для цикла никакой роли не играет?

[Sazary]

Только одно непонятно - то что я чуть повыше приравнял для цикла никакой роли не играет?

По большому счету, да.
Можно было написать так:

n:=1; e:=0.001;
s:=0;
repeat
x:=chisl(n);
y:=znam(n);
a:=x/y;
s:=s+a;
n:=n+1;
until a<=e;

А по-хорошему, лучше так:

	
	
n:=1; e:=0.001;
s:=0;
repeat
x:=chisl(n);
y:=znam(n);
a:=x/y;
if a>e then break;
s:=s+a;
n:=n+1;
until a<=e;

[DsDevis]

Спасибо, все понял.