Задание №11Постановка задачи.

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

Вычислить произведение элементов с индексами 2, 4, 6, 8 од­номерного массива M размерности К. Проанализировать выполнение программы на примере
М={2; 4; 6; -3; 8; 12; -6, 1}

1.2 Определение состава входных и выходных данных.

Входные данные:
- размерность K массива M
- элементы массива M
Выходные данные:
- P - произведение элементов с четными индексами

1.3 Математическое описание.

2

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

4Разработка кода приложения.

Private Sub Command1_Click()

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

K = Text1

ReDim M(K) As Single

Print "M=";

For i = 1 To K

M(i) = InputBox("Введите элемент массива под номером " & i)

Print M(i);

Next

Print

P = 1

For i = 2 To K Step 2

P = P * M(i)

Next

Print "Произведение элементов массива с четными индексами равно " & P

End Sub

5 Отладочный пример.