Программный элемент поиск / 4 (2)

Задание №1 1. Словесное описание задачи:

Из элементов со значением I1 одномерного массива M10 размерности N выбрать и напечатать элемент с наибольшим индексом.

Проанализировать выполнение программы на примере:

I1=3; M10={2; 1; 3; 4; 5; 3; 7}

2. Описание постановки задачи

Состав входных и выходных данных:

Входные данные: N – переменная целого типа, I1 – переменная целого типа, {M10} – массив вещественных чисел.

Выходные данные: k – переменная целого типа, M10_k – переменная вещественного типа.

3. Математическое описание задачи: Если M10_i=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

Print

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=M_{1 1} Если M_ij<a, то a=M_ij где i=1, 2, … K; j=1, 2, … N M_{K 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

Print

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

Print

Next

End Sub

6. Отладка кода программы