Дана числовая последовательность. Подсчитать сумму с точностью 0,000001

@Gradiana · Регистрация: 15.11.2014

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

Дана числовая последовательность $https://www.cyberforum.ru/cgi-bin/latex.cgi?s(x)=\sum_{n-1}^{\propto }(1/(n+3))$ .Подсчитать сумму с точностью 0,000001

magirus · 15.11.2014, 09:55

и что дальше? просто посчитать?

@Gradiana · 15.11.2014, 10:45 **[ТС]**

и что дальше? просто посчитать?
в Visual Basic

SoftIce · 15.11.2014, 11:02

Сообщение от Gradiana

в Visual Basic

Visual Basic

Private Sub Command1_Click()
    Dim n As Long, x As Double, sum As Double, e As Double
    e = 0.000001
    n = 1
    Do
        x = 1 / (n * (n + 3))
        sum = sum + x
        n = n + 1
    Loop Until Abs(x) <= e
    MsgBox sum
End Sub

magirus · 15.11.2014, 11:03

Сообщение от Gradiana

в Visual Basic

самостоятельно тему там разместить не в состоянии?

@Gradiana 1 / 1 / 0 Регистрация: 15.11.2014 Сообщений: 10
		1
	Дана числовая последовательность. Подсчитать сумму с точностью 0,000001 15.11.2014, 08:49. Показов 2730. Ответов 4 Метки нет (Все метки) Дана числовая последовательность $https://www.cyberforum.ru/cgi-bin/latex.cgi?s(x)=\sum_{n-1}^{\propto }(1/(n+3))$ .Подсчитать сумму с точностью 0,000001 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	15.11.2014, 09:55	2
	и что дальше? просто посчитать? 0

@Gradiana 1 / 1 / 0 Регистрация: 15.11.2014 Сообщений: 10
	15.11.2014, 10:45 [ТС]	3
	и что дальше? просто посчитать? в Visual Basic 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	15.11.2014, 11:03	5
	Сообщение от Gradiana в Visual Basic самостоятельно тему там разместить не в состоянии? 0

Опции темы

Дана числовая последовательность. Подсчитать сумму с точностью 0,000001

Решение