Поиск максимума. Схема алгоритма

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

2. Пример2 (Поиск Минимума)

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

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

Min=a1
Для i=1,n
если ai<Min, то Min=ai
и если bi<Min, то Min=bi
ПГУПС, каф. ИнИБ
3

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

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

5.

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

6.

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
Print «Минимальный элемент Min=" & Min
End Sub
ПГУПС, каф. ИнИБ
6

7.

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