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

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

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

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

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

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

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

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

ОТЧЕТ

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

«Наколение»

Вариант 11

.

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

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

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

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

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

2024

Задание №1

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

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

2. 1. Определить сумму абсолютных значений элементов одномерного массива Р7 размерности К. Полученное значение присвоить последнему элементу вектора. Проанализировать выполнение программы на примере

3. Р7={2,1; -3; -6; 2; 0; -17; З; 8,2}

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

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

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

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

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

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

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

Р7={2,1; -3; -6; 2; 0; -17; З; 8,2}

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

7. Исходный код (код программы):

Private Sub CommandButton1_Click()

Dim P7() As Single, K As Integer, i As Integer, sum As Single, s As String

K = InputBox("K")

s = ""

s = s & "P7" & Chr(13)

ReDim P7(1 To K)

For i = 1 To K

P7(i) = InputBox("P7(" & i & ")")

s = s & P7(i) & " "

Next

s = s & Chr(13)

sum = 0

For i = 1 To K

sum = sum + Abs(P7(i))

Next

P7(K) = sum

s = s & "P7 после" & Chr(13)

For i = 1 To K

s = s & P7(i) & " "

Next

MsgBox s

End Sub

8. Откладка программы:

Задание №2

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

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

2. Вычислить произведение элементов первой, третьей и четвертой строк матрицы S6 размерности М*N. Проанализировать выполнение программы на примере:

2. ,

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

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

M - количество строк матрицы целого типа

N – количество столбцов матрицы целого типа

{S6} – матрица вещественного типа

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

{S6} – матрица вещественного типа

p – произведение, вещественного типа

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

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

4. Исходный код (код программы):

Private Sub CommandButton1_Click()

Dim S6() As Single, m As Integer, n As Integer, i As Integer, j As Integer, p As Single, s As String

m = InputBox("m")

n = InputBox("n")

s = ""

s = s & "S6" & Chr(13)

ReDim S6(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

S6(i, j) = InputBox("S6(" & i & "," & j & ")")

s = s & S6(i, j) & " "

Next

s = s & Chr(13)

Next

s = s & Chr(13)

p = 1

For j = 1 To n

p = p * S6(1, j) * S6(3, j) * S6(4, j)

Next

s = s & "p=" & p

MsgBox s

End Sub

5. Откладка программы: