Пример выполнения задачи № 2 «Массивы»

Постановка задачи

Дан двумерный массив (матрица) размером N×M.

Определить сумму элементов, значения которых больше или равны заданному числу F.
Найти местоположения (номера индексов) максимальных элементов массива.
Все элементы с наибольшим значением заменить значением заданного числа F.

Схема алгоритма

Рисунок 5. Схема алгоритма

Исходный текст программы


Dim am(50, 50) As Integer 
Private Sub Command1_Click() 
  n = Val(Text1) 
  m = Val(Text2) 
  am_min = Val(Text3) 
  am_max = Val(Text4) 
  f = Val(Text5) 
  s = 0 
  For i = 0 To n - 1 
    For j = 0 To m - 1 
      am(i, j) = am_min + Int(Rnd * (am_max - am_min)) 
      Stra = Stra + Str(am(i, j)) 
    Next 
    List1.AddItem Stra 
    Stra = "" 
  Next 
  List1.AddItem " " 
  Max = Abs(am(1, 1)) 
  For i = 0 To n - 1 
    For j = 0 To m - 1 
      If am(i, j) >= f Then s = s + am(i, j) 
      If Abs(am(i, j)) > Max Then Max = Abs(am(i, j)) 
    Next 
  Next 
  Label9 = Max 
  Label10 = s 
  For i = 0 To n - 1 
    For j = 0 To m - 1 
      If am(i, j) = Max Then 
        List2.AddItem "am(" + Str(i + 1) + "," + Str(j + 1) + ")" 
        am(i, j) = f 
      End If 
    Next 
  Next 
  List2.AddItem " " 
  Stra = "" 
  For i = 0 To n - 1 
    For j = 0 To m - 1 
      Stra = Stra + Str(am(i, j)) 
    Next 
    List3.AddItem Stra 
    Stra = "" 
  Next 
  List3.AddItem " " 
End Sub 
Private Sub Command2_Click() 
  Task3.Show 
End Sub 
Private Sub Command3_Click() 
  End 
End Sub

Экранная форма программы с примером решения задачи

Экранная форма программы

Рисунок 6. Экранная форма программы

Для ввода значений переменных n (количество строк), m (количество столбцов), A_min и A_max (границы значений элементов массива), F (заданное число) используются текстовые поля (объект TextBox).

Для ввода элементов массива (матрицы) использован генератор случайных чисел (Rnd). Для вывода элементов массива использовано окно списка (объект List).

Результаты решения задачи выводятся:

значение максимального элемента массива и сумма элементов, значения которых больше или равны заданному числу F, - на метки (объект Label);
индексы элементов массива, имеющих наибольшее значение, - в окно списка (объект List);
преобразованный массив (после изменения значений элементов) - в окно списка (объект List).

уход за лицом

Пользователь, раз уж ты добрался до этой строки, ты нашёл тут что-то интересное или полезное для себя. Надеюсь, ты просматривал сайт в браузере Firefox, который один правильно отражает формулы, встречающиеся на страницах. Если тебе понравился контент, помоги сайту материально. Отключи, пожалуйста, блокираторы рекламы и нажми на пару баннеров вверху страницы. Это тебе ничего не будет стоить, увидишь ты только то, что уже искал или ищешь, а сайту ты поможешь оставаться на плаву.