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

05.10.2014, 17:17. **Показов** 1490. **Ответов** 2

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

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\chi -\frac{{\chi }^{2}}{2}+\frac{{\chi }^{3}}{3}-\frac{{\chi }^{4}}{4} ... -1<\chi \leq 1 \epsilon ={10}^{-5}$

буду очень признателен !

Добавлено через 8 минут
Мне нужно решить это уравнение используя оператор "function" и рода "Do loop".

@Улугбек · 07.11.2014, 00:20

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Uravnenie()
Dim x As Double, y As Double, ch As Integer
ch = 0
For x = -1 To 1 Step 0.09
    If x > -1 And x <= 1 Then
        ch = ch + 1
        If ch Mod 2 = 0 Then
            y = y - ((x ^ ch) / ch)
        Else
            y = y + ((x ^ ch) / ch)
        End If
    End If
    Debug.Print y
Next x
End Sub

@Alex77755 · 07.11.2014, 11:17

Улугбек,
Не путай бедных студентов!
И почитай что-нибудь про сумму ряда
В вопросе и подсказка есть

используя оператор "function" и рода "Do loop".

Нухно вынести вычисление в отдельную функцию
И в ней в цикле вичислять все элементы до заданной точности

Visual Basic
1
For x = -1 To 1 Step 0.09

Откуда здесь появился шаг? В условии его нет
В соседней ветке варинет решения тоже не верный

Добавлено через 45 минут
Функция будет как-то так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Function Sum(a, E) As Double
        Dim Y, SN, N
        If a = 0 Then Exit Function
           Do
                   N = N + 1
                    Y = (-1) ^ (N + 1) * a ^ N / N
                    SN = SN + Y
           Loop While Abs(Y) > E '
      Sum = SN
End Function

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. 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, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

Mjasnoi

	Подсчитать сумму ряда с заданной точностью 05.10.2014, 17:17. Показов 1490. Ответов 2 Метки нет (Все метки) Доброго времени суток Пожалуйста, объясните, как мне записать это уравнение в Basic? $https://www.cyberforum.ru/cgi-bin/latex.cgi?\chi -\frac{{\chi }^{2}}{2}+\frac{{\chi }^{3}}{3}-\frac{{\chi }^{4}}{4} ...<br /> <br /> <br /> -1<\chi \leq 1<br /> <br /> <br /> \epsilon ={10}^{-5}$ буду очень признателен ! Добавлено через 8 минут Мне нужно решить это уравнение используя оператор "function" и рода "Do loop".

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

Решение