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

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №6

«ПРОГРАММНЫЙ ЭЛЕМЕНТ ПОИСК»

ВАРИАНТ 13

1.1 Словесное описание задачи:

Найти наименьший из элементов с нечётными индексами одномерного массива F размерноси L и присвоить его значение переменной M.

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

F={2; 3; 4; 5; 6; 7; 8; 9}

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

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

Входные данные:

L – переменная целого типа,

{F} – массив вещественных чисел.

Выходные данные:

M – переменная вещественного типа.

1.3 Математическое описание задачи:

M=F₁

Если F_i<M, то M=F_i,

где 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

Print

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} – массив вещественных чисел.

Выходные данные:

K7_ij – переменная вещественного типа.

2.3 Математическое описание задачи:

Если K7_ij>0, то напечатать K7_ij

где 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

Print

Next

Print

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 Выполнение проекта: