Программный элемент накопление / 28 (2)
.docxЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №7
«ПРОГРАММНЫЙ ЭЛЕМЕНТ НАКОПЛЕНИЕ»
1.1 Словесное описание задачи:
Вычислить и напечатать значение функции:
где N – размерность векторов Z и Q
1.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные: N – переменная целого типа, {Z} – массив вещественных чисел, {Q} – массив вещественных чисел.
Выходные данные: G – переменная вещественного типа.
1.3 Математическое описание задачи:
где i=1, 2 … N
1.4 Схема алгоритма решения задачи:
1.5 Листинг кода программы:
Private Sub Command1_Click()
Dim G As Single, Z() As Single, Q() As Single, N As Integer, i As Integer
N = InputBox("Введите размерность векторов Z и Q")
ReDim Z(1 To N), Q(1 To N)
For i = 1 To N
Z(i) = InputBox("Z(" & i & ")=")
Print " Z(" & i & ")=" & Z(i);
Next
For i = 1 To N
Q(i) = InputBox("Q(" & i & ")=")
Print " Q(" & i & ")=" & Q(i);
Next
G = 0
For i = 1 To N
G = G + Z(i) ^ 3 + Q(i) ^ 3
Next
Print "G=" & G
End Sub
1.6 Выполнение проекта:
2.1 Словесное описание задачи:
Определить произведение элементов чётных столбцов произвольной матрицы.
Проанализировать выполнение программы на примере:
A=
2.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные: M – переменная целого типа, N – переменная целого типа, {A} – массив вещественных чисел.
Выходные данные: P – переменная вещественного типа.
2.3 Математическое описание задачи:
где i=1, 2, 3 …, M; j= 2, 4, 6, …, N.
2.4 Схема алгоритма решения задачи:
2.5 Листинг кода программы:
Private Sub Command1_Click() Dim N As Integer, M As Integer, i As Integer, j As Integer, a() As Single, p As Single M = InputBox("Введите количество строк") N = InputBox("Введите количество столбцов") ReDim a(1 To M, 1 To N) For i = 1 To M For j = 1 To m a(i, j) = InputBox("а(" & i & "," & j & ")=") Print " а(" & i & "," & j & ")=" & a(i, j); Next Print Next p = 1 For j = 1 To M For i = 2 To N Step 2 p = p * a(i, j) Next Next Print "P=" & p End Sub
2.6 Выполнение проекта: