Приложение: do until_loop2.rar
Занятие 29.1 Циклы с постусловием (с нижним окончанием).
Цикл называется циклом с постусловием, если условие выхода из цикла или продолжения цикла стоит в конце, после тела цикла.
С нижним окончанием:
На языке Visual Basic.Net циклы с постусловием реализуется с помощью конструкций:
|
Do
Операторы цикла
Loop {while | until} условие
PS!!! Условие проверяется после выполнения цикла
|
a) Цикл Do ... Loop While условие повторения операторов цикла 'пока условие продолжения цикла истинно
Общий вид оператора:
|
Do
Тело цикла
Loop While условие повторения цикла
|
 Алгоритм выполнения оператора:
- Выполняются команды тела цикла
- Изменяется значение переменной цикла.
- Проверяется условие повторения цикла.
- Если условие истинно (True), то действия повторяются с пункта 1.
- Если условие ложно(False), происходит выход из цикла.
b) Цикл Do ... Loop Until условие выхода из цикла 'если условие выхода из цикла истинно
|
Do
Операторы цикла
Loop until условие выхода из цикла
|
Алгоритм выполнения оператора:
- Выполняются команды тела цикла
- Изменяется значение переменной цикла.
- Проверяется условие окончания цикла.
- Если условие истинно (True), происходит выход из цикла.
- Если условие ложно(False), то действия повторяются с пункта 1.
Особенностью этих циклов является то, что тело цикла в любом случае выполняется хотя бы один раз (независимо от того, выполняется условие или нет).
Преждевременный выход из цикла программист может организовать при помощи конструкции Exit Do.
Пример 1.
 
Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handlesnd Button1.Click
Dim x As Integer
x = Val(TextBox1.Text)
ListBox1.Items.Add(" " & "x= " & Str(x))
Do
x = x + 3
ListBox1.Items.Add(" " & Str(x) & " <= 25 ?")
Loop While x <= 25 'условие true - продолжение цикла'
TextBox2.Text = Str(x) & " > 25"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Clear()
TextBox2.Clear()
TextBox1.Clear()
TextBox1.Focus()
End Sub
Пример 2 Создание проекта формирования числового ряда по указанной формуле пока условие истинно.
Задание. Составить блок-схему проекта.
Интерфейс и программный код проекта
Задания
1. Выполните алгоритм: составить таблицу истинности.
| 
