Программный элемент накопление / Лр накопление (3)
.docx1.1) Постановка задачи
1.1.1) Словесное описание задачи
Вычислить и напечатать значение суммы:
где N – размерность вектора X.
Проанализировать выполнение программы на примере:
X = {1; 3; 5; 7; 9}.
1.1.2) Состав входных и выходных данных
Входные данные: N – переменная целого типа, X={xi}, i= – массив вещественных чисел.
Выходные данные: S – переменная вещественного типа.
1.2) Математическая модель задачи
где 1 ≤ i ≤ N с шагом 1.
1.3) Схема алгоритма
1.4) Визуальная часть проекта
1.5) Код приложения Private Sub Command1_Click()
Dim N As Integer, X() As Single, S As Single, k As Integer
N = InputBox("Введите размерность одномерного массива X")
ReDim X(1 To N)
Print "X=";
For k = 1 To N
X(k) = InputBox("Введите X(" & k & ")")
Print X(k) & " ";
Next
For k = 1 To N
S = S + (-1 ^ (k - 1)) * X(k) ^ k / k
Next
Print "S=" & S
End Sub
1.6) Отладка программы
2.1) Постановка задачи
2.1.1) Словесное описание задачи
Вычислить среднее геометрическое элементов последних K столбцов прямоугольной матрицы размерности M×N.
Для отладки программы принять M=2; N=5; K=3. Значения элементов матрицы выбрать самостоятельно.
2.1.2) Состав входных и выходных данных
Входные данные: M – переменная целого типа, N – переменная целого типа, A={aij}, i= ; j= – массив вещественных чисел, K – переменная целого типа.
Выходные данные: Sg – переменная вещественного типа.
2.2) Математическая модель задачи
где 1 ≤ i ≤ M с шагом 1; K ≤ j ≤ N с шагом 1.
2.3) Схема алгоритма
2.4) Визуальная часть проекта
2.5) Код приложения
Private Sub Command1_Click()
Dim N As Integer, M As Integer, Sg As Single, i As Integer, j As Integer, A() As Single, K 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=")
Sg = 1
For i = 1 To M
For j = K To N
Sg = Sg * A(i, j)
Next
Next
Sg = Sg ^ (1 / (M * K))
Print "Ср. геометрическое последних " & K & " ст-ов A=" & Sg
End Sub
2.6) Отладка программы