1. Вычислить сумму элементов с четными индексами одномерного массива N размерности L. Найденное значение присвоить первому элементу массива N.

Проанализировать выполнение программы на примере:

2. Определить значение величины

где k × n размерность матрицы А.

Проанализировать выполнение программы на примере

Задача 1.

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

Вычислить сумму элементов с четными индексами одномерного массива N размерности L. Найденное значение присвоить первому элементу массива N.

Проанализировать выполнение программы на примере:

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

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

N – одномерный массив вещественного типа

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

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

N – одномерный массив вещественного типа

3. Математическое описание задачи:

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

4. Листинг кода программы:

Private Sub Command1_Click()

Dim N() As Single, L As Integer, i As Integer

L = InputBox("L = ")

ReDim N(1 To L)

Print "Исходный массив:"

For i = 1 To L

N(i) = InputBox("N(" & i & ")=")

Print N(i);

Next

Print

N(1) = 0

For i = 2 To L Step 2

N(1) = N(1) + N(i)

Next

Print "Изменённый массив:"

For i = 1 To L

Print N(i);

Next

Print

End Sub

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

Задача 2.

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

Определить значение величины

где k × n размерность матрицы А.

Проанализировать выполнение программы на примере

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

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

A – двухмерный массив вещественного типа

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

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

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

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

3. Математическое описание задачи:

4. Листинг кода программы:

Private Sub Command1_Click()

Dim A() As Single, L As Single, i As Integer, j As Integer, k As Integer, n As Integer

k = InputBox("k = ")

n = InputBox("n = ")

ReDim A(1 To k, 1 To n)

Print "Исходный массив:"

For i = 1 To k

For j = 1 To n

A(i, j) = InputBox("A(" & i & ", " & j & ")=")

Print A(i, j),

Next

Print

Next

L = 1

For i = 1 To k

For j = 1 To n

L = L * A(i, j) ^ (1 / 3)

Next

Next

Print "L = " & L

End Sub

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