
ТЕКУЩИЙ КОНТРОЛЬ 1-й семестр (20 Вариант) / лабораторной работе 05
.doc
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫХ И ВЫЧИСЛИТЕЛЬНЫХ СИСТЕМ»
Дисциплина: «Информатика»
ОТЧЕТ
по лабораторной работе № 5:
«Накопление»
Вариант 20
Выполнила студентка
Факультета АСБ А.А. Сидорович
Группы АСБ -405-З подпись дата
/07-405-20-АСБз/
Санкт-Петербург
2025
Лабораторная работа №5
Цель работы: исследование особенностей реализации программного элемента «НАКОПЛЕНИЕ»
Словесное описание.
Вычислить среднее
арифметическое элементов с нечетными
индексами одномерного массива Х
размерности L.
Проанализировать выполнение программы
на примере:
Математическое описание.
Выбор математической модели
Входные данные: {X}, L
Выходные данные: S
Алгоритмизация
Программирование
Private Sub Command1_Click()
Dim X() As Single
Dim L As Integer
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim S1 As Single
Dim S As Single
L = InputBox("BBEDITE L")
ReDim X(1 To L)
For i = 1 To L
X(i) = InputBox("BBEDITE X")
Next
S1 = 0
n = 0
For i = 1 To L Step 2
S1 = S1 + X(i)
n = n + 1
Next
S = S1 / n
Print "S=" & S
End Sub
Отладочный пример
Словесное описание
Вычислить произведение элементов на главной диагонали квадратной матрицы В размерности N. Для отладки программы контрольный вариант выбрать самостоятельно.
Математическое описание
Выбор математической модели
,
Входные данные: {B}, N
Выходные данные: P
Алгоритмизация
Программирование
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim B() As Single
Dim P As Single
n = InputBox("Введите размерность массива ")
ReDim B(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
B(i, j) = InputBox("Введите массив")
Next
Next
P = 1
For i = 1 To n
j = i
P = P * B(i, j)
Next
B(n, n) = P
MsgBox ("P=" & P)
End Sub
О
тладочный пример