Программный элемент накопление / 13 (3)

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №7

«ПРОГРАММНЫЙ ЭЛЕМЕНТ НАКОПЛЕНИЕ»

ВАРИАНТ 13

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

Найти среднее геометрическое первых K элементов вектора M размерности N. Полученное значение присвоить K-му элементу вектора.

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

M={2; 3; 1; 10; 7; 2; 4}

1.2 Описание постановки задачи

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

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

K – переменная целого типа,

N – переменная целого типа,

{M} – массив вещественных чисел.

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

{M} – массив вещественных чисел.

1.3 Математическое описание задачи:

P=1

M_k=P

1.4 Схема алгоритма решения задачи:

1.5 Листинг кода программы:

Private Sub Command1_Click()

Dim i As Integer, N As Integer, K As Integer, P As Single, M() As Single

N = InputBox("N=")

ReDim M(1 To N)

Print "{M}=";

For i = 1 To N

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

Print M(i) & " ";

Next

Print

Print

K = InputBox("K=")

P = 1

For i = 1 To K

P = P * M(i)

Next

M(K) = P ^ (1 / K)

Print "{M}=";

For i = 1 To N

Print M(i) & " ";

Next

Print

End Sub

1.6 Выполнение проекта:

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

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

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

2.2 Описание постановки задачи

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

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

K – переменная целого типа,

M – переменная целого типа,

N – переменная целого типа,

{G} – массив вещественных чисел.

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

Gk – переменная вещественного типа.

2.3 Математическое описание задачи:

2.4 Схема алгоритма решения задачи:

2.5 Листинг кода программы:

Private Sub Command1_Click()

Dim M As Integer, K As Integer, G() As Single, N As Integer, i As Integer, j As Integer, Gk as Single

M = InputBox("M=")

K = InputBox("K=")

ReDim G(1 To M, 1 To K)

Print "{G}="

For i = 1 To M

For j = 1 To K

G(i, j) = InputBox("G(" & i & ", " & j & ")")

Print G(i, j),

Next

Print

Next

Print

Print "N=" & N

For i = 1 To M

For j = 1 To N

Gk = Gk + Abs(G(i))

Next

Next

Print "Gk=" & Gk

End Sub

2.6 Выполнение проекта: