Разработать макро функцию с одним параметром “x", которая рассчитывает смотрите рисунок - VBA

Формулировка задачи:

Разработать макро функцию с одним параметром “x", которая рассчитывает см рис. В функции запрещено использовать условный оператор возведения в степень и оператор (if) ! Думаю что алгоритм должен быть составлен соответствующем образом, но не вижу в чем ошибка.

                    Листинг программы
                
 
                        
                          
                    
Public Function uz1(X As Double)
Dim sign As Integer, i As Integer
sign = 1
For i = 2 To 20 Step 2
uz1 = uz1 ^ i + sign
sign = -sign
Next i
End Function

Решение задачи: «Разработать макро функцию с одним параметром “x", которая рассчитывает смотрите рисунок»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function pow(s As Double, n As Double) As Variant
    Dim res As Double
    
    res = s
    
    For i = 1 To n - 1
        res = res * s
    Next i
    
    pow = res
End Function
 
Function arg(X As Double) As Double
    
    Dim sum As Double
    Dim n As Double
    Dim i As Double
    
    n = 1
    For i = 2 To 20 Step 2
        sum = sum + pow(X, i) * n
        n = n * -1
    Next i
    
    arg = sum
End Function
 
x = arg(5)

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы