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

Сентябрь 6, 2022

Главная
Алгебра
Поиск максимума. Схема алгоритма

Содержание

2. Пример2 (Поиск Минимума) Постановка задачи Разработать ИТ нахождения наименьшего элемента из двух векторов А и В
3. 2. Математическая модель Min=a1 Для i=1,n если ai и если bi ПГУПС, каф. ИнИБ
4. 3. Схема алгоритма ПГУПС, каф. ИнИБ Нет Нет
5. Option Base 1 Private Sub Command1_Click() Dim i As Integer, n As Integer Dim A() As
6. Min = A(1) For i = 1 To n If A(i) Min = A(i) End If
8. Скачать презентацию

Слайд 2

Пример2 (Поиск Минимума)
Постановка задачи
Разработать ИТ нахождения наименьшего
элемента из двух векторов А

и В размерности n.
Входные данные:
{A}, {В} – одномерные массивы вещественных чисел;
n – их размерность, целое число
Выходные данные:
Min – минимальный элемент, вещ. число .

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

Слайд 3

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

то Min=bi

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

Слайд 4

3. Схема алгоритма
ПГУПС, каф. ИнИБ
Нет
Нет

Слайд 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

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

Слайд 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

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