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

Задание №1

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

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

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

М={2; 4; 6; -3; 8; 12; -6, 1}

1.2. Состав входных и выходных переменных

Входные переменные: K – переменная целого типа,

M= – массив вещественных чисел.

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

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

где i=2; 4; 6; 8.

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

4. Код программы

Private Sub Command1_Click()

Dim M() As Single, P As Single, K As Integer, i As Integer

K = InputBox("Введите K")

ReDim M(1 To K)

For i = 1 To K

M(i) = InputBox("Введите M(" & i & ")")

Print M(i) & " ";

Next

Print

P = 1

For i = 2 To 8 Step 2

P = P * M(i)

Next

Print "Произведение элементов с индексами 2, 4, 6, 8 равно: " & P

End Sub

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

Задание №2

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

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

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

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

1.2. Состав входных и выходных переменных

Входные переменные: M – переменная целого типа,

N – переменная целого типа,

S= – массив вещественных чисел.

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

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

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

4. Код программы

Private Sub Command1_Click()

Dim S() As Single, Sum As Single, M As Integer, i As Integer, N As Integer, j As Integer

M = InputBox("Введите M")

N = InputBox("Введите N")

ReDim S(1 To M, 1 To N)

For i = 1 To M

For j = 1 To N

S(i, j) = InputBox("Введите M(" & i & ", " & j & ")")

Print S(i, j) & " ";

Next

Print

Next

For i = 1 To M

Sum = Sum + S(i, 1)

Next

For j = 2 To N

Sum = Sum + S(M, j)

Next

Print "Сумма элементов 1 столбца и " & M & " строки равна: " & Sum

End Sub

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