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

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

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

Определить среднее арифметическое элементов с нечетными индексами одномерного массива D размерности K.

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

Входные переменные:

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

{D} – массив вещественного типа.

Выходные переменные:

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

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

где i = 1, 3, 5… K

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

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

Private Sub Command1_Click()

Dim K As Integer, D() As Single, n As Integer, i As Integer

K = InputBox("K=")

ReDim D(1 To K)

Print "{D}=";

For i = 1 To K

D(i) = InputBox("D(" & i & ")=")

Print D(i) & " ";

Next

Print

n = 0

i = 1

Do While i <= K

S = S + D(i)

n = n + 1

i = i + 2

Loop

S = S / n

Print "Ср. арифметическое эл. с нечётными инд.= " & S

End Sub

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