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

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

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

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Кафедра «Информационные и вычислительные системы»

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

ОТЧЕТ

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

«Поиск»

Вариант 26

.

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

факультета ПГС

группы УЗС-309 Павлов Д.Е.

Проверил: Тарбаева Е.А.

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

2024

Задача №1

1. Постановка задачи :

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

Определить индексы элементов вектора Z размерности N, значение которых равны К или М.

Проанализировать выполнение программы на примере: К=2, M=8;

1.2 Состав входных и выходных переменных:

Входные переменные:

n – количество элементов вектора целого типа

{z} – вектор целого типа

K – значения элемента целого типа

m – значения элемента целого типа

Выходные переменные:

{z} – вектор вещественного типа

2. Математическая модель:

i=1…n

3. Схема алгоритма:

4. Исходный код:

Private Sub Command1_Click()

Dim N As Integer, K As Single, M As Single, Z() As Single, i As Integer, x As Integer, y As Integer

N = InputBox("N")

ReDim Z(1 To N)

For i = 1 To N

Z(i) = InputBox("Z")

Next

x = 0

y = 0

K = InputBox("K")

M = InputBox("M")

For i = 1 To N

If Z(i) = K Then

Print "K:";

Print i;

x = 1

End If

Next

Print

For i = 1 To N

If Z(i) = M Then

Print "M:";

Print i;

y = 1

End If

Next

Print

If x = 0 Then

Print "Нет элементов равных К"

End If

If y = 0 Then

Print " Нет элементов равных M"

End If

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. Отладка программы: