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

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

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

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

1.1.2) Состав входных и выходных данных

Входные данные: m – переменная целого типа, Q={q_i}, i= – массив вещественных чисел, k – переменная целого типа, P={p_i}, i= – массив вещественных чисел.

Выходные данные: Qm – переменная целого типа, Q_Qm – переменная вещественного типа, Pm – переменная целого типа, P_Pm – переменная вещественного типа.

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

Qm=1

Если Q_Qm < Q_i, то Qm = i, где 2 ≤ i ≤ m.

Pm=1

Если P_Pm < P_i, то P_Pm = i, где 2 ≤ i ≤ k.

1.3) Схема алгоритма

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

1.5) Код приложения Private Sub Command1_Click()

Dim m As Integer, Q() As Single, k As Single, P() As Integer, i As Integer, Qm As Integer, Pm As Integer

m = InputBox("m=")

ReDim Q(1 To m)

Print "Q=";

For i = 1 To m

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

Print Q(i),

Next

Print

k = InputBox("k=")

ReDim P(1 To k)

Print "P=";

For i = 1 To k

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

Print P(i),

Next

Print

Qm = 1

For i = 2 To m

If Q(Qm) > Q(i) Then

Qm = i

End If

Next

Pm = 1

For i = 2 To k

If P(Pm) < P(i) Then

Pm = i

End If

Next

Print "Минимальный среди элементов вектора Q: Q(" & Qm & ")=" & Q(Qm)

Print "Максимальный среди элементов вектора P: P(" & Pm & ")=" & P(Pm)

End Sub

1.6) Отладка программы

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

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

Напечатать значения и индексы элементов матрицы S размерности n, расположенных ниже главной диагонали и превышающих значение Y.

2.1.2) Состав входных и выходных данных

Входные данные: n – переменная целого типа, S={s_ij}, i= ; j= – массив вещественных чисел, Y – переменная вещественного типа.

Выходные данные: i – переменная целого типа, j – переменная целого типа, S_ij – переменная вещественного типа.

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

Если S_ij > Y и i > j, то напечатать S_ij, i и j,

где 1 ≤ i ≤ n; 1 ≤ j ≤ n.

2.3) Схема алгоритма

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

2.5) Код приложения

Private Sub Command1_Click()

Dim n As Integer, i As Integer, j As Integer, S() As Single, Y As Single

n = InputBox("n=")

ReDim S(1 To n, 1 To n)

Print "S="

For i = 1 To n

For j = 1 To n

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

Print S(i, j),

Next

Print

Next

Y = InputBox("Y=")

Print "Элементы нижней диагонали >" & Y

For i = 2 To n

For j = 1 To i-1

If S(i, j) > Y Then

Print "S(" & i & ", " & j & ")=" & S(i, j)

End If

Next

Next

End Sub

2.6) Отладка программы