Создать процедуру табулирования функции - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4 из 5