Прочее / Накопление / Программный элемент НАКОПЛЕНИЕ (17)
.docФедеральное агентство железнодорожного транспорта
Федеральное государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ императора Александра I»
Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»
Дисциплина: «Информатика»
Отчёт
по лабораторной работе
на тему:
«Производная алгоритмическая структура накопление»
Вариант 17
Выполнил студент
факультета ТЭС
группы ПТМ-613 ______________ Сызранов И.Ю.
подпись, дата
Санкт-Петербург
2017
"Программный элемент НАКОПЛЕНИЕ"
Задание №1
-
Постановка задачи
-
Словесное описание задачи
-
Определить произведение абсолютных значений элементов одноименного массива Х размерности J.
Проанализировать выполнение программы на примере
Х={2,7; 3,2; -6,3; 2; -6; 0,3}
-
Определение состава входных и выходных данных
Входные данные
X{} – одномерный массив чисел вещественного типа
J – целые числа
Выходные данные
P – переменная вещественного типа
-
Математическое описание
Математическая модель
P = 1
Для всех i = от 1 до J
P = P * Abs(X(i))
Следующее i
-
Разработка схемы алгоритма
0
-
Разработка кода приложения
Private Sub Command1_Click()
Dim X() As Single, J As Integer, i As Integer, P As Single
J = InputBox("J=")
ReDim X(1 To J)
For i = 1 To J
X(i) = InputBox("X(" & i & ")=")
Print X(i);
Next
P = 1
For i = 1 To J
P = P * Abs(X(i))
Next
Print "P = " & P
End Sub
-
Отладочный пример
Задание №2
-
Постановка задачи.
1.1 Словесное описание задачи.
Найти сумму элементов последних К столбцов матрицы Z размерности M*N.
Для отладки программы значения К, М, N и матрицу Z выбрать самостоятельно.
Входные данные
Z{} – матрица чисел вещественного типа
K, M, N – целые числа
Выходные данные
S – переменная вещественного типа
K – целое число
Математическая модель
K = InputBox("K = ")
S = 0
Для всех i = 1 … M и j = N - K + 1 … N
S = S + Z(i, j)
Следующее i, следующее j
-
Разработка схемы алгоритма
0
-
Разработка кода приложения
Private Sub Command1_Click()
Dim Z() As Single, i As Integer, j As Integer, M As Integer, N As Integer, K As Integer
M = InputBox("M=")
N = InputBox("N=")
ReDim Z(1 To M, 1 To N)
For i = 1 To M
For j = 1 To N
Z(i, j) = InputBox("Z(" & i & ", " & j & ")=")
Print Z(i, j);
Next
Next
K = InputBox("K = ")
S = 0
For i = 1 To M
For j = N - K + 1 To N
S = S + Z(i, j)
Next
Next
Print "S = " & S & ", K = " & K
End Sub
-
Отладочный пример