Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Операторы цикла с предусловием

Окно редактирования кода | Задание на практическую работу. | Операции деления |


Читайте также:
  1. I. ОБЩИЕ ПРАВИЛА, ПРИМЕНЯЕМЫЕ К МОТОЦИКЛАМ УЧАСТНИКОВ СОРЕВНОВАНИЯ.
  2. Quot;Правило четырех недель " и его связь с рыночными циклами
  3. Аденилатциклаза
  4. Аденилатциклаза катализирует реакцию
  5. Буксировка орудий Джипами и Мотоциклами
  6. Величина степени сжатия цикла зависит от используемого в нем вида термодинамического процесса газа.
  7. ВЛИЯНИЕ СКОЛЬЗЯЩИХ СРЕДНИХ НА АМПЛИТУДУ И ФАЗУ ЦИКЛА

Формат цикла с предусловием:

5.2.1.

Do Until А [инструкции] [Exit Do] [инструкции] Loop Где А ‑ логическое выражение Exit Do досрочный выход из цикла, управление передается на оператор стоящий за Loop

 

Правило выполнения:

тело цикла выполняется до тех пор пока А имеет значение False

Пример 1: Написать программный код, реализующий вычисление разности введенного числа и числа 100.

Public Sub qqq()

Dim x, s As Integer

x = InputBox("Введите значение Х")

s = 0

Do Until x >= 100

s = s + 1

x = x + 1

Loop

MsgBox "X на " & s & "меньше 100"

End Sub

 

 

5.2.2.

Do While А [инструкции] [Exit Do] [инструкции] Loop Где А ‑ логическое выражение Exit Do досрочный выход из цикла, управление передается на оператор стоящий за Loop

 

Правило выполнения:

тело цикла выполняется до тех пор пока А имеет значение True

 

 

Пример:

Выполнение той же задачи, что и в предыдущем примере с использованием цикла While:

Public Sub qqq()

Dim x, s As Integer

x = InputBox("Введите значение Х")

s = 0

‘ Обратите внимание на знак в логическом выражении!

Do While x <= 100

s = s + 1

x = x + 1

Loop

MsgBox "X на " & s & "меньше 100"

End Sub

 

!!! В операторах цикла с предусловием и постусловием необходимо очень внимательно следить за созданием инструкции меняющей значение параметра цикла, в отличии от оператора цикла с параметром эти циклы не изменяют параметр цикла автоматически

 

Задание для практической работы.

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


Дата добавления: 2015-11-14; просмотров: 45 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Основные структуры алгоритмического языка VBA| INTERNET TOEFL SAMPLE LESSONS # 4

mybiblioteka.su - 2015-2024 год. (0.005 сек.)