Операторы цикла. Цикл с предусловием - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Операторы цикла. Цикл с предусловием, слайд №1

Операторы цикла. Цикл с предусловием, слайд №2

Операторы цикла. Цикл с предусловием, слайд №3

Операторы цикла. Цикл с предусловием, слайд №4

Операторы цикла. Цикл с предусловием, слайд №5

Операторы цикла. Цикл с предусловием, слайд №6

Операторы цикла. Цикл с предусловием, слайд №7

Операторы цикла. Цикл с предусловием, слайд №8

Операторы цикла. Цикл с предусловием, слайд №9

Операторы цикла. Цикл с предусловием, слайд №10

Операторы цикла. Цикл с предусловием, слайд №11

Операторы цикла. Цикл с предусловием, слайд №12

Операторы цикла. Цикл с предусловием, слайд №13

Операторы цикла. Цикл с предусловием, слайд №14

Операторы цикла. Цикл с предусловием, слайд №15

Операторы цикла. Цикл с предусловием, слайд №16

Операторы цикла. Цикл с предусловием, слайд №17

Операторы цикла. Цикл с предусловием, слайд №18

Операторы цикла. Цикл с предусловием, слайд №19

Операторы цикла. Цикл с предусловием, слайд №20

Операторы цикла. Цикл с предусловием, слайд №21

Операторы цикла. Цикл с предусловием, слайд №22

Операторы цикла. Цикл с предусловием, слайд №23

Операторы цикла. Цикл с предусловием, слайд №24

Операторы цикла. Цикл с предусловием, слайд №25

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Операторы цикла. Цикл с предусловием. Доклад-сообщение содержит 25 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Слайд 2

Описание слайда:

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

Слайд 3

Описание слайда:

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

Слайд 4

Описание слайда:

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

Слайд 5

Описание слайда:

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

Слайд 6

Описание слайда:

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

Слайд 7

Описание слайда:

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

Слайд 8

Описание слайда:

Слайд 9

Описание слайда:

Слайд 10

Описание слайда:

Слайд 11

Описание слайда:

Пример 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

Слайд 12

Описание слайда:

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

Слайд 13

Описание слайда:

Пример 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 Max Then Max = k i = i + 1 Loop MsgBox "Наибольшее из чисел " & Max End Sub

Слайд 14

Описание слайда:

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

Слайд 15

Описание слайда:

Пример 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

Слайд 16

Описание слайда:

Пример 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

Слайд 17

Описание слайда:

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

Слайд 18

Описание слайда:

Слайд 19

Описание слайда:

Слайд 20

Описание слайда:

Текст программы: Текст программы: 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