Рекурсия

[Wolf-X]

Знаю что ламерский вопрос но... срочно надо сдать а не получается

Вычислить с помощью рекурсии
P= (1+sin 0.1)*(1+sin 0.2)…(1+sin 10)


Ребята, помогите плизз

[skiperski]

Код: Выделить всё

Public Function test(ByVal Param As Single) As Single
    test = 1 'начальное значение
    If (Param = 0) Then Exit Function 'выход из рекурсии
    test = (1 + Sin(Param)) * test(Round(Param - 0.1, 1))
End Function

или

Код: Выделить всё

Public Function test2() As Single
    Static Param As Single
    test2 = 1
    Param = Round(Param + 0.1, 1)
    If (Param > 10) Then
        Param = 0
        Exit Function
    End If
    test2 = (1 + Sin(Param)) * test2()
End Function

Immediate window:

Код: Выделить всё

?test(10), test2()
1,729905E-14                1,729904E-14

[Daz]

Можно и так:

Код: Выделить всё


Public Function p(n As Double, k) As Double
p = 1
For i = n To k Step 0.1
  res = 1 + Sin(i)
p = p * res
Next
End Function


Private Sub Command1_Click()
Print p(0.1, 10)
End Sub


[alibek]

Это не рекурсия.

[Daz]

Это не рекурсия.

У меня, или у skiperski ?

[Amed]

У Вас, Daz, не рекурсия, а просто цикл...

[Daz]

У Вас, Daz, не рекурсия, а просто цикл...

Не просто цикл, а обычный линейно-рекурсивный

Простейшим примером рекурсии является линейная рекурсия, когда функция содержит единственный условный вызов самой себя. В таком случае рекурсия становится эквивалентной обычному циклу. А любой циклический алгоритм можно преобразовать в линейно-рекурсивный и наоборот.

[alibek]

Это вообще не рекурсия.
Если бы было p = p() * res, тогда да. А в данном примере p это обычная переменная.