🗊Презентация Операторы цикла. Цикл с предусловием

Операторы цикла Цикл — многократное повторение последовательности действий по некоторому условию. Известны три типа циклических алгоритмических структур: цикл с пред­условием, цикл с постусловием и цикл с параметром. В VBA существуют операторы, реализующие все три типа циклов.

Цикл с предусловием (цикл-пока) — наиболее универсаль­ная циклическая структура. Он организует выполнение операторов, составляющих тело цикла, неизвестное заранее число раз. Реализуется оператором While. Формат оператора: Do While <условие> <тело цикла> Loop Здесь Do, While, Loop – зарезервированные слова; <условие> – выражение логического типа; <тело цикла> – операторы VBA.

Алгоритм работы оператора следующий. Алгоритм работы оператора следующий. Вначале вычисляется значение выражения <условие>.  Если <условие> имеет значение True, выполняется <тело цикла>; после чего вычисление значения выражения<условие> повторяется. Если <условие> имеет значение False, оператор прекращает свою работу. Таким образом, выход из цикла осуществляется, если логическое выражение принимает значение ложь. Истинность логического выражения проверяется вначале каждого прохождения цикла, поэтому тело цикла может не выполняться ни разу.

Цикл с постусловием (цикл-до) позволяет организовать многократное выполнение операторов, если число повторений заранее неизвестно. Цикл с постусловием может быть записан в одном из следующих видов: Do Until <условие> <тело цикла> Loop или Do <тело цикла> Loop Until <условие> Здесь Do, Until, Loop – зарезервированные слова; <условие> – выражение логического типа; <тело цикла> – операторы VBA.

Оператор работает по следующему алгоритму. Вначале выполняется <тело цикла>, после чего вычисляется значение логического выражения  <условие>. Оператор работает по следующему алгоритму. Вначале выполняется <тело цикла>, после чего вычисляется значение логического выражения  <условие>. Если его значение есть False, операторы, образующие <тело цикла>, повторяются. В противном случае оператор завершает свою работу. То есть выход из цикла осуществляется, если логическое выражение принимает значение True (истина). Поскольку значение логического выражения вычисляется в конце каждого прохождения цикла, тело цикла выполнится хотя бы один раз.

Цикл с параметром (цикл со счетчиком, цикл – для служит для организации циклов с заранее известным числом повторений. Синтаксис оператора: For <параметр> = <начальное значение> To <конечное значение> [Step <шаг>] <тело цикла> Next Здесь For, To, Step, Next – зарезервированные слова VBA; <параметр> – простая переменная порядкового типа ; <начальное значение> – выражение того же типа что и <параметр>, определяющее начальное значение параметра; <конечное значение> – выражение того же типа, определяющее конечное зна­чение параметра; <шаг> – некоторое значение типа <параметр>, задающее, на сколько изменяется значение параметра при каждом проходе цикла; <тело цикла> – операторы VBA.

Пример 1 Найти сумму десяти случайных чисел. Напишем программу, воспользовавшись циклами различных видов. Dim sum1 As Integer, sum2 As Integer, i As Integer Randomize ‘решение задачи с помощью цикла с предусловием i = 10 Do While i > 0                                       ‘цикла выполненяется, пока логическое условие истинно sum1 = sum1 + Int((10 * Rnd) + 1) i = i - 1 Loop MsgBox "Сумма чисел=" & sum1 ‘решение задачи с помощью цикла с постусловием i = 10 Do                                                           ‘цикла выполненяется, пока логическое условие ложно sum2 = sum2 + Int((10 * Rnd) + 1) i = i - 1 Loop Until i = 0 MsgBox "Сумма чисел=" & sum2 End Sub

Заметим, что особенностью интерпретатора VBA является то, что значения переменных числовых типов перед выполнением процедуры полагаются равными 0. Заметим, что особенностью интерпретатора VBA является то, что значения переменных числовых типов перед выполнением процедуры полагаются равными 0. Поэтому в программе отсутствуют команды присваивания вида: sum1 = 0 и sum2=0.

Пример 2 'Найти максимальное из n введенных с клавиатуры чисел. Приведем два варианта решения задачи с использованием циклов разных видов. Option Explicit Sub Max_n_while() Dim n As Byte, k As Single, i As Byte, Max As Single n = Val(InputBox("Введите количество чисел")) i = 1 Do While i <= n k = Val(InputBox("Введите число", "Ввод чисел")) If i = 1 Then Max = k If k > Max Then Max = k i = i + 1 Loop MsgBox "Наибольшее из чисел " & Max End Sub

Option Explicit Option Explicit Sub Max_n_until() Dim n As Byte, k As Single, i As Byte, Max As Single n = Val(InputBox("Введите количество чисел")) i = 1 Do Until i > n k = Val(InputBox("Введите число", "Ввод чисел")) If i = 1 Then Max = k If k > Max Then Max = k i = i + 1 Loop MsgBox "Наибольшее из чисел " & Max End Sub

Пример 3 Найти cумму n первых членов ряда 1, 1/2, 1/3, ... 1/n,… Option Explicit Sub Summ_n() Dim n As Byte, i As Byte, sum As Single n = Val(InputBox("Введите количество членов ряда")) For i =1 To n sum = sum + 1 / i Next MsgBox "Сумма " & sum End Sub

Пример 4 Найти сумму всех четных чисел в первой десятке: Option Explicit Sub Summa () Dim j As Integer, sum As Integer For j = 2 To 10 Step 2 sum = sum + j Next MsgBox "Сумма равна " & sum End Sub

Public Sub Таблица() Public Sub Таблица() Dim x As Double, y As Double, a As Double, b As Double a = Val(InputBox(“Введите начало промежутка", «Ввод а")) b = Val(InputBox(«Введите конец промежутка", «Ввод b")) H= Val(InputBox(«Введите шаг", «Ввод h")) x = a Cells(1, 1) = "x" Cells(1, 2) = "y" i = 2 Do While x <= b + h / 2 y = x ^ 2 Cells(i, 1).Value = x Cells(i, 2) = y x = x + h i = i + 1 Loop End Sub

Текст программы: Текст программы: Public Sub Prg_6() ‘ Число элементов последовательности Dim u As Single Dim k As Integer Dim n As Integer u = 6 k = 0 For n = 1 To 20 Step 1 u = u / 2 If u > 1 Then k = k + 1 End If Next n MsgBox ("k=" + Str(k)) End Sub

Пример Пример Count = 0 While Count < Number Print Count Count = Count + 1 Wend