0 / 0 / 0
Регистрация: 18.11.2017
Сообщений: 15
1

Вычислить сумму членов ряда с точностью до члена ряда

02.12.2017, 11:15. Показов 5558. Ответов 2
Метки нет (Все метки)

Помогите выполнить задание.
Вычислить сумму членов для следующих рядов с точностью до члена ряда, меньшего E (заданная точность):

https://www.cyberforum.ru/cgi-bin/latex.cgi?1+\frac{cos \ x}{1!} +\frac{cos \ 2x}{2!} +...+\frac{cos \ nx}{n!} +... \ ; \ \ \ E=0,002; \ \ x=0,241

Спасибо !
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2017, 11:15
Ответы с готовыми решениями:

Вычислить сумму членов ряда с точностью до члена ряда
Пожалуйста помогите выполнить задание. Вычислить сумму членов для следующих рядов с точностью до...

Вычислить сумму ряда с точностью до члена ряда, меньшего заданной точности
Вычислить сумму членов для следующих рядов с точностью до члена ряда, меньшего Е (заданная...

Вычисление суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε
Доброе утро, форум. Если кому не сложно, то помогите с программой, вернее найти ошибку в ней Само...

Найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps
найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps = 0.0001. в чем...

2
675 / 4301 / 261
Регистрация: 11.08.2016
Сообщений: 2,858
02.12.2017, 19:09 2
Лучший ответ Сообщение было отмечено Kirsanovqwer как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const eps=0.002;
var x,sum,mem,nx,fact:double;
begin
x:=0.241;
sum:=0;mem:=1;fact:=1;n:=1;nx:=1;
while abs(mem)>eps do
   begin
   sum:=sum+mem;
   nx:=nx+x;
   fact:=fact*n;
   mem:=cos(nx)/fact; 
   end;
writeln(sum);
end;
Примерно так...
1
Модератор
9355 / 4717 / 3173
Регистрация: 17.08.2012
Сообщений: 14,814
02.12.2017, 20:12 3
Не совсем так. Переменная n не описана. Это бы ладно, но она ещё и не инкрементируется. Начальное значение переменной nx задано неверно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const eps = 0.002;
      x = 0.241;
var s, a, nx, z: real;
    n: longint;
begin
  n := 0;
  nx := 0;
  z := 1;
  a := 1;
  s := a;
  while abs(a) > eps do
    begin
      inc(n);
      nx := nx + x;
      z := z / n;
      a := cos(nx) * z;
      s := s + a
    end;
  writeln('S = ', s);
  readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2017, 20:12
Помогаю со студенческими работами здесь

Вычислить сумму членов ряда с точностью Е=10^-2 при заданном х=0,75
ссылка удалена

Вычислить сумму членов бесконечного ряда с точностью ε
Даны действительные числа X, E \left( 0<x\leq 1,E>0\right). Вычислить с точностью E:...

Вычислить сумму членов ряда с точностью E=10^-2 при заданном x=0.75

По заданной формуле члена ряда составить программу вычисления всех членов ряда
*_* оу спасибо !!!! По заданной формуле члена ряда составить программу вычисления всех членов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru