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

Задание №1

1. Постановка задачи

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

Определить сумму и среднее арифметическое абсолютных значений элементов одномерного массива P7 размерности K. Проанализировать выполнение программы на примере:

P7={2,1; -3; -6; 2; 0; -17; 3; 8,2}.

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

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

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

P7 – массив данных вещественного типа.

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

Sum – переменная вещественного типа,

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

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

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

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

Private Sub Command1_Click()

Dim K As Integer, P7() As Single, Sum As Single, i As Integer, Sa As Single

K = InputBox("K=")

ReDim P7(1 To K)

Print "P7=";

For i = 1 To K

P7(i) = InputBox("P7(" & i & ")=")

Print P7(i) & " ";

Next

Print

For i = 1 To K

Sum = Sum + Abs(P7(i))

Next

Sa = Sum / K

Print "Sum=" & Sum, "Sa=" & Sa

End Sub

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

Задание №2

1. Постановка задачи

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

Вычислить произведение элементов первой, третьей и четвёртой строк матрицы S6 размерности M×N.

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

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

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

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

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

S6 – массив данных вещественного типа.

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

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

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

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

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

Private Sub Command1_Click()

Dim M As Integer, N As Integer, S6() As Single, Pr As Single, i As Integer, j As Integer

M = InputBox("M=")

N = InputBox("N=")

ReDim S6(1 To M, 1 To N)

Print "S6="

For i = 1 To M

For j = 1 To N

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

Print S6(i, j),

Next

Print

Next

Pr = 1

For i = 1 To N

Pr = Pr * S6(1, i) * S6(3, i) * S6(4, i)

Next

Print "Pr=" & Pr

End Sub

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