Вычислить S=1/sin1+1/sin1+sin2+....+1/sin1+sin2+...+sinN

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

2. Дано натуральное число N. Вычислить.
S=1/sin1+1/sin1+sin2+....+1/sin1+sin2+...+sinN

помогите пжста ,разработать алгоритм и закодировать

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

Visual Basic

Function S(N) As Double
Dim i&, a#
For i = 1 To N
    a = a + Sin(i)
    S = S + 1 / a
Next
End Function

@Andrey_Lytov 0 / 0 / 0 Регистрация: 13.02.2013 Сообщений: 10
		1
	Вычислить S=1/sin1+1/sin1+sin2+....+1/sin1+sin2+...+sinN 16.02.2013, 14:19. Показов 2702. Ответов 1 Метки нет (Все метки) 2. Дано натуральное число N. Вычислить. S=1/sin1+1/sin1+sin2+....+1/sin1+sin2+...+sinN помогите пжста ,разработать алгоритм и закодировать 0

Опции темы