Требуется разработать программу вычисления суммы членов сходящегося числового ряда

[Gennadiy23]

Требуется разработать программу вычисления суммы членов сходящегося числового ряда ∑(-1)^n/(1+n^3 ) n<=0<+∞ с заданной точностью α=0,01.
помогите пожалуста.

[Stilet]

А можно увидеть твои попытки?

[Gennadiy23]

да конечно,

program kontrolnaia_rabota;
const
  Alpha = 0.01;
var
  N, I: Integer;
  Sum, F: Real;
begin
writeln ('Бесконечная сумма  ');
  Sum := 0; {Начальное значение суммы числового ряда}
  N := 0;   {Начальное значение числа N}
  repeat    {Начало цикла REPEAT}
    { Вычисляем функцию }
    F := 1;
    for I := 1 to N do {Цикл возведения в степень}
      F := power(-1,F)/(1+F*F*F);

    Sum := Sum + F; {Выполняем суммирование}
    N := N + 1;     {Увеличиваем N на единицу}
  until Abs(F) <= Alpha; {Условие выхода из цикла}

  Writeln('Sum: ', Sum:15:8); {Выводим на экран сумму (0.5624)}
  Writeln('N: ', N); {Выводим на экран количество итераций (38)}
  Writeln('F: ', F:15:8); {Выводим на экран последнее значение F}
  Readln; {Ожидаем нажатие ENTER}
end.

[Stilet]

Ну неплохо.
Подправлю:

program kontrolnaia_rabota;
const
  Alpha = 0.01;
var
  N, I: Integer;
  Sum, F,fa: Real;
begin
writeln ('Бесконечная сумма  ');
  Sum := 0; {Начальное значение суммы числового ряда}
  N := 0;   {Начальное значение числа N}
  F := 1;
  Fa:=0;
  F:=power(-1,n)/(1+n*n*n); inc(n);
  while Abs(F-Fa) <= Alpha do begin
      Sum := Sum + F; {Выполняем суммирование}
      Fa:=F;
      F := power(-1,n)/(1+n*n*n);
    N := N + 1;     {Увеличиваем N на единицу}
  end; {Условие выхода из цикла}

  Writeln('Sum: ', Sum:15:8); {Выводим на экран сумму (0.5624)}
  Writeln('N: ', N); {Выводим на экран количество итераций (38)}
  Writeln('F: ', F:15:8); {Выводим на экран последнее значение F}
  Readln; {Ожидаем нажатие ENTER}
end.

Это с потолка. Но думаю не ошибся.

[Gennadiy23]

окно ввода
Бесконечная сумма
Sum: 0.00000000
N: 1
F: 1.00000000

мммм... по моему что то не то получается или так должно быть?

[Stilet]

Эх студенты... Отлаживать код вам надо научиться! Это все вопросы подобные снимает. Иначе просто лучше забыть о сфере ИТ, поскольку в реальной жизни ПО гораздо сложнее, и на твои вопросы интернет тебе ответов не даст, когда (читай: если) будешь работать программистом в серьезном промышленном проекте.

program Project1;

const
  Alpha = 0.01;
var
  N, I,sign: Integer;
  Sum, F,fa: Real;
begin
writeln ('Бесконечная сумма  ');
  Sum := 0; {Начальное значение суммы числового ряда}
  N := 0;   {Начальное значение числа N}
  F := 1;
  Fa:=0;
  sign:=1;
  F:=sign/(1+n*n*n); inc(n);
  while Abs(F-Fa) > Alpha do begin
      Sum := Sum + F; {Выполняем суммирование}
      Fa:=F;
      sign:=-sign;
      F := sign/(1+n*n*n);
    N := N + 1;     {Увеличиваем N на единицу}
  end; {Условие выхода из цикла}

  Writeln('Sum: ', Sum:15:8); {Выводим на экран сумму (0.5624)}
  Writeln('N: ', N); {Выводим на экран количество итераций (38)}
  Writeln('F: ', F:15:8); {Выводим на экран последнее значение F}
  Readln; {Ожидаем нажатие ENTER}
end.

[Gennadiy23]

спасибо большое. Да надо учится....

[Stilet]

Учись. Дальше будет полный аус. Если не впитаешь основы и навыки то лучше по этому профессии не рассчитывать на хороший заработок.