Программный элемент накопление / 2

Задание №1

1. Постановка задачи:

   1. Словестное описание задачи:

Вычислить значение функции

где А и B векторы одинаковой размерности.

Для отладки программы значения n, A и B выбрать самостоятельно.

2. Состав входных и выходных данных:

Входные данные: n – размерность векторов A и B, переменная целого типа, A={a_k}, k= – вектор A, массив вещественных чисел, B={b_k}, k= – вектор B, массив вещественных чисел.

Выходные данные: L – значение функции, переменная вещественного типа.

2. Математическая модель задачи:

3. Схема алгоритма

4. Код приложения

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

5. Отладка программы

Задание №2

1. Постановка задачи:

   1. Словестное описание задачи:

Найти сумму элементов первой и последней строк матрицы. Проанализировать выполнение программы на примере

2. Состав входных и выходных данных:

Входные данные: m – количество строк матрицы, переменная целого типа, n – количество столбцов матрицы, переменная целого типа, C={c_ij}, где i= j= – исходная матрица, массив вещественных чисел.

Выходные данные: S – сумма элементов первой и последней строк матрицы, переменная вещественного типа.

2. Математическая модель задачи:

3. Схема алгоритма

4. Код приложения

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

5. Отладка программы