Программный элемент поиск / 13 (2)
.docxЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №6
«ПРОГРАММНЫЙ ЭЛЕМЕНТ ПОИСК»
ВАРИАНТ 13
1.1 Словесное описание задачи:
Найти наименьший из элементов с нечётными индексами одномерного массива F размерноси L и присвоить его значение переменной M.
Проанализировать выполнение программы на примере:
F={2; 3; 4; 5; 6; 7; 8; 9}
1.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные:
L – переменная целого типа,
{F} – массив вещественных чисел.
Выходные данные:
M – переменная вещественного типа.
1.3 Математическое описание задачи:
M=F1
Если Fi<M, то M=Fi,
где i=3, 5, 7, … L
1.4 Схема алгоритма решения задачи:
1.5 Листинг кода программы:
Private Sub Command1_Click()
Dim i As Integer, L As Integer, M As Single, F() As Single
L = InputBox("Введите размерность вектора")
ReDim F(1 To L)
Print "{F}=";
For i = 1 To L
F(i) = InputBox("F(" & i & ")")
Print F(i) & " ";
Next
M = F(1)
For i = 3 To L Step 2
If F(i) < M Then
M = F(i)
End If
Next
Print "M=" & M
End Sub
1.6 Выполнение проекта:
2.1 Словесное описание задачи:
Найти и отпечатать один из положительных элементов матрицы K7 размерности M × 3.
Для отладки программы контрольный пример выбрать самостоятельно.
2.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные:
M – переменная целого типа,
{K7} – массив вещественных чисел.
Выходные данные:
K7ij – переменная вещественного типа.
2.3 Математическое описание задачи:
Если K7ij>0, то напечатать K7ij
где i=1, 2, … M; j=1, 2, 3
2.4 Схема алгоритма решения задачи:
2.5 Листинг кода программы:
Private Sub Command1_Click()
Dim M As Integer, f As Boolean, K7() As Single, i As Integer, j As Integer
M = InputBox("Введите количество строк матрицы")
ReDim K7(1 To M, 1 To 3)
Print "{K7}="
For i = 1 To M
For j = 1 To 3
K7(i, j) = InputBox("K7(" & i & ", " & j & ")")
Print K7(i, j),
Next
Next
For i = 1 To M
For j = 1 To 3
If K7(i, j) > 0 And f = False Then
Print K7(i, j)
f = True
End If
Next
Next
If f = False Then
Print "Положительных элементов нет"
End If
End Sub
2.6 Выполнение проекта: