Ошибка NaN (Паскаль)

[lloudb]

Почему выводит "бесконечность"? Где я допустил ошибку?
Код:

var 
  i:integer;
  z,d,x: double;
function F(n:integer): double;
  var
    s,i: integer;
  begin
    s:=1;
    for i:=1 to n do
      begin
        s:=s*i;
      end;
  end;
begin
  read(x);
  for i:=1 to 10 do
    begin
      z:=z+(exp(ln(x)*(2*i+1))/f(2*i+1));
      write(z,' ');
      d:=d+(exp(ln(x)*(2*i))/f(2*i));
      writeln(d);
    end;
  writeln(z/d);
end.

Вывод:

бесконечность бесконечность
бесконечность бесконечность
бесконечность бесконечность
бесконечность бесконечность
бесконечность бесконечность
бесконечность бесконечность
бесконечность бесконечность
бесконечность бесконечность
бесконечность бесконечность
бесконечность бесконечность
NaN

Задание:

[Аватар]

А чего тот s делает в функции? Еще и Integer. Что так и выводится слово бесконечность? Ай да паскаль

[Serge_Bliznykov]

Сообщение от Аватар

Что так и выводится слово бесконечность? Ай да паскаль

угу. я сам в шоке! прямо так и выводит. PascalABC.NET

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

Где я допустил ошибку?

А кто будет возвращать значение функции факториала?! Пушкин?

function F(n:integer): double;
  var
    s,i: integer;
  begin
    s:=1;
    for i:=1 to n do
      begin
        s:=s*i;
      end;
    F := s  
  end;

p.s. а вообще, подобные задачи лучше решать через реккурентное соотношение (это когда следующий член ряда находится через предыдущий).
Это сложнее, нужно подумать, дроби поделить друг на друга, зато уходят всякие степени/логарифмы и факториалы...

[Аватар]

Там бы еще у того злополучного s тип поменять, double например.

[Aleksandr H.]

На прошлой неделе это же задание уже разбирали.

[Serge_Bliznykov]

Сообщение от Аватар

Там бы еще у того злополучного s тип поменять, double например.

да, блин, конечно!!

прошляпил я!

function F(n:integer): double;
  var
    i: integer;
    s : double;
  begin
    s:=1.0;
    for i:=1 to n do
        s:=s*i;
    F := s  
  end;

Сообщение от Aleksandr H.

На прошлой неделе это же задание уже разбирали.

помню. но, видимо, плохо разбирали, раз у TC вопросы остались!

[lloudb]

Спасибо всем за ответы!

Ошибка заключалась в том, что я не возвратил функции значение.