Пример Поиск Максмума Пример2 Поиск Минимума 1

Пример Поиск Максмума

Пример2 (Поиск Минимума) 1. Постановка задачи Разработать ИТ нахождения наименьшего элемента из двух векторов А и В размерности n. Входные данные: {A}, {В} – одномерные массивы вещественных чисел; n – их размерность, целое число Выходные данные: Min – минимальный элемент, вещ. число. ПГУПС, каф. Ин. ИБ 2

2. Математическая модель Min=a 1 Для i=1, n если ai

Начало 3. Схема алгоритма n, {A}, {B} Min = a 1 i=1 i<=n Нет Min Да Нет bi < Min ai < Min Да Min = ai Нет i=i+1 Да Min = bi Конец ПГУПС, каф. Ин. ИБ 4

Option Base 1 Private Sub Command 1_Click() Dim i As Integer, n As Integer Dim A() As Single, B() As Single, Min As Single n = Input. Box(“Введите размерность векторов”) Re. Dim A(n) Re. Dim B(n) Print “Вектор А” For i = 1 To n A(i) = Input. Box(“Введите элементы вектора A”) Print A(i); Next Print “Вектор B” For i = 1 To n B(i) = Input. Box(" Введите элементы вектора B") Print B(i); Next ПГУПС, каф. Ин. ИБ 5

Min = A(1) For i = 1 To n If A(i) < Min Then Min = A(i) End If If B(i) < Min Then Min = B(i) End If Next Print «Минимальный элемент Min=" & Min End Sub ПГУПС, каф. Ин. ИБ 6

ПГУПС, каф. Ин. ИБ 7