Программный элемент поиск / 4 (2)
.docxЗадание №1 1. Словесное описание задачи:
Из элементов со значением I1 одномерного массива M10 размерности N выбрать и напечатать элемент с наибольшим индексом.
Проанализировать выполнение программы на примере:
I1=3; M10={2; 1; 3; 4; 5; 3; 7}
2. Описание постановки задачи
Состав входных и выходных данных:
Входные данные: N – переменная целого типа, I1 – переменная целого типа, {M10} – массив вещественных чисел.
Выходные данные: k – переменная целого типа, M10k – переменная вещественного типа.
3. Математическое описание задачи: Если M10i=I1, то k=i, где i=1, 2, … N
1.4 Схема алгоритма решения задачи:
1.5 Листинг кода программы:
Private Sub Command1_Click()
Dim N As Integer, M10() As Single, I1 As Integer, i As Integer, k As Integer, F as boolean
N = InputBox("N=")
ReDim M10(1 To N)
Print "{M10}=";
For i = 1 To N
M10(i) = InputBox("M10(" & i & ")=")
Print M10(i) & " ";
Next
I1 = InputBox("I1=")
F = False
For i = 1 To N
If M10(i) = I1 Then
k = i
F = True
End If
Next
If F = True Then
Print "M10(" & k & ")=" & M10(k)
Else
Print "Ни один не равен " & I1
End If
End Sub
1.6 Отладка кода программы
Задание №2
1. Словесное описание задачи:
Определить нименьший элемент матрицы M размерности K × N, присвоить его значение первому элементу последней строки.
2. Описание постановки задачи
Состав входных и выходных данных:
Входные данные: K – переменная целого типа, N – переменная целого типа, {M} – массив вещественных чисел.
Выходные данные: {M} – массив вещественных чисел.
3. Математическое описание задачи:
a=M1 1 Если Mij<a, то a=Mij где i=1, 2, … K; j=1, 2, … N MK 1=a
4. Схема алгоритма решения задачи:
5. Листинг кода программы:
Private Sub Command1_Click()
Dim M() As Single, K As Integer, N As Integer, i As Integer, j As Integer, a As Single
K = InputBox("K=")
N = InputBox("N=")
ReDim M(1 To K, 1 To N)
Print "M="
For i = 1 To K
For j = 1 To N
M(i, j) = InputBox("M(" & i & ", " & j & ")=")
Print M(i, j),
Next
Next
a = M(1, 1)
For i = 1 To K
For j = 1 To N
If M(i, j) < a Then
a = M(i, j)
End If
Next
Next
M(K, 1) = a
Print "M (изм)="
For i = 1 To K
For j = 1 To N
Print M(i, j),
Next
Next
End Sub
6. Отладка кода программы