Вычислить значения синусов и косинусов - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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