Пример выполнения задания 2.2
Условие. Составить блок-схему и программу на VBA для решения следующей задачи. Возвести число 3 в 8-ю степень, не применяя операцию возведения в степень.
Обозначим: s – число 3 в 8-ой степени
Блок-схема
S=3
S=3
s=s*3
Программа
Public Sub p2()
Dim s As Integer
Dim i as Integer
s=1
For i=1 to 8
s=s*3
next i
Msgbox “Ответ=” & s
End Sub
2.3. Работа с одномерными массивами
Дан одномерный массив X=(xi), i=1,2,...,12. Составить блок-схему и программу на VBA для решения задач, представленных в табл. 2.3.
Таблица 2.3.
|
№вар |
Условие |
|
0 |
Найти сумму элементов, больших 10 и имеющих нечетные индексы |
|
1 |
Вычислить произведение индексов всех положительных элементов |
|
2 |
Определить, каких элементов в массиве больше: положительных или отрицательных. |
|
3 |
Вычислить сумму и произведение квадратов элементов |
|
4 |
Вычислить сумму и произведение последних семи элементов, меньших некоторого числа А |
|
5 |
Вычислить сумму и произведение первых шести элементов, больших числа 5 |
|
6 |
Найти минимальный элемент из пяти последних элементов |
|
7 |
Найти максимальный элемент из пяти последних элементов |
|
8 |
Найти сумму и количество ненулевых элементов |
|
9 |
Найти сумму и количество положительных элементов |
|
10 |
Найти сумму и произведение ненулевых элементов |
|
11 |
Найти номер элемента с минимальным значением |
|
12 |
Вычислить сумму элементов, стоящих на четных местах |
|
13 |
Вычислить произведение элементов, стоящих на четных местах в массиве и больших числа 4 |
|
14 |
Вычислить произведение последних пяти элементов, стоящих на нечетных местах |
|
15 |
Найти количество элементов массива, равных числу 12 |
|
16 |
Найти сумму минимального и максимального элементов |
|
17 |
Найти произведение номеров минимального и максимального элементов |
|
18 |
Найти сумму и произведение положительных элементов |