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

Задание №1

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

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

Найти произведение элементов с чётными индексами одномерного массива E размерности K.

Проанализировать выполнение программы на примере E = {2; -3; -6; 8; 4; 16; -11}

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

Входные данные: K – переменная целого типа, E= – массив вещественных чисел.

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

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

для i – только чётные числа.

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

4) Код приложения Private Sub Command1_Click()

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

K = InputBox("Введите размерность вектора")

ReDim E(1 To K)

Print "E=";

For i = 1 To K

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

Print E(i) & " ";

Next

Print

P = 1

i = 2

Do While i <= K

P = P * E(i)

i = i + 2

Loop

Print "Произведение чётных элементов: " & P

End Sub

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

Задание №2

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

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

Определить сумму K-го столбца матрицы S размерности M*N. Для отладки программы значения: K, M, N и матрицы S выбрать самостоятельно.

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

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

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

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

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

4) Код приложения Private Sub Command1_Click()

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

M = InputBox("Введите количество строк")

N = InputBox("Введите количество столбцов")

ReDim S(1 To M, 1 To N)

Print "S="

For j = 1 To N

For i = 1 To M

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

Print S(i, j) & " ";

Next

Print

Next

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

i = 1

Do While i <= M

C = C + S(i, K)

i = i + 1

Loop

Print "Сумма " & K & "-го столбца: " & C

End Sub

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