Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
karina199
0 / 0 / 0
Регистрация: 04.10.2015
Сообщений: 1
1

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

04.10.2015, 12:36. Просмотров 869. Ответов 3
Метки нет (Все метки)

Составить программу для вычисления суммы членов ряда с точностью до члена ряда, меньшего ε( по абсолютной величине). Первоначально N=1. Используйте рекуррентные формулы для вычислений значений членов ряда.
Ряд X^(2N+1)/(2N+1)!
ε =10^(-5)
X=-1.42
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.10.2015, 12:36
Ответы с готовыми решениями:

Вычисление суммы членов ряда
Дана такая задача: Вычислить сумму ряда по приведенной формуле. Вычисления...

Вычисление суммы n членов ряда
Составить блок-схему алгоритма и программу вычисления суммы n членов ряда...

Вычисление суммы ряда с заданной точностью
помогите пожалуйста вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4...

Вычисление суммы и произведения членов сложного ряда
Вложенный циклический процесс: вычисление суммы и произведения членов сложного...

Вычисление суммы первых N членов ряда нечетных чисел
2. Написать программу, которая вычисляет сумму первых N членов ряда 1, 3, 5, 7...

3
Puporev
Модератор
55074 / 42335 / 29237
Регистрация: 18.05.2008
Сообщений: 100,035
04.10.2015, 12:48 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const e=1e-5;
      x=-1.42;
var s,t:real;
    n:integer;
begin
n:=0;//не 1
t:=x;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*x*x/2/n/(2*n+1); //рекуррентная формула
  s:=s+t;               //A[n]=A[n-1]*x^2/(2n*(2n+1))
 end;
write('S=',s:0:5);
end.
0
JuriiMW
2002 / 1085 / 1575
Регистрация: 10.12.2014
Сообщений: 4,075
05.10.2015, 09:31 3
Или так в стиле PABC.NET:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
  eps = 1e-5;
var
  x : real = -1.42;
begin
  var n := 0; var p := x; // при n = 0 значение x^(1)/1
  var s := 0.0; // но в сумму его не включаем
  repeat
    n += 2; // собственно, n нам не нужно… нужно 2n. Поэтому сразу считаем парами!
    p := p*x*x/n/(n+1); // очередное слагаемое
    s += p;
  until abs(p) < eps;
  WriteLn('S=', s:0:7);
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26363 / 17688 / 7004
Регистрация: 22.10.2011
Сообщений: 31,124
Записей в блоге: 6
05.10.2015, 10:55 4
Цитата Сообщение от JuriiMW Посмотреть сообщение
Или так в стиле PABC.NET:
Это не стиль PABC.NET. Вот так в стиле:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  x : double := -1.42;
  item : double := x;
  
function func(k : integer) : double;
begin
  item := item * sqr(x) / 2 / k / Succ(2*k);
  result := item;
end;
begin
  writeln('S = ', Enumerable.Range(1, MaxInt).Select(func).TakeWhile((f : double) -> abs(f) > 0.000001).Sum());
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.10.2015, 10:55

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

Вычислить сумму членов ряда с точностью до члена ряда, меньшей E
Вычислить сумму членов ряда: Z=x/(x+1)!+x^2/(x+2)!+x^3/(x+3)!+... с точностью...

Определить Y с точностью до члена ряда, меньшего eps
Пожалуйста помогите решить задачу по Паскалю, задача на цикл...... Дано ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru