Найти сумму S Опции

[V-art]

надо найти сумму s= 1+x/1!+x^2/2!+...+x^N/n! через цикл while , где n мы не трогаем, а задаём через заданную точность eps


вот для такого условия задачу правильно решили, у мення чтото подобное : s=x+x(в пятой степени):5+...+x(в степени 4n+1) делить на 4n+1

программа:
program c1;
var d: integer;
x,eps,s,u,v:real;
begin
writeln(' ');
read();
writeln(' ');
read();
s:x;
d:=0;
u:=x*x*x*x*x/5;
while u\s>=eps do
begin
v:=u;
d:=d+1;
u:=u*x*x*x*x*(4*d-3)/(4*d+1);
end;
writeln(' ');
...
end.



помогите пожалуйста, завтра лабу сдавать!

[Lapp]

надо найти сумму s= 1+x/1!+x^2/2!+...+x^N/n! через цикл while , где n мы не трогаем, а задаём через заданную точность eps
вот для такого условия задачу правильно решили, у мення чтото подобное : s=x+x(в пятой степени):5+...+x(в степени 4n+1) делить на 4n+1

программа:
program c1;
var d: integer;
x,eps,s,u,v:real;
begin
writeln(' ');
read();
writeln(' ');
read();
s:x;
d:=0;
u:=x*x*x*x*x/5;
while u\s>=eps do
begin
v:=u;
d:=d+1;
u:=u*x*x*x*x*(4*d-3)/(4*d+1);
end;
writeln(' ');
...
end.
помогите пожалуйста, завтра лабу сдавать!

Убедительная просьба:
1. использовать тэги (Правила Форума, п.5, и правила раздела Задачи, п.2);
2. использовать верхние индексы для степеней и нормальные знаки мат.операций.

[TarasBer]

program c1;
  var d: integer;
  x,eps,s,u,v:real;
begin
  writeln('input X:');// тут надо вывести просьбу ввести икс
  readln(X); // вводим X
  writeln('input eps:'); // аналогично
  readln(eps);
  s:=0;// :=, а не :
  d:=0;
  u:=x;
  v := 1;
  while v>=eps do
  begin
    v := u/(4*d+1);
    s:=s+v; //если нет факториала, то итеративно учитывать знаменатель не надо
    d:=d+1;
    u:=u*x*x*x*x;
  end;
  writeln(s); //выводим s
end.

правка: заменил Y на eps

Сообщение отредактировано: TarasBer - 11.12.2010 14:37

[мисс_граффити]

writeln('input eps:'); // аналогично
readln(Y);

TarasBer, исправь... а то чушь получается.

[TarasBer]

Исправил.
А может, надо было оставить читателю в качестве упражнения?