Вычислить среднее геометрическое sin(i-m(i)) - VB
Формулировка задачи:
Пожалуйста помогите разобраться:
Вычислить и округлить до 0,1 элементы массива M=(m(i)), где m(i)=9sin(tgi+k),а i=(1,2...7)
Найти среднее геометрическое sin(i-m(i))
С первой частью задания проблем нет, а вот вторая упорно не получается. Помогите пожалуйста найти ошибку
Решение задачи: «Вычислить среднее геометрическое sin(i-m(i))»
textual
Листинг программы
For i = 1 To 7 M(i - 1) = 9 * Sin(k + Tan(i)) M(i - 1) = Round(M(i - 1), 1) If i = 1 Then Text3.Text = CStr(M(i - 1)) Else Text3.Text = Text3.Text + "; " + CStr(M(i - 1)) M2(i - 1) = Sin((i - M(i - 1))) If M2(i - 1) > 0 Then n = n + 1 prz = prz * M2(i - 1) b = True End If Next i prz = prz ^ (1 / n)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д