Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Примеры решения задач. Пример 1. Ввести массив А из 10 элементов




 

Пример 1. Ввести массив А из 10 элементов. Найти сумму и произведение элементов массива.

В этом примере используется характерный прием программирования – метод накопления: к переменной S последовательно прибавляются отдельные элементы массива; в результате при выходе из цикла переменная S будет содержать сумму всех перебранных элементов. Аналогично можно найти произведение всех элементов (в этом случае начальное значение P должно равняться не нулю, а единице (P = 1).

 

Sub primer_1()

Dim a(10) As Single

Dim s As Single

Dim p As Double

Dim i As Integer

For i = 1 To 10

a(i) = Cells (1, i)

Next i

s = 0: p = 1

For i = 1 To 10

s = s + a(i) 'вычисление суммы

p = p * a(i) 'вычисление произведения

Next i

Cells (3, 1) = "Сумма элементов массива = " & s

'вывод суммы в 3 строку 1 столбец активного листа Excel

Cells (4, 1) = "Произведение элементов массива = " & p

'вывод произведения в 4 строку 1 столбец

'активного листа Excel

End Sub

 

Результат выполнения программы:

 

 

Пример 2. Ввести массив А из 10 элементов. Найти максимальный элемент массива и его положение. Если таких элементов несколько, то вывести положение всех.

В этом примере переменная max используется для запоминания текущего максимального элемента с обновлением – в случае необходи-мости – по мере перебора всех элементов, imax – для фиксации положения максимального элемента.

 

Sub primer_2()






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных