Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
0 / 0 / 0
Регистрация: 11.04.2014
Сообщений: 64

Вычисления закончить, когда очередной член ряда станет меньше заданного значения погрешности

11.04.2014, 18:24. Показов 2791. Ответов 20
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте! У меня вот такая задачка:
Цикл c использованием конструкции Do – Loop.
Найти сумму ряда.
Вычисления закончить, когда очередной член ряда станет меньше заданного значения погрешности е (е=0.0001). Для выхода из цикла использовать оператор Exit Do.
Вывести значение S и количество шагов цикла n.
Вот сама формула:
Название: 84vCa.png
Просмотров: 119

Размер: 1.0 Кб

Нашел код аналогичной задачи, только с другой формулой и тут я встрял. Что такое Try, Catch? Учусь на 1-м курсе, нам такого не объясняли, а выполнять надо. В интернете читал, не очень дошло что и как. Можете объяснить в чем суть этих команд и как они работают? А в лучшем случае написать решение задачки )
Вот сам код аналогичной задачи:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n, i As Integer
        Dim f As Long
        Dim x, s1, s, eps As Decimal
        x = Val(TextBox3.Text)
        eps = Val(TextBox1.Text)
        s1 = 100
        n = 1
        TextBox2.Clear()
        Do While s1 > eps
            f = 1
            Try                 'Попытка выполнить фрагмент программы
                For i = 1 To n
                    f = f * i
                Next i
            Catch ex As Exception   'В случае переполнения вывести сообщение
                MessageBox.Show("Факториал: очень большое число!")
                End
            End Try
            s1 = x ^ n / f
            s = s + s1
            TextBox2.Text = TextBox2.Text + "Шаг " + CStr(n) + ". Слогаемое: " + CStr(Math.Round(s1, 5)) + _
            "; Сумма ряда: " + CStr(Math.Round(s, 5)) + vbCrLf
            n = n + 1
        Loop
    End Sub
Заранее благодарен!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.04.2014, 18:24
Ответы с готовыми решениями:

Вычисления закончить, когда очередной член последовательности станет больше заданного М
Привет, не понимаю как написать программу, объясните пожалуйста. Вычислить ( тут формула) . Вычисления закончить, когда очередной член...

Вычислить сумму S, прекращая суммирование, когда очередной член суммы по абсолютной величине станет меньше 0,0001
Вычислить сумму S, прекращая суммирование, когда очередной член суммы по абсолютной величине станет меньше 0,0001, при изменении аргумента...

Производить вычисление, пока очередной член последовательности станет больше заданного М
не правильно считает, ввожу вместо М любое число, а результат один и тот-же.. Задание: производить вычисление, пока очередной член...

20
2 / 2 / 3
Регистрация: 15.11.2014
Сообщений: 188
14.01.2015, 16:55
Студворк — интернет-сервис помощи студентам
при 1 и более всегда, при -1 и ниже все хорошо, но всего 3 шага
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.01.2015, 16:55

Найти сумму S, общий член которого an=2(n!)^2/(3(2n)!). Суммировать до тех пор, пока последующий член ряда по модулю, не станет меньше у=10^-3.
1.Найти сумму S, общий член которого an=2(n!)^2/(3(2n)!). Суммировать до тех пор, пока последующий член ряда по модулю, не станет меньше...

Определить через сколько лет стоимость оборудования станет меньше заданного значения
Извините, все, что отвлекаю, я в программировании полный 0, пыталась написать программу к задаче по 9 классу, в итоге преподаватель сказал,...

Вычислить произведение, пока очередной сомножитель не станет меньше Е
вычислить произведение, пока очередной сомножитель не станет меньше Е (x/x+1)*(x+1/x+6)*(x+2/x+11)*(x+3/x+16)*... Добавлено через 7...

Вычислить произведение, пока очередной сомножитель не станет меньше Е
Привет всем. Помогите решить задачку. Вычислить произведение, пока очередной сомножитель не станет меньше Е ...

Вычислить произведение, пока очередной сомножитель не станет меньше Е
Вычислить произведение, пока очередной сомножитель не станет меньше Е (x/x+1)*(x+1/x+6)*(x+3/x+11)*(x+4/x+16)*(x+6/x+21)...... Сижу 3...


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

Или воспользуйтесь поиском по форуму:
21
Ответ Создать тему
Новые блоги и статьи
Про "Windows must die!"
kumehtar 04.11.2026
Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .
Красочные поля с номером страницы svg+background-image
russiannick 04.11.2026
Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .
Вступаем в новую фазу генерации favicons, векторную.
russiannick 02.11.2026
Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .
Генератор паролей (вариант №4)
Maks 01.11.2026
После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков | 1 l I;. . .
Генератор паролей (вариант №3)
Maks 30.10.2026
Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .
Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени)
zorxor 30.10.2026
Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ)
zorxor 30.10.2026
Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .
Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени)
zorxor 30.10.2026
Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru