Выбор и печать элемента с наибольшим индексом. Определение наименьшего элемента матрицы М размерности К *N

Задание №1

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

1.1 Словесное описание задачи

Из элементов со значением I1 одномерного массива М10  размерности  N выбрать и напечатать  элемент с наибольшим индексом. Проанализировать выполнение программы на примере:

I1=3            М10 = {2, 1, 3, 4, 5, 3, 7}

1.2 Определение состава выходных данных

j – наибольший индекс элемента, равного значению l1; целое положительное число

Сообщение об отсутствии элементов, равных значению l1

1.3 Определение состава входных данных

N – размерность массива; целое положительное число

M10 = [M_j] , где j = 1,2,…,N; M_j – вещественный тип

l1 – ключ поиска, вещественный тип

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

i = 0.

 В цикле: если M_j = l1, то i = j , где j = 1,2,…,N.

 После цикла: вывод i.

Если ни один из элементов массива не равен значению l1, то вывод сообщения

“Массив не имеет элементов, соответствующих введенному значению”

3 Схема алгоритма задачи

4 Создание приложения

4.1 Создание формы

Рис.1

4.2 Создание кода приложения

Private Sub Cmd1_Click ()

Dim l1 As Integer, M () As Single, j As Integer, N As Integer, i As Integer

N = InputBox ("Введите размерность одномерного массива")

l1 = InputBox ("Введите элемент с необходимым значением")

Print

Print "M10 = {";

i = 0

ReDim M (1 To N)

For j = 1 To N

    M (j) = InputBox (" Введите элемент массива M (" & j & ")")

    Print M (j & ",");

    If l1 = M (j) Then

        i = j

    End If

Next j

Print "}"

Print "Введенное значение равно" & l1

If i > 0 Then

    Print

    Print  "Наибольший индекс элемента массива M10, соответствующего введенному значению, равен" & i

Else

    Print "Массив не имеет элементов, соответствующих введенному значению"

End If

End Sub

5 Сохранение проекта

Файлы сохраняются  под именем “560404 Бурлаков Олег Викторович 1” в папке с именем “Лаб. раб. №5”

6 Отладка

Рис.2

Задание №2

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

1.1 Словесное описание задачи

Определить наименьший элемент матрицы  М размерности К *N ,присвоить его значение первому элементу последней строки.

М=

1.2 Определение состава выходных данных

min – минимальный элемент матрицы M; вещественный тип

q, r – индексы минимального элемента матрицы M; целые положительные числа.

M* - измененная матрица M.

1.3 Определение состава входных данных

K, N – размерность матрицы M; целые положительные числа.

M = [M (i, j)], где i = 1,2,…,K; j = 1,2,…,N; M (i, j) – вещественный тип.

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

min = M (1, 1)

Цикл:

Для i = 1,2,…,K; j = 1,2,…,N.

Если M (i, j) < min, то min = M (i, j), q = i, r = j.

За циклом:

Вывод min, q, r.

Цикл:

Для i = 1,2,…,K; j = 1,2,…,N.

M (K, 1) = min

Вывод M (i, j)

3 Схема алгоритма задачи

4 Создание приложения

4.1 Создание формы

Рис.3

4.2 Создание кода приложения

Private Sub Cmd1_Click ()

Dim M () As Single, K As Integer, N  As Integer, i As Integer, j As Integer, min As Single

Dim q As Integer, r As Integer

K = InputBox ("Введите количество строк матрицы M")

N = InputBox ("Введите количество столбцов матрицы M")

Print

Print "Матрица M:"

ReDim M (K, N)

For i = 1 To K

Print "            ";

For j = 1 To N

    M (i, j) = InputBox ("Введите элемент матрицы M (" & i & "," & j & ")")

    Print M (i, j);

Next j

Print

Next i

Print

min = M (1, 1)

For i = 1 To K

For j = 1 To N

    If min > M (i, j) Then

        min = M (i, j)

        q = i

        r = j

    End If

Next j

Next i

Print "Наименьший элемент матрицы M (" & q & ", " & r & ") равен" & min

Print

Print "Новая матрица M*:"

For i = 1 To K

Print "            ";

For j = 1 To N

    M (K, 1) = min

    Print M (i, j);

Next j

Print

Next i

End Sub

5 Сохранение проекта

Файлы сохраняются  под именем “560404 Бурлаков Олег Викторович 2” в папке с именем “Лаб. раб. №5”

6 Отладка

Рис.4