Страницы: 1
RSS
Вычислить сумму рядов
 
Как это вычеслить в Экселе???
 
Можно формулами, можно макросами.
 
А можете  как-то на примере показать? Я пробовал вручную, но хз. Не то.
 
Unravel, а зачем?
 
Цитата
Unravel написал: Я пробовал вручную
Не понял, это как? На бумаге в столбик?
Вы бы файл Эксель приложили со своими попытками что-то сделать.
 
Цитата
Алишер Шакиров написал:
со своими попытками
Ссылка 1, Ссылка 2.
 
Мог ошибиться, но возможно вот так:
Код
Option Base 1
Option Explicit
Dim t As Double

Sub firstSummand()
    Dim a
    Dim b
    Dim x#, z#, s#
    Dim i%
    
    a = Array(-1.1, 2.4, 5.6, -2.4, 0.5)
    b = Array(1.4, 3.6, 1.3, -2.1, -3.3)
    x = 6.4
    z = -0.9
    
    For i = 1 To 5
        
        s = s + (a(i) - (b(i)) ^ 3)
    
    Next i
    
    t = s / Math.Cos(x * z - 1.7)
    
End Sub

Sub secondSummand()
    Dim a
    Dim b
    Dim x#, z#, s#
    Dim i%
    
    
    a = Array(-1.1, 2.4, 5.6, -2.4, 0.5)
    b = Array(1.4, 3.6, 1.3, -2.1, -3.3)
    x = 6.4
    z = -0.9
    
    s = 0
    
    For i = 2 To 4
        
        s = s + (b(i) ^ 2 - a(i) ^ 3)
    
    Next i
    
    t = t - Math.Cos(3.6 - x ^ 2) / s
    
End Sub

Sub thirdSummand()
    Dim a
    Dim b
    Dim x#, z#, s#
    Dim i%
    
    a = Array(-1.1, 2.4, 5.6, -2.4, 0.5)
    b = Array(1.4, 3.6, 1.3, -2.1, -3.3)
    x = 6.4
    z = -0.9
    
    s = 0

    For i = 2 To 5
    
        s = s + (b(i) ^ 3 - a(i) ^ 3)
    
    Next i
    
    t = t + s / Math.Cos(x - 0.3 * z)

End Sub

Sub main()

    Call firstSummand
    Call secondSummand
    Call thirdSummand
    MsgBox t

End Sub
С уважением,
Федор/Все_просто
 
Решение формулой.
 
GoGа, спасибо, очень помогли.
Страницы: 1
Наверх