Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 1 / 0
Регистрация: 16.10.2014
Сообщений: 91
1

Вычислить сумму членов для предыдущих рядов

16.10.2014, 21:21. Просмотров 354. Ответов 3
Метки нет (Все метки)

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

https://www.cyberforum.ru/cgi-bin/latex.cgi?x-\frac{x^3}{3}+...+(-1)^n\,\frac{x^{2n+1}}{2n+1}+...,\ \ \ \ E=0.0001;\ x=0.103
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2014, 21:21
Ответы с готовыми решениями:

Вычислить значение суммы N членов следующих рядов
Здравствуйте) помогите написать код: Вычислить значение суммы N членов следующих рядов:...

Вычислить сумму членов бесконечного ряда для заданного Eps
1)вычислить сумму членов бесконечного ряда для заданного Eps...

Массивы: Для каждой группы из m стоящих рядом членов вычислить её сумму
ещё бы вторую кто помог) и вообще красота) Дан массив a..a и число m<=n. Для каждой группы из m...

Вычислить сумму рядов
Вычислите на компьютере сумму рядов 1^2+3^2+5^2+...(2n-1)^2

3
Фрилансер
3403 / 2800 / 3000
Регистрация: 08.02.2012
Сообщений: 7,679
Записей в блоге: 1
17.10.2014, 14:07 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Const eps=0.0001;x=0.103;
Var s,a:real;
    i:integer;
Begin
    a:=x;s:=x;
    While (abs(a)>=eps)and(i<100) do
    Begin
      inc(i);
      a:=-a*((x*x)/(2*i+1));
      s:=s+a;
    End;
    if i=100 then writeln('Достигнуто max количество итераций')
     else writeln(s:0:4);
    readln;
End.
0
0 / 1 / 0
Регистрация: 16.10.2014
Сообщений: 91
17.10.2014, 14:09  [ТС] 3
спасибо
0
Модератор
60253 / 45367 / 31307
Регистрация: 18.05.2008
Сообщений: 108,994
18.10.2014, 09:06 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const eps=0.0001;
      x=0.103;
Var s,a:real;
    n:integer;
Begin
n:=0;{значения при n=0}
a:=x;
s:=x;
While abs(a)>=eps do
 Begin
  inc(n);
  a:=-a*x*x;{рекуррентно изменяется только это, без знаменателя}
  s:=s+a/(2*n+1);{а вот сейчас делим и прибавляем}
 End;
{про число допустимых итераций в приведенном задании ничего не сказано}
writeln('S=',s:0:4);
readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2014, 09:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вычислить сумму рядов
Задача вложенна на фотке

Рекурсия. Для данной геометрической прогрессии вычислить n-ый член, сумму первых n членов
Напишите программу, в которой для данной геометрической прогрессии используются две функции 1)для...

Вычислите сумму рядов S=1+1/x+1/2x+1/3x+...1/nx, для n введенного с клавиатуры
Вычислите сумму рядов S=1+1/x+1/2x+1/3x+...1/nx, для n введенного с клавиатуры

Вычислить сумму членов ряда
1/a+1/a(a+1)+1/a(a+1)(a+2).....1/a(a+1)(a+2)...(a+n) Пожалуйста, помогите решить. Я понимаю, что...


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

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

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