Предмет: Информатика,
автор: amoskokos
y=1/(sin(x)+cos(x))+1/(sin(2x)+cos(2x) +….+1/(sin(nx)+cos(nx) при х=0,45 и n=8
решить это уравнение в экселе,и автоматизировать так ,что если я изменю n то всё будет работать
Ответы
Автор ответа:
0
В файле все разъяснил. Если будет непонятно - пиши.
Приложения:
Автор ответа:
0
немнго коряво в столбце В я сделал
Автор ответа:
0
можешь убрать из формулы СУММ()
Автор ответа:
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
Небольшая процедура на 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
Приложения:
![](https://files.topotvet.com/i/a77/a770c5896f69df79b9c3ef3814f2ce2d.jpg)
Похожие вопросы
Предмет: Українська мова,
автор: hieldo11032016
Предмет: Химия,
автор: analanskih43
Предмет: Информатика,
автор: Sugarcrash
Предмет: Физика,
автор: INAL000