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

@Тагир Манджиев · Регистрация: 08.05.2016

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

Составить программу вычисления значения суммы бесконечного ряда с заданной точностью . На печать вывести значение суммы и число членов ряда, вошедших в сумму. Помогите, пожалуйста, с программой Visual Basic.

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

@ili1 · 08.04.2018, 17:55

А в чём проблема?
1. судя по ряду, он знакочередующийся и кроме того 1 по общей
формуле не вычисляется. Тогда сделайте так.
2. S - сумма ряда, А - слагаемое ряда
3. Предварительно выполняете оператор S = 1
и кроме того инициализируете переменную x (икс)
(там у вас на рисунке опечатка - втрое слагаемое должно иметь знак минус)
4. значит далее идет цикл
5. но перед циклом вычисляется второе слагаемое А = -х²/2
и сумму S = S + A
6. (цикл). Вычисляете очередное слагаемое через предыдущее.
$https://www.cyberforum.ru/cgi-bin/latex.cgi?A=-A\frac{(2n+1)^2(2n+2)}{2n-1}x^2$
7. условие выхода из цикла
IF ABS(A) < 0.5E-3 THEN EXIT DO (если цикл DO)
8. далее оператор S = S + A
9. после цикла оператор PRINT "S ="; S

@Тагир Манджиев · 12.04.2018, 10:48 **[ТС]**

ili1, ili1, не могу понять, как адаптировать к Visual Basic 6.0.

@ili1 · 12.04.2018, 11:25

Тагир Манджиев
программа работает (проверено)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Dim S#, A#, x#, i&, n&
 
Private Sub Command1_Click()
    Const e = 0.0005
    S = 1
    x = Val(Text1.Text)
    A = -x ^ 2 / 2
    S = S + A
    n = 1
    
    Do
        n = n + 1
        A = -A / ((2 * n - 1) * (2 * n + 2)) * x ^ 2
        S = S + A
    Loop Until Abs(A) < e
    
    Print "S ="; S
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144

	Составить программу вычисления значения суммы бесконечного ряда с заданной точностью ε 08.04.2018, 12:21. Показов 5188. Ответов 3 Метки нет (Все метки) Составить программу вычисления значения суммы бесконечного ряда с заданной точностью . На печать вывести значение суммы и число членов ряда, вошедших в сумму. Помогите, пожалуйста, с программой Visual Basic. 0

@ili1 Заблокирован
	08.04.2018, 17:55
	А в чём проблема? 1. судя по ряду, он знакочередующийся и кроме того 1 по общей формуле не вычисляется. Тогда сделайте так. 2. S - сумма ряда, А - слагаемое ряда 3. Предварительно выполняете оператор S = 1 и кроме того инициализируете переменную x (икс) (там у вас на рисунке опечатка - втрое слагаемое должно иметь знак минус) 4. значит далее идет цикл 5. но перед циклом вычисляется второе слагаемое А = -х²/2 и сумму S = S + A 6. (цикл). Вычисляете очередное слагаемое через предыдущее. $https://www.cyberforum.ru/cgi-bin/latex.cgi?A=-A\frac{(2n+1)^2(2n+2)}{2n-1}x^2$ 7. условие выхода из цикла IF ABS(A) < 0.5E-3 THEN EXIT DO (если цикл DO) 8. далее оператор S = S + A 9. после цикла оператор PRINT "S ="; S 0

@Тагир Манджиев 6 / 6 / 0 Регистрация: 08.05.2016 Сообщений: 144
	12.04.2018, 10:48 [ТС]
	ili1, ili1, не могу понять, как адаптировать к Visual Basic 6.0. 0

Опции темы

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

Решение