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