Вычислить значения синусов и косинусов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
