Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
1 / 1 / 0
Регистрация: 20.11.2016
Сообщений: 85

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

22.11.2016, 19:50. Показов 1771. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вычислите 1*2+2*3*4+...+n*(n+1)*…*2n.
помогите пожалуйста.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.11.2016, 19:50
Ответы с готовыми решениями:

Вычислите сумму ряда
Вычислите сумму ряда для каждого значения x пренадлежит с шагом h. Вычисление производить до тех пор, пока очередной член больше ε. ...

Вычислите сумму ряда для каждого значения
Вычислите сумму ряда для каждого значе(ния x \in c шагом h Вычисление производить до тех пор, пока очередной член больше \varepsilon ...

Вычислите бесконечную сумму ряда с заданной точностью eps
Задача: Вычислите бесконечную сумму ряда с заданной точностью eps, считая, что нужная точность была достигнута, если следующее слагаемое...

1
Модератор
10448 / 5739 / 3407
Регистрация: 17.08.2012
Сообщений: 17,459
23.11.2016, 00:35
Лучший ответ Сообщение было отмечено gogo2099 как решение

Решение

Ищем рекуррентное соотношение для членов ряда:

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
p=\sum_{i=1}^{n}\prod_{j=n}^{2n}j=\sum_{i=1}^{n}a_n<br />

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
a_1=1\cdot 2=2;\ \ \ a_n=\prod_{j=n}^{2n}j=k\cdot a_{n-1};<br />

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
k=\frac{a_n}{a_n-1}=\frac{\prod_{j=n}^{2n}j}{\prod_{j=n-1}^{2n-2}j}=\frac{2n(2n-1)}{n-1}=\frac{4n(n-0.5)}{n-1};\ \ \ a_n=\frac{4n(n-0.5)a_{n-1}}{n-1}<br />

Пишем программу:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a, p: double;
    i, n: integer;
begin
  repeat
    write('n in [1..133];  n = ');
    readln(n)
  until (n >= 1) and (n <= 133);
  a := 2;
  p := a;
  for i := 2 to n do
    begin
      a := a / (i - 1) * (i - 0.5) * i * 4;
      p := p + a;
    end;
  write('p = ', p:0:0);
  readln
end.
n<1 противоречит заданию, при n>133 результат будет очень большим, и программа завершится аварийно из-за переполнения, ну или, в некоторых диалектах паскаля, в качестве результата будет выдано NaN.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
23.11.2016, 00:35
Помогаю со студенческими работами здесь

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

Вычислите сумму ряда (Цикл "While") с заданной степенью точности
Пожалуйста помогите написать код S=\frac{1}{x}-\frac{1}{{3x}^{3}}+\frac{1}{{5x}^{5}}-...+{(-1)}^{n}\frac{1}{(2n+1){x}^{2n+1}} ...

Найти сумму ряда до члена ряда с заданным номером, и найти сумму ряда с заданной точностью
№1. Дано натуральное число n. Вычислить \sum_{i=1}^n\frac{1+i}{i!} №2. Вычислить формулу по заданию №1 с точностью до...

Вычислите функцию, заданной в виде суммы бесконечного ряда
Помогите, пожалуйста, с задачей! Закономерность вывела, вот: U= -(u*x^2*(2k+1))/(2k+1). Как все 3 способа в одну программу запихать не...

Вычислите сумму членов бесконечного степенного ряда с заданной погрешностью
Вычислите сумму членов бесконечного степенного ряда с заданной погрешностью \frac{\pi }{2}-\left\quad |x|&lt;1 правда...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru