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

4

Богданов Е.А. ЛТ-403 4 вариант

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

Задание 1

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

   1. Выбор математической модели

Найти среднее арифметическое последних К элементов одномер­ного массива Z размерности N.

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

Z={2; -6; -3; О; 2,1; 3; -4,1}

2. Входные данные: K, N, {Z} - вещественные

3. Выходные данные: Sr - вещественные

Задание 2

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

   1. Выбор математической модели

Вычислить значение Х= ,

где L - матрица размерности M*N; К, А - заданные числа.

Для отладки программы значения М, N, А, К и матрицу выбрать самостоятельно.

2. Входные данные: A, М, N, К - вещественные

3. Выходные данные: X - вещественные

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

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

Private Sub Command1_Click()

Dim K As Integer

Dim n As Integer

Dim i As Integer

Dim Z() As Single

Dim Sr As Single

K = InputBox("BBEDITE K")

n = InputBox("BBEDITE n")

ReDim Z(1 To n)

For i = 1 To n

Z(i) = InputBox("BBEDITE Z")

Next

Sr = 0

For i = n – K+1 To n

Sr = Sr + Z(i)

Next

Sr = Sr / K

MsgBox ("Sr=" & Sr)

End Sub

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

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim m As Integer

Dim n As Integer

Dim L() As Single

Dim K As Single

Dim X As Single

m = InputBox("BBEDITE m")

n = InputBox("BBEDITE n")

ReDim L(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

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

Next

Next

X = 0

For i = 1 To m

For j = 1 To n

X = X + (L(i, j) - A)

Next

Next

MsgBox ("X=" & X)

End Sub

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

К=2; А=3.