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

1.1) Постановка задачи

1.1.1) Словесное описание задачи

Вычислить произведение элементов с индексами 2, 4, 6, 8 и т.д. одномерного массива M размерности K. Проанализировать выполнение программы на примере:

M = {2; 4; 6; -3; 8; 12; -6; 1}.

1.1.2) Состав входных и выходных данных

Входные данные: n – переменная целого типа, M={m_i}, i= – массив вещественных чисел.

Выходные данные: P – переменная вещественного типа.

1.2) Математическая модель задачи

1.3) Схема алгоритма

1.4) Визуальная часть проекта

1.5) Код приложения Private Sub Command1_Click() Dim n As Integer, M() As Single, P As Single, i As Integer n = InputBox("Введите размерность одномерного массива M") ReDim M(1 To n) Print "M="; For i = 1 To n M(i) = InputBox("Введите M(" & i & ")") Print M(i) & " "; Next Print P = 1 For i = 2 To n Step 2 P = P * M(i) Next Print "P=" & P End Sub

1.6) Отладка программы

2.1) Постановка задачи

2.1.1) Словесное описание задачи

Вычислить сумму элементов первого столбца и последней строки матрицы S размерности M×N.

Для отладки программы принять N=3; M=4. Значения элементов матрицы выбрать самостоятельно.

2.1.2) Состав входных и выходных данных

Входные данные: M – переменная целого типа, N – переменная целого типа, S={s_ij}, i= ; j= – массив вещественных чисел.

Выходные данные: Sum – переменная вещественного типа.

2.2) Математическая модель задачи

2.3) Схема алгоритма

2.4) Визуальная часть проекта

2.5) Код приложения

Private Sub Command1_Click() Dim N As Integer, M As Integer, Sum As Single, i As Integer, j As Integer, S() As Single M = InputBox("M=") N = InputBox("N=") ReDim S(1 To M, 1 To N) Print "S=" For i = 1 To M For j = 1 To N S(i, j) = InputBox("Введите S(" & i & "," & j & ")") Print S(i, j), Next Print Next Sum = 0 For i = 1 To M Sum = Sum + S(i, 1) Next For j = 2 To N Sum = Sum + S(M, j) Next Print "Sum=" & Sum End Sub

2.6) Отладка программы