Вычислить значения синусов и косинусов - VB

Узнай цену своей работы

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

1. Дано натуральное число N . Вычислить cos1 cos2 cosN ----- * ------ * … * ____ sin1 sin2 sinN

Решение задачи: «Вычислить значения синусов и косинусов»

textual
Листинг программы 
Function Sum_sin_cos(n As Integer) As Double
   If n = 1 Then
      Sum_sin_cos = Cos(1) / Sin(1)
   Else
      Sum_sin_cos = (Cos(n) / Sin(n)) * Sum_sin_cos(n - 1)
   End If
End Function
 
Sub Test()
    Debug.Print Sum_sin_cos(10)
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

13   голосов , оценка 3.923 из 5