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

Задание 1

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

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

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

Входные данные:

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

Выходные данные:

P – переменная вещественного типа.

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

3. Разработка алгоритма

4. Разработка визуальной части проекта

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

6. Отладка

Задание 2

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

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

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

Входные данные:

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

Выходные данные:

X – переменная вещественного типа.

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

3. Разработка алгоритма

4. Разработка визуальной части проекта

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

Private Sub Command1_Click()

Dim N As Integer, M As Integer, X 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

For i = 1 To M

X = X + S(i, 1)

Next

For j = 2 To N

X = X + S(M, j)

Next

Print "Сумма элементов первого столбца и последней строки:"

Print X

End Sub

6. Отладка