Вычислить: S=sinx+sinsinx+....+sinsin...sinx ( sinsinx....sinx}n раз) - VB
Формулировка задачи:
6. Даны натуральное n, действительное x. Вычислить:
S=sinx+sinsinx+....+sinsin...sinx ( sinsinx....sinx}n раз)
пжста алгоритм и закодировать
Решение задачи: «Вычислить: S=sinx+sinsinx+....+sinsin...sinx ( sinsinx....sinx}n раз)»
textual
Листинг программы
Function F1(x As Double, N As Integer, Optional s As Double = 0) As Double If N > 0 Then tmp#=sin(x) F1 = F1(tmp#, N - 1, s + tmp#) Else F1 = s End If End Function