ТОР 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() Не нашли, что искали? Воспользуйтесь поиском:
|