Программный элемент накопление / 2
.docx
Задание №1
Постановка задачи:
Словестное описание задачи:
Вычислить значение функции
где А и B векторы одинаковой размерности.
Для отладки программы значения n, A и B выбрать самостоятельно.
Состав входных и выходных данных:
Входные данные: n – размерность векторов A и B, переменная целого типа, A={ak}, k= – вектор A, массив вещественных чисел, B={bk}, k= – вектор B, массив вещественных чисел.
Выходные данные: L – значение функции, переменная вещественного типа.
Математическая модель задачи:
Схема алгоритма
Код приложения
Private Sub Command1_Click() Dim k As Integer, n As Integer, A() As Single, B() As Single, L As Single n = InputBox("Введите размерность векторов") ReDim A(1 To n), B(1 To n) Print "A={ "; For k = 1 To n A(k) = InputBox("A(" & k & ")=") Print A(k) & " "; Next Print "}" Print "B={ "; For k = 1 To n B(k) = InputBox("B(" & k & ")=") Print B(k) & " "; Next Print "}" L = 1 For k = 1 To n L = L * (A(k) - B(k)) Next Print "L=" & L End Sub
Отладка программы
Задание №2
Постановка задачи:
Словестное описание задачи:
Найти сумму элементов первой и последней строк матрицы. Проанализировать выполнение программы на примере
Состав входных и выходных данных:
Входные данные: m – количество строк матрицы, переменная целого типа, n – количество столбцов матрицы, переменная целого типа, C={cij}, где i= j= – исходная матрица, массив вещественных чисел.
Выходные данные: S – сумма элементов первой и последней строк матрицы, переменная вещественного типа.
Математическая модель задачи:
Схема алгоритма
Код приложения
Private Sub Command1_Click() Dim C() As Single, m As Integer, n As Integer, i As Integer, j As Integer, S As Integer m = InputBox("Введите количество строк") n = InputBox("Введите количество столбцов") ReDim C(1 To m, 1 To n) Print "C=" For i = 1 To m For j = 1 To n C(i, j) = InputBox("C(" & i & ", " & j & ")=") Print C(i, j) & " "; Next Print Next S = 0 For j = 1 To n S = S + C(1, j) + C(m, j) Next Print "S=" & S End Sub
Отладка программы