Не знаю как найти среднее геометрическое элементов - VB

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

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

"Есть двумерный массив. Нужно найти среднее арифметическое выше главной диагонали и среднее геометрическое выше побочной."

Решение задачи: «Не знаю как найти среднее геометрическое элементов»

textual
Листинг программы
Sub Zero()
   Dim i As Integer, j As Integer, n As Integer
   Const m As Integer = 3
   Dim Mas(1 To m, 1 To m) As Integer
   Dim Sum As Double, Pro As Double
   Dim MedArif As Double, MedGeom As Double
   Dim S As String
   
   Randomize
   For i = 1 To m
        For j = 1 To m
             ' Mas(i, j) = InputBox("Введите " & j & "-й элемент " & i & " -й строки")
              Mas(i, j) = Int(Rnd * 9 + 1)
              S = S & Mas(i, j) & vbTab
        Next j
        S = S & vbCrLf
   Next i
 
   'кол-во элементов выше гл. диаг. и их сумма
   For i = 1 To m
        For j = 1 To m
              If i < j Then
                  n = n + 1
                  Sum = Sum + Mas(i, j)
              End If
        Next j
   Next i
   MedArif = Abs(Sum / n) 'сред.арифм.
 
   'среднее геом. выше побочной вычислял по этой формуле [url]http://www.fxyz.ru/формулы_по_математике/'средние_величины/среднее_геометрическое/[/url]
    n = 0
    Pro = 1
    For i = 1 To m
         For j = 1 To m
             If i + j - 1 < m Then
                  n = n + 1
                  Pro = Pro * Mas(i, j)
             End If
         Next j
    Next i
    MedGeom = Pro ^ Abs(1 / n)
 
    S = S & "Сред. ариф. выше главной диагонали " & MedArif & vbCrLf
    S = S & "Сред. геом. выше побочной  " & MedGeom
    MsgBox S
 
End Sub

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


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

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

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