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