Накопление 16-вариант / Программный элемент Накопление

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

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

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

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Факультет «Промышленное и гражданское строительство»

Кафедра «Информатика и информационная безопасность»

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

по дисциплине

«Информатика»

на тему: «Программный элемент “Накопление”»

Форма обучения – очная

Вариант: 16

Выполнил обучающийся Курс 1 Группа бтб-709	__________________ подпись, дата	Турапов Ж.М.
Руководитель	__________________ подпись, дата	Яковлева Н.А

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

2017

Программный элемент Накопление

1. Найти произведение, элементов с четными индексами одномерного массива Е размерности К.

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

Е={2; -3; -6; 8; 4; 16; -11;}

2. Определить сумму элементов К-го столбца матрицы S размерности M*N.

Для отладки программы значения K, M, N и матрицы S выбрать самостоятельно.

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

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

Найти произведение, элементов с четными индексами одномерного массива Е размерности К.

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

Е = {2; -3; -6; 8; 4; 16; -11;}

2. описание постановки задачи

Состав входных и выходных данных

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

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

Print

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

Print

Next

Print

sum = 0

For i = 1 To m

sum = sum + S(i, K)

Next

Print "K=" & K & " sum=" & sum

End Sub

2.6 Отладка