Задание №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 Отладочный пример.


Дата добавления: 2015-08-01; просмотров: 851;