Вычислить среднее геометрическое 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)

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


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

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

6   голосов , оценка 4 из 5
Похожие ответы