Программный элемент поиск / 6

Задание №1

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

Найти положительные элементы вектора P размерности q. Напечатать их порядковые номера.

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

Если P_i > 0, то напечатать i, при 1 ≤ i ≤ q.

3. Разработка алгоритма

4. Код приложения

5. Отладка программы

**

Ручной счёт: Из чисел 0; -1; 2; 7; -100; 9 положительными являются только 2; 7 и 9.

Задание №2

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

Найти максимальный элемент матрицы А размерности k среди элементов главной диагонали этой матрицы.

Входные данные: A – исходная квадратная матрица, массив вещественных чисел, k – размерность матрицы, переменная целого типа.

Выходные данные: A(m, m) – значение максимального элемента, переменная вещественного типа, m – индекс максимального эл. главной диагонали, переменная целого типа.

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

m = 1

Если A_ii > A_{m m}, то m = i, при 2 ≤ i ≤ k с шагом 1.

3. Разработка алгоритма

4. Код приложения

Private Sub Command1_Click()

Dim A() As Single, i As Integer, m As Integer, j As Integer, k As Integer

k = InputBox("k = ")

ReDim A(1 To k, 1 To k)

For i = 1 To k

For j = 1 To k

A(i, j) = InputBox("A(" & i & ", " & j & ")=")

Print A(i, j),

Next

Print

Next

m = 1

For i = 2 To k

If A(i, i) > A(m, m) Then

m = i

End If

Next

Print "Наибольший эл. гл. диагонали: A(" & m & ", " & m & ") = " & A(m, m)

End Sub

5. Отладка программы

**

Ручной счёт: Наибольший элемент главной диагонали матрицы