Программа для вычисления выражения по формуле (вычисление числового ряда)

[Vitalyas]

Не могли бы вы мне помочь. Душа просит разобраться все-таки с моим кодом, что в нем не так?
скидываю код еще раз:

uses crt;
var a, b, c, x, s, f:real;
    n, i, j:integer;
   begin
        write('Введите х. x=');
        read(x);
        write('Введите n. n=');
        read(n);
        if n=-0.5
           then WriteLn('Функция не определена')
                else
                    For i:=1 to n do
                       begin
                          If odd(n) then a:=-1
                                    else a:=1;
                          f:=1;
                          for j:=1 to n do
                             begin
                             f:=f*j
                             end;
                          b:=1/f;
                          c:=exp((2*n+1)*ln(x))/(2*n+1);
                          s:=x+a*b*c;
                       end;
                    WriteLn('Сумма=', s:8:2);
   end.

[Serge_Bliznykov]

давайте начнём с простого.

зачем Вы упорно вставляете эту проверку?!

       if n=-0.5
           then WriteLn('Функция не определена')

объясните мне, как ЦЕЛОЕ число N может быть -0,5 ??!

s:=x+a*b*c;

это ошибка.
Сумма в итерационных алгоритмах считается как ПРОШЛОЕ ЗНАЧЕНИЕ плюс новое значение

[Serge_Bliznykov]

а главная ошибка - это то, что Вы в цикле все значение считаете от N (и факториал N! и X в степени 2*N-1
а нужно в первой итерации считать факториал для 1: 1! и x^3,
во второй итерации для 2: 2! и x^5,
и т.д.

т.е. нужно везде в цикле вместо N поставить переменную цикла I

изучайте:

var a, b, x, s, f:real;
    n, i, j:integer;

begin
  write('Введите х. x=');
  readLn(x);
  write('Введите n. n=');
  readLn(n); 

   s := x;
   For i:=1 to n do
      begin
         If odd(i) then a:=-1
                   else a:=1;
         f:=1;
         for j:=1 to i do
            begin
               f:=f*j
            end;
         b:=exp((2*i+1)*ln(x))/f;
         s:=s+a*b/(2*i+1);
      end;
   WriteLn('Сумма=', s:8:2);
end.

[Vitalyas]

Спасибо большое! Разобрался =)