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

Задание 1

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

Найти среднее арифметическое первых К элементов вектора М размерности N. Полученное значение ПРИСВОИТЬ K-МУ элементу вектора.

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

М={2; -3; 1; 10; 7; 2; 4}

1.2. Состав входных и выходных переменных

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

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

M = – массив вещественных чисел,

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

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

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

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

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

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

Private Sub Command1_Click()

Dim k As Integer, i As Integer, M() As Single, Sg As Single, N As Integer

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

ReDim M(1 To N)

For i = 1 To N

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

Print M(i);

Next

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

S = 0

For i = 1 To N

S = S + M(i)

Next

M(k) = S / k

Print

For i = 1 To N

Print M(i);

Next

End Sub

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

Задание 2

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

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

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

1.2. Состав входных и выходных переменных

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

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

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

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim k As Integer, i As Integer, j As Integer, G() As Single, Gk As Single, m As Integer, n As Integer

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

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

ReDim G(1 To k, 1 To m)

For i = 1 To k

For i = 1 To m

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

Print G(i, j),

Next

Print

Next

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

Gk = 0

For i = 1 To n

For j = 1 To m

Gk = Gk + Abs(G(i, j))

Next

Next

Print "K=" & k, "Gk=" & Gk

End Sub

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