Программный элемент накопление / 13
.docx
Задание №1
1. Постановка задачи
1.1. Словесное описание задачи:
Напечатать произведение сумм соответсвтующих элементов векторов A и B размерности N.
Проанализировать выполнение программы на примере:
A={2; -6,3; 4,5}; B={1; -1; 2}.
1.2. Состав входных и выходных данных:
Входные данные:
N – переменная целого типа,
A – массив данных вещественного типа,
B – массив данных вещественного типа.
Выходные данные:
p – переменная вещественного типа.
2. Математическая модель задачи:
где i=1, 2, 3 … N.
3. Схема алгоритма
4. Код программы
Private Sub Command1_Click()
Dim N As Integer, A() As Single, B() As Single, i As Integer, p As Single
N = InputBox("N=")
ReDim A(1 To N), B(1 To N)
Print "A=";
For i = 1 To N
A(i) = InputBox("A(" & i & ")=")
Print A(i) & " ";
Next
Print "B=";
For i = 1 To N
B(i) = InputBox("B(" & i & ")=")
Print B(i) & " ";
Next
p = 1
For i = 1 To m
p = p * (A(i) + B(i))
Next
Print "p=" & p
End Sub
5. Отладка кода программы
Задание №2
1. Постановка задачи
1.1. Словесное описание задачи:
Вычислить сумму абсолютных элементов матрицы
1.2. Состав входных и выходных данных:
Входные данные:
W – массив данных вещественного типа,
M – переменная целого типа,
N – переменная целого типа.
Выходные данные:
S – переменная вещественного типа.
2. Математическая модель задачи:
где i=1, 2, 3 … M; j=1, 2, 3 … N.
3. Схема алгоритма
4. Код программы
Private Sub Command1_Click()
Dim i As Integer, j As Integer, W() As Single, M As Integer, N As Integer, S As Single
M = InputBox("M=")
N = InputBox("N=")
ReDim W(1 To M, 1 To N)
Print "W="
For i = 1 To M
For j = 1 To N
W(i, j) = InputBox("W(" & i & ", " & j & ")=")
Print W(i, j),
Next
Next
For i = 1 To M
For j = 1 To N
S = S + Abs(W(i, j))
Next
Next
Print "S=" & S
End Sub
5. Отладка кода программы