Лабораторные по Информатике / Лабораторная работа Накопление 4 / Вариант 5

6

Бурдейный И.Ю. ЛТ-403 Вариант 5

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

ЗАДАНИЕ 1

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

Определить среднее арифметическое элементов с нечетными индексами одномерного массива D размерности К.

Для отладки программы контрольный вариант выбрать самостоя­тельно.

1. Входные данные: {D}; K – вещественного типа

2. Выходные данные: Sr – вещественного типа

1. Алгоритмизация

0

1

2

3

4

да

нет

5

6

7

9

да

нет

8

11

12

10

13

15

14

3. Программирование

Private Sub Command1_Click()

Dim D() As Single

Dim K As Single

Dim Sr As Single

Dim i As Integer

Dim x As Integer

K = InputBox("BBEDITE K")

ReDim D(1 To K)

For i = 1 To K

D(i) = InputBox("BBEDITE D")

Next

x = 0

Sr = 0

For i = 1 To K Step 2

Sr = Sr + D(i)

x = x + 1

Next

Sr = Sr / x

Print "Sr=" & Sr

End Sub

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

D={ 2, 4, 6, 7, 8, 7, 5}

ЗАДАНИЕ 2

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

Вычислить произведение первой и третьей строк произвольной матрицы. Проанализировать выполнение программы на примере

B=

2. Алгоритмизация

2. Программирование

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim m As Integer

Dim n As Integer

Dim B() As Single

m = InputBox("BBEDITE m")

n = InputBox("BBEDITE n")

ReDim B(1 To m, 1 To n)

P = 1

For i = 1 To m

For j = 1 To n

B(i, j) = InputBox("BBEDITE MASSIV ")

Next

Next

For j = 1 To n

P = P * B(1, j)

Next

For j = 1 To n

P = P * B(3, j)

Next

Print "P=" & P

End Sub

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