Накопление 16-вариант / Программный элемент Накопление
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение
высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Факультет «Промышленное и гражданское строительство»
Кафедра «Информатика и информационная безопасность»
Отчет по лабораторной работе
по дисциплине
«Информатика»
на тему: «Программный элемент “Накопление”»
Форма обучения – очная
Вариант: 16
Выполнил обучающийся Курс 1 Группа бтб-709
|
__________________ подпись, дата |
Турапов Ж.М. |
|
|
|
Руководитель
|
__________________ подпись, дата |
Яковлева Н.А
|
Санкт-Петербург
2017
Программный элемент Накопление
1. Найти произведение, элементов с четными индексами одномерного массива Е размерности К.
Проанализировать выполнение программы на примере
Е={2; -3; -6; 8; 4; 16; -11;}
2. Определить сумму элементов К-го столбца матрицы S размерности M*N.
Для отладки программы значения K, M, N и матрицы S выбрать самостоятельно.
-
Постановка задачи:
1.1 Словесное описание задачи
Найти произведение, элементов с четными индексами одномерного массива Е размерности К.
Проанализировать выполнение программы на примере
Е = {2; -3; -6; 8; 4; 16; -11;}
-
описание постановки задачи
Состав входных и выходных данных
Входные данные:
k – количество элементов вектора, целого типа
Е=[Ei], i=1,k – вектор, вещественного типа
Выходные данные:
Е=[Ei], i=1,k – вектор, вещественного типа
p – произведение, вещественного типа
1.3 Разработка математической модели
i=1…k
для всех четных i
1.4 Составление схемы алгоритма
1.5 Программный код
Private Sub Command1_Click()
Dim E() As Single, K As Integer, i As Integer, p As Single
K = InputBox("K=")
ReDim E(1 To K)
For i = 1 To K
E(i) = InputBox("E(" & i & ")")
Print E(i);
Next
p = 1
For i = 2 To K Step 2
p = p * E(i)
Next
Print "p=" & p
End Sub
1.6 Отладка
2. Постановка задачи
2.1 Словесное описание задачи
Определить сумму элементов К-го столбца матрицы S размерности M × N. Для отладки программы значения K, M, N и матрицы S выбрать самостоятельно.
2.2 Описание постановка задачи
Состав входных и выходных данных
Входные данные:
M – количество строк матрицы, целого типа
N – количество столбцов матрицы, целого типа
K – столбец, целого типа
S=[Sij], i=1,M, j=1,N – матрица, вещественного типа
Выходные данные:
S=[Sij], i=1,M, j=1,N – матрица, вещественного типа
sum – сумма, вещественного типа
K – столбец, целого типа
2.3 Разработка Математической модели
i=1…m
для всех i
2.4 Составление схемы алгоритма
2.5 Программный код
Private Sub Command1_Click()
Dim S() As Single, m As Integer, n As Integer, i As Integer, j As Integer, sum As Single, K As Integer
m = InputBox("m=")
n = InputBox("n=")
K = InputBox("k=")
ReDim S(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
S(i, j) = InputBox("S(" & i & "," & j & ")")
Print S(i, j);
Next
Next
sum = 0
For i = 1 To m
sum = sum + S(i, K)
Next
Print "K=" & K & " sum=" & sum
End Sub
2.6 Отладка