Pascal; Задача с циклом (есть наработки...)

[-SG-]

Помогите дорешать задачу, пожалуйста.

Вот условие:
Дaны нaтурaльнoе числo n и дейcтвитeльнoe чиcлo x. Вычиcлить:


Вот что пока есть:

function Factorial(f: word): LongInt;
  var Fact: longint;
  begin
    Fact:=1;
    If f=0 then exit;
    For f:=1 to f do
    Fact:=fact*f;
    Factorial:=fact;
  end;

begin
  Write('x=');
  ReadLn(x);
  Write('n=');
  ReadLn(n);
  For n:=1 to n do (1+(sin(x)/Factorial(n))) // Выражение неправильно, незнаю как записать.

end.

________________________
PS - надо еще переменных ввести для суммы...

[NeshSoft]

res:=1;
For i:=1 to n do res:=res*(1+sin(i*x)/Factorial(i))

[-SG-]

var x, n, Res: integer;

function Factorial(f: word): LongInt;
  var Fact: longint;
  begin
    Fact:=1;
    If f=0 then exit;
    For f:=1 to f do
    Fact:=fact*f;
    Factorial:=fact;
  end;

begin
  Write('x=');
  ReadLn(x);
  Write('n=');
  ReadLn(n);

  Res:=1;
  For n:=1 to n do Res:=Res*(1+(sin(n*x)/Factorial(n)));

  Write('Результат:',Res);
end.

___________________________________

Так?

Ошибки пишет:
[Pascal Warning] Project3.dpr(13): W1035 Return value of function 'Factorial' might be undefined
{вроде как значение функции 'Factorial' не получило определения}

[Pascal Error] Project3.dpr(26): E2010 Incompatible types: 'Integer' and 'Extended'
{Несовместимые типы}


Подскажите...

[Chudo4258]

в таких зачачашь не целесообразно использовать функцию факториал.
z - знаменатель множителя.

знаменатель следующего множителя = z*(z+1);

А в вашем случае знаменатель вычисляется:
z1=1
z2=1*2
z3=1*2*3
..............
zn=1*2*...*(n-1)*n.

[NeshSoft]

var x, n,i: integer;
       res:real;

function Factorial(f: word): LongInt;
  var Fact,i: longint;
  begin
    Fact:=1;
    Factorial:=fact;
    If f=0 then exit;
    For i:=1 to f do
    Fact:=fact*i;
    Factorial:=fact;
  end;

begin
  Write('x=');
  ReadLn(x);
  Write('n=');
  ReadLn(n);

  Res:=1;
  For i:=1 to n do Res:=Res*(1+(sin(i*x)/Factorial(i)));

  Write('Результат:',Res);
end.

[Pascal Warning] Project3.dpr(13): W1035 Return value of function 'Factorial' might be undefined

значение функции может быть не определено, в вашем случае, если f=0, то выход из функции без её определения

[Pascal Error] Project3.dpr(26): E2010 Incompatible types: 'Integer' and 'Extended'

если на что то делите, то результат вещественное число, а не целое, вне зависимости от результата

[-SG-]

Благадарю за помощь!
Программу сдал. (щас нет возможности выложить код, если не забуду потом выложу...)