Написать программу, которая вычисляет среднее арифметическое элементов двумерного массива - VB

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

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

Написать программу, которая вычисляет среднее арифметическое элементов двумерного массива без учёта минимального и максимального элементов этого массива. Вывести исходную матрицу, минимальный и максимальный элементы, среднее арифметическое элементов.

Решение задачи: «Написать программу, которая вычисляет среднее арифметическое элементов двумерного массива»

textual
Листинг программы
Sub Main()
    
Dim Arr(1 To 3, 1 To 4) As Double
 
    Arr(1, 1) = 1
    Arr(1, 2) = 2
    Arr(1, 3) = 3
    Arr(1, 4) = 4
 
    Arr(2, 1) = -1
    Arr(2, 2) = -2
    Arr(2, 3) = -3
    Arr(2, 4) = -4
 
    Arr(3, 1) = 11
    Arr(3, 2) = 22
    Arr(3, 3) = 33
    Arr(3, 4) = 44
 
    Avg Arr
 
End Sub
 
Sub Avg(V() As Double)
 
    n1% = UBound(V, 1)
    n2% = UBound(V, 2)
 
    aMax# = V(1, 1)
    aMin# = V(1, 1)
    
    nmax# = 1
    nmin# = 1
        
    S# = 0
    
    For i% = 1 To n1%
        For j% = 1 To n2%
            S# = S# + V(i%, j%)
            If V(i%, j%) = aMax# Then nmax# = nmax# + 1
            If V(i%, j%) = aMin# Then nmin# = nmin# + 1
            If V(i%, j%) > aMax# Then
               aMax# = V(i%, j%)
               nmax# = 1
            End If
            If V(i%, j%) < aMin# Then
               aMin# = V(i%, j%)
               nmin# = 1
            End If
        Next j%
    Next i%
 
    S# = S# - aMax# * nmax# - aMin# * nmin#
    n# = n1% * n2% - nmax# * nmin#
    
    Debug.Print "ÑðåäГ*ГҐГҐ=  "; S# / n#
    Debug.Print "ГЊГ*êñèìóì= "; aMax#
    Debug.Print "ГЊГЁГ*èìóì=  "; aMin#
 
 
End Sub

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


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

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

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