Найти наибольший и наименьший элементы одномерного массива R7 размерности М, страница 2

Задача 2

Определить и напечатать  индексы всех  элементов со значением М четных столбцов матрицы NB8 размерности  KхL. Проанализировать выполнение программы на примере М=2.

Решение

1) Определить и напечатать  индексы всех  элементов со значением М четных столбцов матрицы NB8 размерности KхL .

2) Входные и выходные данные

Входные			Выходные
Имя	Тип	Примечание	Имя	Тип	Примечание
KхL	целое	размерность матрицы	i	целое	Индекс элемента матрицы
NB8()	целое	Элемент матрицы R7	j	целое	Индекс элемента матрицы

3) Математическаямодель

4) Блок-схема алгоритма

5) Программа

Private Sub Command1_Click()

Dim i As Integer, j As Integer, NB8() As Double, S As String, m As Integer, k As Integer, l As Integer

k = Val(InputBox("Введите размерность массивa NB8"))

l = Val(InputBox("Введите размерность массивa NB8"))

ReDim NB8(1 To k, 1 To l)

NB8(k, l) = Ввод(NB8)

For i = 1 To k

For j = 2 To l Step 2

m = 2

If NB8(i, j) = m Then

t = i

p = j

Print "  Элемент матрицы,равный М, NB8(" & i & "," & j & ")=" & NB8(i, j) & vbNewLine & "  с индексами i=" & t & " и j=" & p & vbNewLine

End If

Next

Next

Print "  Значения элементов матрицы NB8: " & vbNewLine

S = Вывод(NB8)

Print S

End Sub

Private Function Ввод(V As Variant) As Variant

Dim i As Integer, j As Integer

For i = 1 To UBound(V, 1)

For j = 1 To UBound(V, 2)

V(i, j) = InputBox("Значение элемента NB8(" & i & ", " & j & ") равно ")

Next

Next

End Function

Private Function Вывод(NB8 As Variant) As String

Dim k As Integer, j As Integer, S As String

For k = LBound(NB8, 1) To UBound(NB8, 1)

For l = LBound(NB8, 2) To UBound(NB8, 2)

S = S & " " & NB8(k, l) & "   "

Next

S = S & vbNewLine

Next

Вывод = S

End Function

6) Пример выполнения