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

Задание 1

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

Напечатать значения и порядковые номера элементов одномерного массива St размерности t из промежутка [a; b].

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

t – количество элементов вектора, целого типа

a – начало промежутка, вещественного типа

b – конец промежутка, вещественного типа

{St} – вектор, вещественного типа

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

a – начало промежутка, вещественного типа

b – конец промежутка, вещественного типа

{St} – вектор, вещественного типа

i – индекс, целого типа

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

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

4. Визуальная часть проекта

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

Private Sub Command1_Click()

Dim St() As Single, t As Integer, i As Integer, a As Single, b As Single, Flag As Boolean

t = InputBox("Введите t")

ReDim St(1 To t)

Print "St="

For i = 1 To t

St(i) = InputBox("Введите St(" & i & ")")

Print St(i);

Next

Print

a = InputBox("Введите a")

b = InputBox("Введите b")

Print "Искомый промежуток [" & a & "; " & b & "]"

Flag = False

For i = 1 To t

If a <= St(i) And St(i) <= b Then

Print "St(" & i & ")=" & St(i)

Flag = True

End If

Next

If Flag = False Then

Print "Элементы не найдены"

End If

End Sub

6. Отладка

Задание 2

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

Определить и напечатать индексы элементов вектора Y, значения которых равны минимальному значению элемента матрицы Z

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

m – количество строк матрицы, целого типа

n – количество столбцов матрицы, целого типа

k – количество элементов вектора, целого типа

{Z} – матрица, вещественного типа

{Y} – вектор, вещественного типа

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

{Z} – матрица, вещественного типа

{Y} – вектор, вещественного типа

min – минимальное матрицы Z, вещественного типа

i – индексы вектора Y равные минимальному матрицы Z, целого типа

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

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

4. Визуальная часть проекта

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

Private Sub Command1_Click()

Dim Z() As Single, m As Integer, Flag As Boolean, n As Integer, i As Integer, j As Integer, Y() As Single, k As Integer

m = InputBox("Введите m")

n = InputBox("Введите n")

Print "Z"

ReDim Z(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

Z(i, j) = InputBox("Введите Z(" & i & ", " & j & ")")

Print Z(i, j);

Next

Print

Next

k = InputBox("Введите k")

Print "Y"

ReDim Y(1 To k)

For i = 1 To k

Y(i) = InputBox("Y(" & i & ")")

Print Y(i);

Next

Print

Min = Z(1, 1)

For i = 1 To m

For j = 1 To n

If Min > Z(i, j) Then

Min = Z(i, j)

End If

Next

Next

Flag = False

Print "Индексы элементов, равные " & Min & ": ";

For i = 1 To k

If Y(i) = Min Then

Print i;

Flag = True

End If

Next

If Flag = False Then

Print "Элементы не найдены"

End If

Print

End Sub

6. Отладка