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

[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

[marwell]

Да. Но

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

я уже не знаю что делать училка говорит, что надо делать с while, но условие такое что пока разность между предыдущим и следующим меньше эпсилон

[Lapp]

я уже не знаю что делать училка говорит, что надо делать с while, но условие такое что пока разность между предыдущим и следующим меньше эпсилон

Супер-трудно. Вычитание же проходят в академии, да?..
Вот так попробуй:

var
  i: integer;
  x,y,s,e,d: double;

begin
  write ('vvedite x: ');
  readln (x);
  write ('vvedite e: ');
  readln (e);
  y:=1;
  s:=1;
  i:=1;
  d:=e+1;
  while d>e do begin
    d:=y;
    y:=y*2*x/i;
    d:=Abs(d-y);
    s:=s+y;
    Inc(i)
  end;
  write (s:9:5);
  readln;
end.

[marwell]

Супер-трудно. Вычитание же проходят в академии, да?..
Вот так попробуй:

var
  i: integer;
  x,y,s,e,d: double;

begin
  write ('vvedite x: ');
  readln (x);
  write ('vvedite e: ');
  readln (e);
  y:=1;
  s:=1;
  i:=1;
  d:=e+1;
  while d>e do begin
    d:=y;
    y:=y*2*x/i;
    d:=Abs(d-y);
    s:=s+y;
    Inc(i)
  end;
  write (s:9:5);
  readln;
end.

спасибо большое ну уж если она и это не примет, я молча врежу ей