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

5

В-407 Брель И.К. 1 вариант

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

Задание 1

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

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

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

где А - одномерный массив размерности n. Проанализировать выполнение программы на примере:

k = 3, А = {2,7; 3; -6; 2; 4}

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

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

Задание 2

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

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

Вычислить среднее геометрическое элементов матрицы B размерности m*n.

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

P=P*A(i,j)

Sg=P/(m*n)

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

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

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

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

Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer

Dim k As Single

Dim A() As Single

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

ReDim A(1 To n)

For i = 1 To n

A(i) = InputBox("Введите массив")

Next

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

Y = 0

For i = 1 To n

Y = Y + (A(i) / (i + k))

Next

Print "Y=" & Y

End Sub

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

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

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

Private Sub Command1_Click()

Dim P As Single

Dim Sg As Single

Dim i As Integer

Dim j As Integer

Dim m As Integer

Dim n As Integer

Dim A() As Single

m = InputBox("Введите количество строк массива")

n = InputBox("Введите количество столбцов массива ")

ReDim A(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

A(i, j) = InputBox("Введите массив")

Next

Next

P = 1

For i = 1 To m

For j = 1 To n

P = P * A(i, j)

Next

Next

Sg = P / (m * n)

Print "Sg=" & Sg

End Sub

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