![](/user_photo/_userpic.png)
Программный элемент накопление / 17 (3)
.docxЗадание №1
1. Постановка задачи
1.1. Словесное описание задачи
Вычислить значение функции:
где
N – размерность вектора А.
Проанализировать выполнение программы на примере вектора: А={2; -6; 0; 4; -4; -2; 2}
1.2. Состав входных и выходных переменных
Входные переменные:
N
– переменная целого типа,
A
= {ai},
где i =
– массив вещественных чисел,
Выходные переменные: W – переменная вещественного типа.
2. Математическая модель задачи
где 1 ≤ i ≤ N с шагом 1.
3. Схема алгоритма
4. Код программы
Private Sub Command1_Click()
Dim A() As Single, W As Single, i As Integer, N As Integer
N = InputBox("N=")
ReDim A(1 To N)
Print "A = ";
For i = 1 To N
A(i) = InputBox("A(" & i & ")=")
Print A(i);
Next
i = 1
Do While i <= N
W = W + A(i) ^ 2 / 2
i = i + 1
Loop
Print "W = " & W
End Sub
5. Отладка программы
Задание №2
1. Постановка задачи
Вычислить произведение абсолютных значений элементов прямоугольной матрицы. Для отладки программы контрольный вариант выбрать самостоятельно.
Входные переменные:
m
– переменная целого типа,
n
– переменная целого типа,
A
= {aij},
где i =
;
j =
– массив вещественных чисел,
Выходные переменные: P – переменная вещественного типа.
2. Математическая модель задачи
3. Схема алгоритма
4. Код программы
Private Sub Command1_Click()
Dim A() As Single, P As Single, i As Integer, m As Integer, j As Single, n As Single
m = InputBox("m=")
n = InputBox("n=")
ReDim A(1 To m, 1 To n)
Print "A = "
For i = 1 To m
For j = 1 To n
A(i, j) = InputBox("A(" & i & ", " & j & ")=")
Print A(i, j),
Next
Next
P = 1
For i = 1 To m
For j = 1 To n
P = P * Abs(A(i, j))
Next
Next
Print "Произведение абсолютных значений P = " & P
End Sub
5. Отладка программы