Вычисление произведения элементов массива
Алгоритм перемножения:
Записать в ячейку для хранения произведения единицу;
Организовать цикл по перебору элементов массива;
На каждом шаге цикла домножать произведение на очередной элемент массива.
Пример 11
Вычислить произведение элементов массива D(150).
Создаем программу, аналогичную предыдущему примеру.
Пример 12
Найти сумму отрицательных элементов массива М(80).
Считывание массива из Excel
Пример 13
Вычислить сумму элементов массива С, значения которого хранятся в ячейках A1:F1 листа Excel с именем Исходные. Сумму записать в ячейку F9 листа Результат.
Решение
1. Для определения размерности массива рассмотрим фрагмент ЭТ (табл. 17):
Таблица
17
2. Для считывания различных элементов массива из Excel необходимо обращаться к ЭТ, изменяя адреса ячеек. В этом случае для обращения к ячейкам используется ключевое слово Cells(I,J).
Здесь I – номер строки;
J – номер столбца.
Например, Cells(1,2) соответствует адресу Range (“B1”);
Cells(2,3) соответствует адресу Range (“C2”);
Cells(4,1) соответствует адресу Range (“A4”).
В примере 13 номер строки зафиксирован (I=1), а номер столбца J = 1, 2, … , 6.
3. Переименовываем листы Excel:
Щелкнуть правой клавишей мыши по Лист 1;
Команда Переименовать;
Ввести Исходные;
Аналогично Лист 2 переименовать в Результат.
4. Пишем программу:
5. Запустить программу на выполнение (F5).
6. Перейти в Excel, на лист Результат для проверки вычислений.
Вычисление максимальных значений элементов массива
Алгоритм решения:
Полагаем максимальным первый элемент массива и присвоим его значение переменной для хранения максимума (max).
Организуем цикл перебора элементов массива.
На каждом шаге проверяем, не окажется ли очередной элемент больше максимального. Если окажется присваиваем его значение переменной max.
Пример 14
Найти максимальный элемент массива С(60) и его номер.
Решение
Пишем программу согласно вышеприведенному алгоритму:
2.3.3. Циклы с неизвестным числом повторений
Оператор While (пока)…Wend (конец цикла)
Структура оператора:
Работает так: проверяется условие. Если оно выполняется, работают операторы тела цикла. Если не выполняется – переход к следующему оператору после Wend.
Пример 15
Организовать суммирование элементов массива К(270). Суммирование продолжать до тех пор, пока сумма не достигнет значения 3000.
Решение
1. Оператор While…Wend не изменяет индекс номера массива I. Изменение I следует предусмотреть в программе.
2. Возможно, сумма всех 270 элементов массива не составит 3000. Чтобы программа не «зациклилась», нужно поставить ограничение не только по сумме, но и по числу элементов массива.
