Программный элемент поиск / 20

Лабораторная работа №6

Цель работы: исследование особенностей реализации программного элемента «ПОИСК»

1. Словесное описание.

Определить и напечатать индексы наибольшего и наименьшего элементов одномерного массива Р размерности К. Найденные элементы поменять местами.

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

2. Математическое описание.

   1. Выбор математической модели

.

2. Входные данные: {P}, K

3. Выходные данные: max, min, {P}

1. Программирование

Private Sub Command1_Click()

Dim min As Integer

Dim max As Integer

Dim i As Integer

Dim K As Integer

Dim P() As Single

Dim a As Single

K = InputBox(" K = ")

ReDim P(1 To K)

Print "{P}=";

For i = 1 To K

P(i) = InputBox(" P = ")

Print P(i);

Next

Print

min = 1

max = 1

For i = 1 To K

If P(min) > P(i) Then min = i

If P(max) < P(i) Then max = i

Next

a = P(max)

P(max) = P(min)

P(min) = a

Print "min: " & min & "; max: " & max

Print "{P}=";

For i = 1 To K

Print P(i);

Next

Print

End Sub

4. Отладочный пример

1. Словесное описание

Напечатать индекс строки минимального элемента L-го столбца матрицы Х размерности М × N.

Для отладки программы значения L, М, N и Х выбрать самостоятельно.

2. Математическое описание

   1. Выбор математической модели

2. Входные данные: {X}, M, N, L

3. Выходные данные: min

2. Программирование

Private Sub Command1_Click()

Dim min As Integer

Dim M As Integer

Dim i As Integer

Dim N As Integer

Dim j As Integer

Dim X() As Single

Dim L As Integer

M = InputBox(" M = ")

N = InputBox(" N = ")

ReDim X(1 To M, 1 To N)

Print "{X}="

For i = 1 To M

For j = 1 To N

X(i, j) = InputBox(" X = ")

Print X(i, j),

Next

Print

Next

L = InputBox(" L = ")

min = 1

For i = 1 To M

If X(min, L) > P(i, L) Then min = i

Next

Print "L = " & L & "; min: " & min

End Sub

2. Отладочный пример