Лабораторная работа №5.Программный элемент Поис..


Лабораторная работа № 5: Программный элемент Поиск.
Постановка задачи:
В каждом варианте задания необходимо предложенные задачи подготовить к решению на ЭВМ: выполнить постановку задачи, разработать математическую модель, схему алгоритма и программу.
Рассчитать контрольные варианты и отладить программы.
1. Найти наименьший по модулю элемент одномерного массива Е размерности К. Присвоить значение найденного элемента переменной N9, а значение индекса переменной IM.
Проанализировать выполнение программы на примере:
Е={-20; -6,3; 7; -1; 2}
2. Определить и напечатать индексы положительных элементов произвольной матрицы.
Для отладки программы контрольный вариант выбрать самостоятельно.
Словесное описание:
Найти наименьший по модулю элемент одномерного массива Е размерности К. Присвоить значение найденного элемента переменной N9, а значение индекса переменной IM.
Проанализировать выполнение программы на примере:
E=-20;-6,3;7;-1;2Состав входных и выходных данных:
Входные данные:
K – размерность одномерного массива.
E – одномерный массив.
Выходные данные:
N9 – минимальный элемент массива по модулю.
IM – индекс минимального элемента.
Математическое описание задачи:
E= e1; e2; e3;…; eKN9=ei – минимальный элемент массива по модулю.
IM=i – индекс минимального элемента.
Схема алгоритма решения задачи:

Начало

k, E
N9= E1
IM=1

i=2

i≤k Нет N9=EIM N9, IM

i=i+1 Да
Нет
Ei<N9 Конец
Да
N9=Ei

IM=iЛистинг кода программы:
Option Base 1
Private Sub Command1_Click()Dim k As Integer, N9 As Single, IM As Single, i As Integer
Dim E() As Single
k = Text1.Text
ReDim E(k)
For i = 1 To k
E(i) = InputBox("Введите" & i & "-й элемент массива.", "Заполнение")
Next
N9 = Abs(E(1))
IM = 1
For i = 2 To k
If Abs(E(i)) < N9 Then
N9 = Abs(E(i))
IM = i
End If
Next
N9 = E(IM)
Print "Минимальное по модулю значение массива N9 = " & N9
Print "Индекс этого значения IM = " & IM
End SubОтладочный пример:



Словесное описание:
Определить и напечатать индексы положительных элементов произвольной матрицы.
Для отладки программы контрольный вариант выбрать самостоятельно.
Состав входных и выходных данных:
Входные данные:
m×n – размерность матрицы.
Am×n – матрица.
Выходные данные:
i и j, если aij>0Математическая модель:
i; j при aij>0"Нет положит. элементов", если все aij<0 Схема обработки алгоритма программы:

Начало

m, n, A

k=0
"В матрице
i=1 нет положит.
элементов"
Да
Нет Нет
i≤m k=0 Да

i=i+1 j=1 Конец


Нет
j≤n
Да j=j+1
Нет
aij>0 Да

i, j


k=1
Листинг кода программы:
Option Base 1
Private Sub Command1_Click()Dim m As Integer, n As Integer, i As Integer, j As Integer, k As Integer
Dim A() As Single
m = Text1.Text
n = Text2.Text
ReDim A(m, n)
k = 0
For i = 1 To m
For j = 1 To n
A(i, j) = InputBox("Введите значение элемента на " & i & "-й строке и " & j & "-м столбце.", "Инструкция")
If A(i, j) > 0 Then
k = 1
List1.AddItem ("i=" + Format(i, "#") + ", j=" + Format(j, "#"))
End If
Next
Next
If k = 0 Then
List1.AddItem ("В матрице нет")
List1.AddItem ("положительных")
List1.AddItem ("элементов.")End If
End SubОтладочный пример:
1)


2)


Приложенные файлы

  • docx 10858823
    Размер файла: 396 kB Загрузок: 0

Добавить комментарий