Подсчитать сумму ряда с заданной точностью

@Jestars · Регистрация: 04.10.2014

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

Доброго времени суток!

Ребят, я что-то очень туплю, сижу уже 6 час над этим уравнением :

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{x}{3!}-\frac{x^3}{5!}+\frac{x^5}{7!}-\dots\; ,\; \eps=10^{-5}$

Пожалуйста, объясните, как мне записать его в Basic?

Добавлено через 8 минут
Или хотя бы объясните дундуку, как записать факториал нечётный с числа 3 и дальше, мне нужно решить это уравнение используя оператор "function" и рода "Do loop"
Нечётный факториал будет вот так? :

Visual Basic
1
2
3
F = 3 
For i = 1 To (Что здесь написать для бесконечности..?) Step 2
F = F * i

@Qwertiy · 04.10.2014, 23:12

Не решить уравнение, а посчитать сумму?
Тут нужен while, а не for.
Каждый член выражается через предыдущий, они суммируются. На надо считать факториалы.

@Jestars · 05.10.2014, 00:24 **[ТС]**

Не могли бы вы подсказать мне примерный код программы, в каком направлении мне двигаться, чтобы это всё записать...
А то я никогда не учил программирование нигде, а мне в универе вливают это всё, главное к моей специальности ни как не относится..
Буду очень благодарен.

@Qwertiy · 05.10.2014, 00:57

Берёшь первый член: a[1] = x / (2*3).
Выводишь рекуррентную формулу этой последов*ательности: a[i+1] = -a[i] * x*x / ((2*i)*(2*i+1)).
Взял такую индексацию, чтобы было проще вычислять знаменатель. На самом деле, она не важна.
Вместа массива используешь одну переменную a. Каждый раз как вычисляешь очередное значение (начальное тоже), добавляешь его к сумме.
Условие выхода из цикла - очередной член стал меньше E. С математической точки зрения это неверно, но во всех методичках по программированию подразумевается именно это.
Ну и выводишь накопившуюся сумму.

Добавлено через 1 минуту
Хм.. Заметил ещё закономерность. Можно начать с a[0]=1 и s=0юХотя, это немного странновато

@Jestars · 05.10.2014, 12:26 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
EPS = 0.00001
S = 0: i = 1: F = 3
x = InputBox("Set x", "Data")
Do Until L > EPS
y = x ^ i
Znam = y * i
i = i + 1
F = F * i
i = i + 1
L = Znam / F
S = S + L
Loop
L = MsgBox("L=" + Str(L), vbOKOnly)
 
End Sub
 
Private Sub Command2_Click()
End
End Sub

Я правильно всё переписал?
Хоть я и не гуманитарий, но у меня от этого уже мозг болит, всю ночь просидел..

@Qwertiy · 05.10.2014, 12:36

Во-первых, неправильно. Как минимум, там должен быть While, а не Until при таком условии.
Во-вторых, ты что-то перемудрил с самой формулой, не думаю, что она правильная.
И переменные надо объявлять, а не брать с потолка.
И наконец, а на каком языке ты пишешь? А то, что-то это не VB.NET.

@Jestars · 05.10.2014, 12:52 **[ТС]**

VB 6.0...

Млин, как же эту тему сделать, с помощью Do Loop, я вообще ничего не могу понять...
Помоги пожалуйста, добрый человек.

@Qwertiy · 05.10.2014, 13:13

Вроде так - работает правдоподобно, но значения не проверял:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub Main()
  Const Eps = 0.00001
  Dim X As Double, A As Double, S As Double, I As Integer
  
  X = InputBox("Enter X")
  I = 0
  A = -1
  S = 0
  
  Do
    I = I + 1
    A = -A * (X * X / (2 * I) / (2 * I + 1))
    'Debug.Print A
    S = S + A
  Loop While Abs(A) > Eps
  
  MsgBox "sum {i in 1 to " & I & "} of ... = " & S
End Sub

@Jestars · 05.10.2014, 13:25 **[ТС]**

Спасибо тебе добрый человек, если вам понадобиться помощь в навигации и лоции, можете обращаться ко мне =)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника 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;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Qwertiy 835 / 643 / 101 Регистрация: 20.08.2013 Сообщений: 2,524
	04.10.2014, 23:12
	Не решить уравнение, а посчитать сумму? Тут нужен while, а не for. Каждый член выражается через предыдущий, они суммируются. На надо считать факториалы. 1

@Jestars 0 / 0 / 0 Регистрация: 04.10.2014 Сообщений: 20
	05.10.2014, 00:24 [ТС]
	Не могли бы вы подсказать мне примерный код программы, в каком направлении мне двигаться, чтобы это всё записать... А то я никогда не учил программирование нигде, а мне в универе вливают это всё, главное к моей специальности ни как не относится.. Буду очень благодарен. 0

@Qwertiy 835 / 643 / 101 Регистрация: 20.08.2013 Сообщений: 2,524
	05.10.2014, 00:57
	Берёшь первый член: a[1] = x / (23). Выводишь рекуррентную формулу этой последовательности: a[i+1] = -a[i] * xx / ((2i)(2i+1)). Взял такую индексацию, чтобы было проще вычислять знаменатель. На самом деле, она не важна. Вместа массива используешь одну переменную a. Каждый раз как вычисляешь очередное значение (начальное тоже), добавляешь его к сумме. Условие выхода из цикла - очередной член стал меньше E. С математической точки зрения это неверно, но во всех методичках по программированию подразумевается именно это. Ну и выводишь накопившуюся сумму. Добавлено через 1 минуту Хм.. Заметил ещё закономерность. Можно начать с a[0]=1 и s=0юХотя, это немного странновато 0

@Qwertiy 835 / 643 / 101 Регистрация: 20.08.2013 Сообщений: 2,524
	05.10.2014, 12:36
	Во-первых, неправильно. Как минимум, там должен быть While, а не Until при таком условии. Во-вторых, ты что-то перемудрил с самой формулой, не думаю, что она правильная. И переменные надо объявлять, а не брать с потолка. И наконец, а на каком языке ты пишешь? А то, что-то это не VB.NET. 0

@Jestars 0 / 0 / 0 Регистрация: 04.10.2014 Сообщений: 20
	05.10.2014, 12:52 [ТС]
	VB 6.0... Млин, как же эту тему сделать, с помощью Do Loop, я вообще ничего не могу понять... Помоги пожалуйста, добрый человек. 0

@Jestars 0 / 0 / 0 Регистрация: 04.10.2014 Сообщений: 20
	05.10.2014, 13:25 [ТС]
	Спасибо тебе добрый человек, если вам понадобиться помощь в навигации и лоции, можете обращаться ко мне =) 0

Подсчитать сумму ряда с заданной точностью

Решение