Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 24
1

Есть задача, рассчитать сумму бесконечного ряда, код прилагаю

20.10.2018, 13:05. Показов 972. Ответов 2
Метки нет (Все метки)

Есть задача, рассчитать сумму бесконечного ряда, код прилагаю


Кр4... я хз, это типо вот так должно быть))
я хз как сделать, скелет по идее такой должен быть

Выводит просто цифру '4'.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim Exp As Single, S As Single, U As Single
Dim n As Integer
Const Limit = 3.14
Eps = 10 ^ -4
S = 0
U = 1
n = 1
Do
U = 4 * (1 / n): S = S + U: n = n + 2
Loop Until (Abs(U) <= Eps) Or (S >= Limit)
 
Label2.Caption = Str(S)
 
End Sub
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2018, 13:05
Ответы с готовыми решениями:

Рассчитать сумму бесконечного ряда
Здравствуйте! Помогите написать код для VBA по следующему заданию. Прикреплю скрин задания и кода. ...

Рассчитать сумму бесконечного ряда
помогите решить и если можно то с объяснением

Рассчитать сумму бесконечного ряда
1)Составить схему алгоритма, написать и отладить программу в соответствии с вариантом. Рассчитать...

Рассчитать сумму бесконечного ряда
2) Рассчитать сумму бесконечного ряда с точностью до \varepsilon , где x -...

2
Заблокирован
20.10.2018, 14:45 2
Лучший ответ Сообщение было отмечено MozGiNator как решение

Решение

MozGiNator,
с условиями цикла перестарались,
знак слагаемых кто будет менять?
И экономить на типах переменных здесь точно нужды нет.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim Exp As Double, S As Double, U As Double
Dim n As Long, z As Long
Const Limit = 3.14
Eps = 10 ^ -4
S = 0
U = 1
n = 1
z = 1
Do
  U = 4 * (1 / n): S = S + z * U: n = n + 2: z = -z
Loop Until U <= Eps 'Or (S >= Limit)
 
Label2.Caption = Str(S)
 
End Sub
1
0 / 0 / 0
Регистрация: 22.02.2019
Сообщений: 21
13.09.2019, 13:35 3
Интересные идеи)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.09.2019, 13:35

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

Рассчитать сумму бесконечного ряда
Доброго времени суток) Возникла такая проблема... Задача такая - нужно рассчитать сумму...

Рассчитать сумму членов бесконечного ряда
рассчитать сумму членов бесконечного ряда с заданной пользователем точностью ε для заданного...

Рассчитать Пи, как сумму бесконечного ряда
Дана формула: Пи = 4 - 4 / 3 + 4 / 5 - 4 / 7 + 4 / 9 - 4 / 11 ... Правильно ли я понял, что...

Алгоритм цикла. Рассчитать сумму бесконечного ряда
Помогите пожалуйста: Рассчитать сумму бесконечного ряда: 1+1/34+1/54+.... Суммирование...


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

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

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