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

Задание №1

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

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

Найти элементы одномерного массива Mns размерности m, не превышающие величину b. Напечатать их значения и индексы.

1.2. Состав входных и выходных данных:

Входные данные:

m – переменная целого типа,

b – переменная вещественного типа,

Mns – массив данных вещественного типа.

Выходные данные:

Mns_i – переменная вещественного типа.

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

Если Mns_i≤b, то напечатать i и Mns_i,

где i=1, 2, 3 … m.

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

4. Код программы

Private Sub Command1_Click()

Dim m As Integer, Mns() As Single, i As Integer, b As Single, F as Boolean

m = InputBox("m=")

ReDim Mns(1 To m)

Print "Mns=";

For i = 1 To m

Mns(i) = InputBox("Mns(" & i & ")=")

Print Mns(i) & " ";

Next

Print

b = InputBox("b=")

F = False

Print "Элементы не превышающие " & b

Print "Mns(i)", "i"

For i = 1 To m

If Mns(i) <= b Then

Print Mns(i), i

F = True

End If

Next

If F = False Then

Print "Все элементы >" & b

End If

End Sub

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

Задание №2

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

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

Найти максимальное значение q-го столбца и m-й строки квадратной матрицы Z размерности k.

1.2. Состав входных и выходных данных:

Входные данные:

k – переменная целого типа,

Z – массив данных вещественного типа,

q – переменная целого типа,

m – переменная целого типа.

Выходные данные:

maxq – переменная вещественного типа,

maxm – переменная вещественного типа.

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

max_q=Z_{1 q}

max_m=Z_{m 1}

Если Z_{i q} >max_q, то max_q=Z_{i q},

Если Z_{m i} >max_m, то max_m=Z_{m i},

где i=1, 2, 3 … k.

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

4. Код программы

Private Sub Command1_Click()

Dim k As Integer, Z() As Single, i As Integer, j As Integer, m As Integer, q As Integer

k = InputBox("k=")

ReDim Z(1 To k, 1 To k)

Print "Z="

For i = 1 To k

For j = 1 To k

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

Print Z(i, j),

Next

Print

Next

q = InputBox("q=")

m = InputBox("m=")

maxq = Z(1, q)

maxm = Z(m, 1)

For i = 1 To k

If Z(i, q) > maxq Then

maxq = Z(i, q)

End If

If Z(m, i) > maxm Then

maxm = Z(m, i)

End If

Next

Print "Максимальное значение " & q & "-го столбца=" & maxq

Print " Максимальное значение " & m & "-й строки=" & maxm

End Sub

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