Прочее / Накопление / Программный элемент НАКОПЛЕНИЕ (17)

Федеральное агентство железнодорожного транспорта

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

высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ императора Александра I»

Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

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

Отчёт

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

на тему:

«Производная алгоритмическая структура накопление»

Вариант 17

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

факультета ТЭС

группы ПТМ-613 ______________ Сызранов И.Ю.

подпись, дата

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

2017

"Программный элемент НАКОПЛЕНИЕ"

Задание №1

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

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

Определить произведение абсолютных значений элементов одноименного массива Х размерности J.

Проанализировать выполнение программы на примере

Х={2,7; 3,2; -6,3; 2; -6; 0,3}

2. Определение состава входных и выходных данных

Входные данные

X{} – одномерный массив чисел вещественного типа

J – целые числа

Выходные данные

P – переменная вещественного типа

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

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

P = 1

Для всех i = от 1 до J

P = P * Abs(X(i))

Следующее i

2. Разработка схемы алгоритма

0

3. Разработка кода приложения

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

Print

P = 1

For i = 1 To J

P = P * Abs(X(i))

Next

Print "P = " & P

End Sub

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

Задание №2

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

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

2. Разработка схемы алгоритма

0

3. Разработка кода приложения

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

Print

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

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

4