Приложение: do until_loop2.rar

Занятие 29.1   Циклы с постусловием  (с нижним окончанием).

Цикл называется циклом с постусловием, если условие выхода из цикла  или продолжения цикла стоит в конце, после тела цикла. 

С нижним  окончанием:

На языке Visual Basic.Net циклы с постусловием реализуется с помощью конструкций:

Do      Операторы цикла Loop {while | until} условие   PS!!!    Условие проверяется после выполнения цикла

 

a)  Цикл  Do  ...  Loop While условие повторения операторов цикла    'пока условие продолжения цикла истинно

 

Общий вид оператора:

Do    Тело цикла Loop While условие повторения цикла

        

 Алгоритм выполнения оператора:

1. Выполняются команды тела цикла
2.  Изменяется значение переменной цикла.
3. Проверяется условие повторения цикла.
4. Если условие истинно (True), то действия повторяются с пункта 1.
5. Если условие ложно(False), происходит выход из цикла.

 

b)  Цикл   Do  ...  Loop Until  условие выхода из  цикла    'если условие выхода из цикла  истинно

 

Do Операторы цикла Loop until  условие выхода из цикла

     

Алгоритм выполнения оператора:

1. Выполняются команды тела цикла
2. Изменяется значение переменной цикла.
3. Проверяется условие окончания цикла.
4. Если условие истинно (True), происходит выход из цикла.
5. Если условие ложно(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. Выполните алгоритм: составить таблицу истинности.