6

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

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

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра 1»

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

Дисциплина «ИНФОРМАТИКА»

Отчёт

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

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

ВАРИАНТ 5

Выполнил студент Факультет: Группа:		.
Проверила старший преподаватель		.

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

Задача 1.

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

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

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

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

М={-3; 6; -4; 0; 2; -11; 8}

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

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

М = {ai}, i=1,m - одномерный массив вещественных чисел.

К- размерность массива, целое число.

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

S- сумма элементов с нечетными индексами, целое число.

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

3. Схема алгоритма.

Начало

K, {M}

{M}

S=0

i=1

i=i+1

S = S + M(i)

Да

i<=K

Нет

S

M=M+dM

конец

4. Код программы.

Option Base 1

Private Sub CommandButton1_Click()

Dim k As Integer, S As Integer, M() As Single, i As Integer

k = InputBox("Введите размерность")

ReDim M(1 To k)

Debug.Print "Исходный массив"

For i = 1 To k

M(i) = InputBox("M(i)= ")

Debug.Print M(i);

Next

S = 0

For i = 1 To k step 2

S = S + M(i)

Next

Debug.Print

Debug.Print "Сумма"

Debug.Print S;

End Sub

5. Откладка программы.

Задача 2.

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

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

Определить произведение элементов К-той СТРОКИ матрицы B размерности М*N. Для отладки программы значения К, М, N и матрицы B выбрать самостоятельно.

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

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

M*N – размерность матрицы, целое число.

B={Bij}, i=1,m j=1,n- матрица целых чисел.

K – номер необходимой строки, вещественный тип.

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

P- произведение элементов K-той строки.

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

3. Схема алгоритма.

Начало

K, {M}

P=1

j=1

j=j+1

P=P*B(K,j)

j<=n

P

Конец

4. Код программы.

Option Base 1

Private Sub CommandButton1_Click()

Dim k As Integer

Dim m As Integer

Dim n As Integer

Dim B() As Single

m = InputBox("Введите m")

n = InputBox("Введите n")

k = InputBox("Введите k")

ReDim B(1 To m, 1 To n)

P = 1

For i = 1 To m

For j = 1 To n

B(i, j) = InputBox("Введите матрицу")

Next

Next

For j = 1 To n

P = P * B(k, j)

Next

Debug.Print "Матрица"

For i = 1 To m

For j = 1 To n

Debug.Print B(i, j);

Next

Debug.Print

Next

Debug.Print "P=" & P

End Sub

5. Откладка программы.