Вычислить и округлить до 0,1 элементы массива М = {m(i)}, где m(i) = 8sin(соs(i + k)) и i= { 1, 2,...7 } ... - VB

Узнай цену своей работы

Формулировка задачи:

Вычислить и округлить до 0,1 элементы массива М = {m(i)}, где m(i) = 8sin(соs(i + k)) и i= { 1, 2,...7 }. Найти среднеарифметическое положительных sin|m(i)|

Решение задачи: «Вычислить и округлить до 0,1 элементы массива М = {m(i)}, где m(i) = 8sin(соs(i + k)) и i= { 1, 2,...7 } ...»

textual
Листинг программы
Private Sub Command1_Click()
Dim m() As Double
Dim sum As Double
Dim sred As Double
Dim rad As Double
Dim x As Double
Dim kol As Double
Cls
sum = 0
rad = 180 / 3.1416
k = 5.71
kol = 0
ReDim m(1 To 7)
For i = 1 To 7
x = Cos((i + k) / rad)
m(i) = Round(8 * Sin(x / rad), 3)
Print m(i)
If Sin(Abs(m(i)) / rad) > 0 Then
sum = sum + Sin(m(i) / rad)
kol = kol + 1
End If
Next i
sred = Round(sum / kol, 3)
Print "Êîëè÷åñòâî ýëåìåГ*òîâ > 0 = "; kol
Print "Srednee "; sred
End Sub

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


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

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

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