Создать процедуру табулирования функции - VBA
Формулировка задачи:
ссылка на задание
просто не знаю как вам формулу написать
Задание 2
Используя VBA, создать процедуру табулирования функции
если а< 0,6 или а > 1,6
для а = 0,2; 0,3; 0,45; 0,6; 0,75; 1,1; 1,5; 1,6; 1,9; 2; 2,3 где
Командную кнопку для запуска процедуры и результаты выполнения представить на рабочем листе Задание2.
Решение задачи: «Создать процедуру табулирования функции»
textual
Листинг программы
Sub vvv() Dim a(), i, Y#, k#, n# a = Array(0.2, 0.3, 0.45, 0.6, 0.75, 1.1, 1.5, 1.6, 1.9, 2, 2.3) For k = 1 To 13 Y = Y + ((-1) ^ (2 * k) * (k + 1)) / (2 * k + k ^ 0.5) Next ReDim Z(1 To UBound(a) + 2, 1 To 2) Z(1, 1) = "a": Z(1, 2) = "Z" n = 1 For Each i In a n = n + 1 Z(n, 1) = i If i >= 0.6 And i <= 1.6 Then Z(n, 2) = Y ^ (i) + i ^ (1 / 3) Else Z(n, 2) = i ^ (Y) + Y ^ (1 / 3) End If Next Range("A1").Resize(UBound(Z), 2) = Z End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д