Программа на Паскаль

[wegan32]

Помогите написать данную программу. Сделал однотипное задание, но там основание степени было положительным числом.

[newerow1989]

var s:real;
    i,n,z:integer;
begin
   Write('n = '); Readln(n);
   s:=0;
   z:=-1;
   For i:=1 to n do
   begin
      z:=-z;
      s:=s+z/i/(i+1);
   end;
   Writeln('s = ',s:1:8);
   Readln;
end.

[digitalis]

// тут введём требуемую точность eps
y := 0 ;
dy := 1/2 ;
sgn := -1 ;
i := 2 ;
while dy>eps do
begin
   y := y + dy  ;
   sgn := sgn * -1 ;
   dy := sgn/i/(i+1) ;
   Inc (i) 
end ;
// тут уже можно вывести результат

Ежели чё не так, придёт newerow1989, поправит.
-------------------------------
Ох, опоздал. Но у меня - до заданной точности, а не фикс. числа членов ряда.

[newerow1989]

digitalis, только переменная i остается неизменной...
--------------------------------------
Тоже опоздал...

[wegan32]

newerow1989, Спасибо большое!

[newerow1989]

Обращайтесь еще! Здесь высококвалифицированные программисты на этом форуме помогут решить задачи любой сложности!

[digitalis]

wegan32 А мне? Абыдна, панымаэш.
Прямо чат получается: "Мечта двоечника. Halyava online"

[newerow1989]

digitalis, wegan32 тоже спасибо передает! Большое

[digitalis]

Дождёшься от него! Он уже побежал за водкой - сданный завтра зачет праздновать
--------------------
Эээх, мои бы проблемы в студенческие годы уместить в 10 строк кода...