Скачиваний:
0
Добавлен:
22.01.2025
Размер:
81.41 Кб
Скачать

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

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

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

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

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

ОТЧЕТ

по лабораторной работе 5:

«Накопление»

Вариант 20

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

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

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

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

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

2025

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

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

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

Вычислить среднее арифметическое элементов с нечетными индексами одномерного массива Х размерности L. Проанализировать выполнение программы на примере:

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

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

    1. Входные данные: {X}, L

    2. Выходные данные: S

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

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

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

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

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

Вычислить произведение элементов на главной диагонали квадратной матрицы В размерности N. Для отладки программы контрольный вариант выбрать самостоятельно.

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

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

,

    1. Входные данные: {B}, N

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

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

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

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

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

Соседние файлы в папке ТЕКУЩИЙ КОНТРОЛЬ 1-й семестр (20 Вариант)