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

Задание №1

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

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

Вычислить среднее арифметическое элементов с нечётными индексами одномерного массива X размерности L. Проанализировать выполнение программы на примере:

X={2; 6; 1; -2; 0}

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

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

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

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

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

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

Private Sub Command1_Click()

Dim L As Integer, X() As Single, i As Integer, Sa As Single, k As Integer

L = InputBox("L=")

ReDim X(1 To L)

Print "{X}="

For i = 1 To L

X(i) = InputBox("X(" & i & ")=")

Print X(i),

Next

Print

i = 1

Do While i <= L

Sa = Sa + X(i)

k = k + 1

i = i + 2

Loop

Sa = Sa / k

Print "Sa=" & Sa

End Sub

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

Задание №2

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

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

Вычислить произведение элементов на главной диагонали в чётных строках квадратной матрицы B размерности N

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

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

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

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

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

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

Private Sub Command1_Click()

Dim N As Integer, B() As Single, i As Integer, P As Single, j As Integer

N = InputBox("N=")

ReDim B(1 To N, 1 To N)

Print "{B}="

For i = 1 To N

For j = 1 To N

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

Print B(i, j),

Next

Print

Next

P = 1

i = 2

Do While i <= N

P = P * B(i, i)

i = i + 2

Loop

Print "P=" & P

End Sub

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