Вычислить бесконечную сумму

[yzen]

Pascal
Пытался сделать,но нечего толкового не получилось, ответ при всех вариантах 1.5
Задача?
Вычислить бесконечную сумму с заданной точностью ε (ε > 0). Считать, что требуемая точность достигнута, если вычислена сумма нескольких первых слагаемых и очередное слогаемое оказалось по модулю меньше, чем ε, - это и все последующие слагаемые можно уже не учитывать. Вычислить:

program dno;
uses crt;
CONST
n=10000;
var i,e:integer;
    s:real;
begin
clrscr;
writeln('Ââåäèòå òî÷íîñòü E');
readln(e);
s:=1;
for i:=1 to n do begin
                 s:=s+1/(i*(i+1));
                 if abs(s)<e then begin
                                  writeln('E= ',s);
                                  exit;
                                  end;
                 end;
end.

[gaw4]

program dno;
uses crt;
CONST
n=10000;
var i:integer;
    s,e,a,f:real;
begin
clrscr;
writeln('Aaaaeoa oi?iinou E');
readln(e);
s:=0;
for i:=0 to n do begin
if i=0 then f:=1 else f:=f*i;
a:=power(-2,i)/f;

                 if abs(a)<e then begin
                                  writeln('S= ',s);
                                  break;
                                  end;
s:=s+a;
                 end;
end.

[yzen]

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

program dno;
uses crt;
CONST
n=10000;
var i:integer;
    s,e,a,f:real;
begin
clrscr;
writeln('Aaaaeoa oi?iinou E');
readln(e);
s:=0;
for i:=0 to n do begin
if i=0 then f:=1 else f:=f*i;
a:=power(-2,i)/f;

                 if abs(a)<e then begin
                                  writeln('S= ',s);
                                  break;
                                  end;
s:=s+a;
                 end;
end.

я понял, что ты хотел сделать
но твой вариант проги это не то

[Stilet]

А чем он не подходит? Результат верный выдает? Или Преподаватель возбухает?

[gaw4]

yzen, я только подправил твой код и все

[Leshii]

program dno;
uses crt;
CONST
n=10000;
var i,e:integer;
    s:real;
begin
clrscr;
writeln('Ââåäèòå òî÷íîñòü E');
readln(e);
s:=1;
for i:=1 to n do begin
                 s:=s+1/(i*(i+1));
                 if abs(s)<e then begin
                                  writeln('E= ',s);
                                  exit;
                                  end;
                 end;end.

Yzen, в вашем варианте программы есть казалось бы пара незначительных проблем ...
1)У вас бесконечность = 10000 ?
2)Сумма равна 1 , а поидее 0.
3)И кто же бесконечность, конечным циклом считает.
4)

e:integer;

( не совсем думаю верно будет в данном случае )

Вот ваш вариант

var i:integer;
      sum, e:real;


function pow( x, n:integer):longint;
begin
  if n = 0 then pow:=1;
  else pow:=x*pow(x,n-1);
end;

function factorial ( n: integer ):longint;
begin
 if ( n = 0 ) or ( n = 1) Factorial:=1
 else factorial:=n*factorial(n-1);
end;

begin

writeln('Ââåäèòå òî÷íîñòü E');
readln(e);
sum = 0;i:=0;
while ( pow(-2,i)/factorial(i) >= e ) do begin
        sum:=sum+pow(-2,i)/factorial(i);
         inc(i);
end;
{вывод...}

[Mad_Cat]

тут рекурентная формула зачем Лишние функции?

var
   s,c,z:real;
   e:real;i:integer;
begin
     readln(e);
     c:=1;
     z:=1;
     s:=0;
     i:=0;
     while abs(c/z)>e do
           begin
                s:=s+c/z;
                inc(i);
                c:=c*(-2);
                z:=z*i;
           end;
     writeln(s);
end.

[Leshii]

Не подумал просто о данном варианте.

[gaw4]

как еще вариант

    program dno;
var i:integer;
    s,e,a:real;
begin
writeln('Aaaaeoa oi?iinou E');readln(e);
i:=0;a:=1;S:=0;
repeat
s:=s+a;
inc(i);
a:=a*(-2)/i;
until abs(a)<e;
writeln('S= ',s);
end.

[Leshii]

gaw4, а где у вас факториал вычисляется? или степень?