ТЕКУЩИЙ КОНТРОЛЬ 1-й семестр (20 Вариант) / лабораторной работе 06

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

Кафедра «ИНФОРМАЦИОННЫХ И ВЫЧИСЛИТЕЛЬНЫХ СИСТЕМ»

Дисциплина: «Информатика»

ОТЧЕТ

по лабораторной работе № 6:

«ПОИСК»

Вариант 20

Выполнила студентка

Факультета АСБ А.А. Сидорович

Группы АСБ -405-З подпись дата

/07-405-20-АСБз/

Санкт-Петербург

2025

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

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

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

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

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

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

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

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

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

3. Алгоритмизация

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

Private Sub Command1_Click()

Dim i As Integer

Dim K As Integer

Dim P() As Single

Dim Pmax As Single

Dim Pmin As Single

Dim index1 As Integer

Dim index2 As Integer

K = InputBox("Введите размерность массива ")

ReDim P(1 To K)

For i = 1 To K

P(i) = InputBox("Введите массив")

Next

Pmax = P(1)

For i = 1 To K

If Pmax < P(i) Then

Pmax = P(i)

index1 = i

End If

Next

Pmin = P(1)

For i = 1 To K

If Pmin > P(i) Then

Pmin = P(i)

index2 = i

End If

Next

P(index2) = Pmax

P(index1) = Pmin

Print ("Index max=" & index1)

Print ("Index min=" & index2)

End Sub

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

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

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

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

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

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

3. Выходные данные: i, j

2. Алгоритмизация

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim M As Integer

Dim N As Integer

Dim L As Integer

Dim P() As Single

Dim Pmin As Single

Dim index As Integer

M = InputBox("BBEDITE M")

N = InputBox("BBEDITE N")

L = InputBox("BBEDITE L")

ReDim P(1 To M, 1 To N)

For i = 1 To M

For j = 1 To N

P(i, j) = InputBox("ВВЕДИТЕ МАССИВ")

Next

Next

Pmin = P(1, L)

For i = 1 To M

If Pmin > P(i, L) Then

Pmin = P(i, L)

index = i

End If

Next

Print "L=" & L; Tab; "Index min i=" & index

End Sub

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