Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Найти сумму S

Автор: V-art 11.12.2010 3:12

надо найти сумму 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 11.12.2010 3:27

Цитата(V-art @ 10.12.2010 23:12) *

надо найти сумму 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 11.12.2010 3:45


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

Автор: мисс_граффити 11.12.2010 18:34

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


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

Автор: TarasBer 11.12.2010 18:38

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