Ошибка NaN (Pascal)

[lloudb]

Помогите найти ошибку, не хватает свежего взгляда.
Код:

function f(x: integer): integer;
var s,i: integer;
  begin
    s:=1;
    if x>1 then
      begin
        for i:=1 to x do s:=s*i;
      end else s:=1;
    f:=s;
  end;
var
  n,i: integer;
  y,x: double;
begin
  n:=12; x:=4.75; 
  for i:=1 to n do
    begin
      y:=y+exp(ln(-1)*i)*(1/f(i-1)*(exp(ln(x)*(2*i+1))/(2*i+1)));
      //(exp(ln(-1)*i))*(1/F)*(exp(ln(x)*a)/a
      writeln(y);
    end;
   writeln(y);
end.

Вывод:

NaN
NaN
NaN
NaN
NaN
NaN
NaN
NaN
NaN
NaN
NaN
NaN
NaN

Задача:

[type_Oleg]

А чему равно ln(-1) ?

[lloudb]

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

А чему равно ln(-1) ?

3.14159265 - как показывает Google

[FPaul]

Нет, он говорит, что
ln(-1)=3.14159265*i
мнимому числу.

Сделайте множитель Sign.
До цикла он равен -1. После вычисления очередного слагаемого y:=y+Sign*(...) добавляете строку Sign:=-Sign.

[type_Oleg]

Да, в школе же изучают логарифм. В области действительных чисел он определен только на положительных значениях аргумента.
Зачем городить возведение в степень -1.
Лучше ввести переменную , отвечающую за знак:

var
  n,i,sg: integer;
  y,x: double;
// в цикле:
  if Odd(i) then sg:=-1 else sg:=1;
  y:=y+sg* // и т.д.

или

 sg:=1;
// в цикле:
  sg:=-sg;
  y:=y+sg* // и т.д.