y=1/(sin(x)+cos(x))+1/(sin(2x)+cos(2x) +….+1/(sin(nx)+cos(nx) при х=0,45 и n=8решить это...

0 голосов
68 просмотров
y=1/(sin(x)+cos(x))+1/(sin(2x)+cos(2x) +….+1/(sin(nx)+cos(nx) при х=0,45 и n=8
решить это уравнение в экселе,и автоматизировать так ,что если я изменю n то всё будет работать

Информатика (24 баллов) | 68 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

В первом файле фрагмент экрана, показывающий работу программы. Во втором - рабочая книга MS Excel.
Небольшая процедура на VBA, текст которой приведен ниже, выполняет всю необходимую работу.Для того, чтобы работать с данной реализацией, надо в Экселе разрешить работу с макросами и разрешить доверять проектам без цифровой подписи (это стандартное условие для выполнения средств автоматизации в MS Office).

Option Explicit

Private Sub CommandButton1_Click()
    Dim i As Integer, s As Double
    Dim x As Double, n As Integer
    x = Cells(2, 1).Value
    n = Cells(2, 2).Value
    s = 0
    For i = 1 To n
        s = s + 1 / (Sin(n * x) + Cos(n * x))
    Next i
    Cells(3, 2).Value = s
End Sub

(142k баллов)
0 голосов

В файле все разъяснил. Если будет непонятно - пиши.

(1.1k баллов)
0

немнго коряво в столбце В я сделал

0

можешь убрать из формулы СУММ()