Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера - VBA

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

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

Доброго времени суток, просьба помочь в решении следующей задачи, по болезни полностью пропустила тему в универе.. Помогите нубу... Заранее огромное спасибо!

Дана матрица вещественных чисел размером N на M. Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера.

Решение задачи: «Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера»

textual
Листинг программы
Option Explicit
 
Private Sub Macro_1000()
    
    Dim x, y, i&, j&, s$, ss$, res#, del&
    Do: x = InputBox("Введите размер матрицы X", , 5): Loop Until IsNumeric(x)
    Do: y = InputBox("Введите размер матрицы Y", , 5): Loop Until IsNumeric(y)
    
    ReDim matrix&(x, y)
    
    'Заполняем матрицу разными числами от 0 до 99
    Randomize
    s = "Построенная матрица:" & vbLf
    For i = 0 To y:  For j = 0 To x
        If i + j = 0 Then
            s = s & " " & vbTab
        ElseIf i = 0 Then
            s = s & "Y" & j & vbTab
        ElseIf j = 0 Then
            s = s & "X" & i & vbTab
        Else
            matrix&(i, j) = Fix(Rnd * 100)
            s = s & matrix&(i, j) & "," & vbTab
        End If
    Next: s = s & vbLf: Next
    del = (y \ 2 + (y Mod 2))
    'За стролбцы берём Y
    For i = 1 To y Step 2: For j = 1 To x
        res = res + matrix&(i, j)
        Next
        ss = ss & "Среднее столбца Y" & i & " = " & res \ del & vbLf
    Next
    s = s & ss
    While MsgBox(s & vbLf & "Понравилась программа ?", 68) = vbNo
    Wend
    End
End Sub

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

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