Вычислить с заданной точностью ε Опции

[marwell]

задали задачу может, кто сможет помочь? я написал программу

var x,y,z,i,n: integer;
    s,m,e:real;
begin
write ('vvedite x');
readln (x);
write ('vvedite n');
readln (n);
write ('vvedite e');
readln (e);
y:=1;
z:=1;
s:=1;
  for i:=1 to n do
     if y/z>e then  {училка говорит,что тут нужен while,а не if.Пробовал с while,но прога вычисляет неверно  }
       begin
         z:=z*i;
         y:=y*(2*x);
         s:=s+y/z;
      end;
write (s:9:5);
readln;
end.

задание прикреплено

М

Тэги!! Правила раздела, п.2 (подними глаза на верх страницы). Lapp

[volvo]

я ошибаюсь, или тут в этой строчке "y:=y*2*x/i;" числитель делится на очередное число, а не на факториал? этого числа?

Да, именно так и происходит, ты не ошибаешься. А теперь подумай, что произойдет, если на первой итерации поделим на 1, на второй на 2, на третьей на 3, и так далее? В итоге на что поделим?

[marwell]

Да, именно так и происходит, ты не ошибаешься. А теперь подумай, что произойдет, если на первой итерации поделим на 1, на второй на 2, на третьей на 3, и так далее? В итоге на что поделим?

и так далее на очередное число. Но ведь факториал это произведение, например если n=5 то 1*2*3*4*5?

[Lapp]

и так далее на очередное число. Но ведь факториал это произведение, например если n=5 то 1*2*3*4*5?

Да. Но

1/n! = 1/(1*2*3*..*n) = 1/1/2/3/../n