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

@d1m471 · Регистрация: 24.05.2014

Студворк — интернет-сервис помощи студентам

Задание: По формуле члена ряда с номером i, составить две программы (или два расчета в рамках одной программы), обеспечивающие вычисление: а) суммы первых n членов ряда (i = 1,2,…n); б) суммы всех начальных членов ряда, значение которых не меньше заданного числа e, 0 < e < 1 (т.е. суммирование прекращается, как только значение некоторого члена ряда становится меньше е). Ввод/вывод осуществлять с использованием компонентов класса (TEdit / TextBox).

Член ряда с номером i:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{(-1)^{i+1}\begin{matrix}\\\\\\ x\end{matrix}^{2i}}{(2i-1)!}$

Я начал, но под б) не могу.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
n,i,j,f,k: integer;
x,sum,sx:double;
begin
 n:=StrToInt(Edit2.Text);
 x:=StrToInt(Edit1.Text);
 sum:=0;
for i:=1 to n do
begin
 f:=1;
 for j:=2 to (2*i-1) do
  f:=f*j;
 if odd(i+1) then
  k:=-1
 else
  k:=1;
 sx:=x;
 for j:=2 to 2*i do
  sx:=sx*x;
 sum:=sum+(k*sx)/f;
end;
 Edit3.Text:=FloatToStr(sum);
end;

@Mr_Bula · 10.11.2014, 20:22

Ну я это и имел ввиду, спасибо большое!

@Mr_Bula · 15.02.2015, 09:00

Извините пожалуйста что надоедаю, но не могли бы подсказать по поводу, это же задание по поводу другой формулы:
(-1)ⁱ / ((i!)² * (2i+1)) * x²ⁱ⁺¹. Я не уверен, но вот что у меня получается при составлении формулы расчета членов ряда:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
 sx := -x[SUP]3[/SUP] / 3;
 sum := sx;
 f := 1;
 for i := 2 to n do
 begin
  f := f * i; // факториал числа i
  {if odd(i) then 
   k := -1
  else
   k := 1;}
  sx := -sx / ((f)[SUP]2[/SUP] * (2 * i + 1)) * x * x * x;
  sum := sum + sx;
 end;

Скажите правильно ли я написал формулу расчета?

@Puporev · 15.02.2015, 09:10

Наверное уже хватит мозги полоскать?
Создайте новую тему, напишите точное задание.

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@Mr_Bula 0 / 0 / 0 Регистрация: 29.04.2013 Сообщений: 100
	10.11.2014, 20:22
	Ну я это и имел ввиду, спасибо большое! 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	15.02.2015, 09:10
	Наверное уже хватит мозги полоскать? Создайте новую тему, напишите точное задание. 0