Программный элемент накопление / 7
.docxЗадание №1
1 Постановка задачи
1. Определить произведение абсолютных значений элементов одномерного массива Х размерности J.
Проанализировать выполнение программы на примере:
Х = {2,7; 3,2; –6,3; 2; –6; 0,3}.
Входные данные: J – размерность вектора, переменная целого типа, X – исходный вектор, массив вещественного типа.
Выходные данные: P – произведение абсолютных значений вектора, переменная вещественного типа.
2 Математическая модель
3 Разработка алгоритма
4 Разработка визуальной части проекта
На форме располагаем только командную кнопку Command1. В свойстве Caption кнопки записываем «Вычислить».
5 Код приложения
Private Sub Command1_Click()
Dim X() As Single, J As Integer, P As Single, i As Integer
J = InputBox("J=", , 6)
ReDim X(1 to J)
Print "{X}=";
For i = 1 To J
X(i) = InputBox("X(" & i & ")=")
Print X(i);
Next
P = 1
i = 1
Do While i <= J
P = P * Abs(X(i))
i = i + 1
Loop
Print "Произведение абсолютных значений вектора P = " & P
End Sub
6 Отладка программы
Ручной счёт:
Задание №2
1 Постановка задачи
Найти сумму элементов последних K столбцов матрицы А размерности M×N.
Проанализировать выполнение программы на примере
Входные данные: M – количество строк матрицы, переменная целого типа, N – количество столбцов матрицы, переменная целого типа, K – количество суммируемых столбцов, переменная целого типа, A – исходная матрица, массив вещественных чисел.
Выходные данные: S – сумма последних K столбцов матрицы, переменная вещественного типа.
2 Математическая модель
3 Разработка алгоритма
4 Разработка визуальной части проекта
На форме располагаем только командную кнопку Command1. В свойстве Caption кнопки записываем «Вычислить».
5 Код приложения
Private Sub Command1_Click()
Dim A() As Single, M As Integer, N As Integer, K As Integer, i As Integer, j As Integer
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
K = InputBox("K=")
S = 0
i = 1
Do While i <= M
j = K
Do While j <= N
S = S + A(i, j)
j = j + 1
Loop
i = i + 1
Loop
Print "Сумма последних " & K & " столбцов матрицы S = " & S
End Sub
6 Отладка программы
Ручной счёт:
