Вычислить: S=sinx+sinsinx+....+sinsin...sinx ( sinsinx....sinx}n раз)

@Andrey_Lytov · Регистрация: 13.02.2013

Студворк — интернет-сервис помощи студентам

6. Даны натуральное n, действительное x. Вычислить:
S=sinx+sinsinx+....+sinsin...sinx ( sinsinx....sinx}n раз)
пжста алгоритм и закодировать

@Казанский · 16.02.2013, 14:41

Сделайте по аналогии с Вычислить S=1/sin1+1/sin1+sin2+....+1/sin1+sin2+...+sinN

@Andrey_Lytov · 16.02.2013, 15:06 **[ТС]**

угу спасибо)

@Казанский · 16.02.2013, 21:12

На всякий...

Visual Basic

Function S(ByVal x, N) As Double
Dim i&
For i = 1 To N
    x = Sin(x)
    S = S + x
Next
End Function

@Catstail · 18.02.2013, 20:26

Не могу пройти мимо:

Visual Basic

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

@Andrey_Lytov 0 / 0 / 0 Регистрация: 13.02.2013 Сообщений: 10
		1
	Вычислить: S=sinx+sinsinx+....+sinsin...sinx ( sinsinx....sinx}n раз) 16.02.2013, 14:23. Показов 3252. Ответов 4 Метки нет (Все метки) 6. Даны натуральное n, действительное x. Вычислить: S=sinx+sinsinx+....+sinsin...sinx ( sinsinx....sinx}n раз) пжста алгоритм и закодировать 0

@Казанский 15142 / 6415 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	16.02.2013, 14:41	2
	Сделайте по аналогии с Вычислить S=1/sin1+1/sin1+sin2+....+1/sin1+sin2+...+sinN 1

@Andrey_Lytov 0 / 0 / 0 Регистрация: 13.02.2013 Сообщений: 10
	16.02.2013, 15:06 [ТС]	3
	угу спасибо) 0

	18.02.2013, 20:26

Опции темы