Задание. Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h. Результат представить в виде таблицы, первый столбец которой значения аргумента, второй - соответствующие значения функции:
F(x)=-cos2x
Перед запуском макроса сделайте активным эксель-лист без данных, чтобы не испортить ваши данные, т.к. макрос вставит результат на активный эксель-лист.
Макрос
Sub Procedure_1()
Dim a As Double, b As Double
Dim h As Double
Dim x As Double
Dim i As Long
a = 1
b = 10
h = 1
'Очистка Excel-листа от прежних данных.
'UsedRange - это ячейки, в которых что-то есть:
'данные или форматирование (например, заливка ячеек).
ActiveSheet.UsedRange.Clear
For x = a To b Step h
i = i + 1
Cells(i, "A").Value = x
Cells(i, "B").Value = -Math.Cos(2 * x)
Next x
End Sub