Лабораторная работа №5
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
ОТЧЕТ
о лабораторной работе №6 на тему:
«Поиск»
Вариант 26
.
Выполнил студент
факультета ПГС
группы УЗС-309 Павлов Д.Е.
Проверил: Тарбаева Е.А.
Санкт-Петербург
2024
Задача №1
Постановка задачи :
Словесное описание задачи:
Определить индексы элементов вектора Z размерности N, значение которых равны К или М. Проанализировать выполнение программы на примере: К=2, M=8;
1.2 Состав входных и выходных переменных:
Входные переменные:
n – количество элементов вектора целого типа
{z} – вектор целого типа
K – значения элемента целого типа
m – значения элемента целого типа
Выходные переменные:
{z} – вектор вещественного типа
Z(i) – индекс элемента целого типа
2. Математическая модель:
i=1…n
Z(i) = K
Z(i) = M
Для всех i
3. Схема алгоритма:
Да
Нет
Да
Нет
4. Исходный код:
Private Sub CommandButton1_Click()
Dim N As Integer, K As Single, M As Single, i As Integer, Z() As Single
N = InputBox("N")
ReDim Z(1 To N)
For i = 1 To N
Z(i) = InputBox("Z")
Next
K = InputBox("K")
M = InputBox("M")
For i = 1 To N
If Z(i) = K Then
MsgBox "z(" & i & ")=" & Z(i)
End If
Next
For i = 1 To N
If Z(i) = M Then
MsgBox "z(" & i & ")=" & Z(i)
End If
Next
End Sub
5. Отладка программы:
Задача №2
1. Словесное описание задачи
Определить наибольший элемент, расположенный на главной диагонали квадратной матрицы Y размерности М. Найденное значение присвоить последнему элементу матрицы.
Y
=
1.2
Описание постановки задачи:
Состав входных и выходных переменных:
Входные переменные:
m – количество элементов матрицы целого типа
{y} – матрица целого типа
Выходные переменные:
{y} – матрица целого типа
Ym – наибольший элемент целого типа
2. Математической модель:
i=1…m
Ym=y(1,1)
Для всех i
3. Схема алгоритма:
4. Исходный код:
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, m As Integer, y() As Single, ym As Single
m = InputBox("m")
ReDim y(1 To m, 1 To m)
For i = 1 To M
For j = 1 To M
y(i, j) = InputBox("y")
Next
Next
ym = Y(1, 1)
For i = 1 To m
If ym < y(i, i) Then
ym = Y(i, i)
End If
Next
y(m, m) = ym
MsgBox ("ym=" & ym)
End Sub
5. Отладка программы:
