Цикл while в делфи

Цикл while в делфи

Цикл не выполняется вообще, если выражение является ложным с самого начала.

Если в цикле используются множественные инструкции, то они должны заключатся в Begin и End маркеры.

While используется, когда важно, чтобы инструкции выполнялись только когда необходимо.

Похожие команды
Begin Ключевое слово, которое начинает операторный блок

Boolean Позваляет принимать только True и False значения

Do Определяет начало некоторого управляемого действия

End Ключевое слово, которое заканчивает операторные блоки

For Начинает цикл, который выполняется конечное число раз

Repeat Повторяет инструкции, пока не выполнится условие завершения

Until Заканчивает управляемый цикл Repeat

Поговорим еще об одной инструкции — инструкции while Delphi, обеспечивающей реализацию цикла. Инструкция while Delphi применяется тогда, когда некоторая последовательность действий выполняется несколько раз, при этом необходимое количество повторений в процессе разработки программы заранее не известно (его можно определить лишь в момент работы программы).

В качестве примеров на применение цикла while можно считать вычисление с заданной точностью (например, eps=0.000001), осуществление поиска в массиве, поиск в файле. Общий вид инструкции while Delphi представляется следующим образом:

откуда условие означает выражение типа Boolean, устанавливающее условие, при котором будут выполнены инструкции цикла.

Последовательность выполнения инструкции while в Delphi такова:

  1. Вначале происходит вычисление значения выражения условие;
  2. Если условие принимает значение False (значение Ложь — условие не выполнено), то инструкция while завершает свое выполнение;
  3. В случае значения True (значение Истина — условие выполнено) осуществляется выполнение инструкций тела цикла, находящихся между служебными словами begin и end. Далее вновь проводится проверка выражения условия. Если и это условие выполнено, то вновь повторяются инструкции цикла, расположенные между зарезервированными словами begin и end. Так будет продолжаться до тех пор, пока значение выражения условие не примет значение False.
Читайте также:  Конвертирование pdf в word с возможностью редактирования

Алгоритм, реализующий инструкцию while, проиллюстрирован на рисунке ниже:

Пример программы на цикл while Delphi:

В качестве примера приведем программу, вычисляющая значение числа ПИ с некоторой точностью, задающейся пользователем в процессе работы программы.

Основу алгоритма составляет тот факт, что сумма числового ряда: 1 — 1/3 + 1/5 — 1/7 + 1/9 + … стремится к числу ПИ/4 с большим числом элементов. Нетрудно определить n-й член рассматриваемого числового ряда: An = 1/(2*n — 1).

Знак «-» ставится перед очередным элементом ряда, если n представляет собой четное число — это можно установить делением числа n на 2: если остаток от деления равен нулю — n четно, в противном случае число n является нечетным. Вычисление значения числа ПИ заканчивается в том случае, если значение некоторого члена ряда меньше заданной точности вычисления. Диалоговое окно программы в процессе ее работы представлено иллюстрацией ниже:

Как Вы можете заметить, пользователь сначала осуществляет ввод в поле Edit1 точности вычисления. При нажатии пользователем на командную кнопку Вычислить (Button1) программа производит вычисление значения числа ПИ и впоследствии выводит полученный результат в поле метки Label1. Листинг данной программы Вы можете скачать по этой ссылке.

Цикл — это многократно повторяющаяся последовательность действий. Первый цикл, с которым мы познакомимся в этом уроке называется While. Do (делай пока верно условие).

Синтаксис: Сейчас нам нужно открыть Delphi и создать новый проект. Кидаем на форму компоненты Button и Label:

Создаем на кнопке процедуру OnClick и первое, что нам надо сделать — это ввести переменную A типа Integer: Теперь между ключевыми словами begin и end установим значение переменной A равное 1: И сейчас мы напишем сам цикл, с условием A<>100, то есть пока A не равно 100 будет выполняться цикл.
Если же А = 100 — цикл остановится: Далее, нам нужно что-то сделать в теле цикла. Давайте будем увеличивать значение переменной A на единицу и выводить значение переменной в Label. Вместо комментария (//Тело цикла) мы напишем: Общий вид кода: Компилируем программу, нажимаем на кнопку и видим, что лабел показывает нам сотню. Но почему сразу сотню? Почему не 1,2,3,4 и так до ста. Дело в том, что цикл выполняется на столько быстро, что мы не замечаем как лабел выводит нам сначала 1 потом 2 и потом 3. По этому мы видим только сотню — конечный результат. Кто-то может подумать, что так не интересно :). Хорошо, сейчас сделаем так, чтобы видеть как Delphi выполняет цикл.

Читайте также:  Как записать уравнение плоскости по трем точкам

Дописываем после строки Вот эти две строчки Они делают следующие:

  • Application.HandleMessage — это метод, позволяющий выводить значения переменных во время работы цикла. Не смотря на то, что мы и так выводим переменную в лабел, этот метод необходим.
  • sleep(100); — функция Sleep() говорит программе, что нужно поспать, как бы заморозиться на какое-то количество миллисекунд. Миллисекунды указываются в скобках. В секунде 1000 миллисекунд.

Общий вид кода: Компилируйте и проверяйте.

С циклом While мы закончили, теперь разберем цикл со счетчиком или другое его название For. To. Do. Данный цикл удобно применять, когда нам точно известно кол-во повторений.

Синтаксис: Этот цикл называется со счетчиком, потому что он сам увеличивает переменную счетчик на единицу.

Первым делом нам нужно добавить переменную S типа Integer. Далее, пишем программу, которая будет считать сумму чисел от 1 до 100.
То есть имеется ряд чисел 1 2 3 4 5 6 7 . 100.
Программа будет складывать эти числа между собой, то есть 1+2+3+4+5+6+7+. +100.

Стираем цикл While и пишем цикл For, но перед ним присвойте переменной S ноль: Этот цикл повторит действия в теле 100 раз.

В тело цикла мы запишем: Программа будет считать сумму чисел от 1 до 100, прибавляя к переменной S переменную счетчик A.

И после цикла выводим результат в лабел.

Общий вид: У цикла For есть цикл двойник, он может считать в обратном порядке. Для этого нужно изменить ключевое слово To на DownTo

Пример той же самой программы, но с обратным счетчиком: Далее. Знакомимся с циклом Repeat.

Синтаксис: Этот цикл сначала выполняет действие, а потом проверяет условие. Цикл выполниться в любом случае хотя бы один раз.

Стираем цикл For в нашей программе и пишем цикл Repeat: Эта программа выполнит тоже самое что и предыдущая.

Читайте также:  Программа для edem tv

Ну вот мы и закончили обучение циклам! Сейчас выучим 2 команды для управления ими.

Сразу приведу пример программы, а потом прокомментирую что и как в ней работает: В теле цикла присутствует условие, которое проверяет переменную S. Если S больше 100, то мы экстренно выходим из цикла при помощи команды break, иначе продолжаем цикл командой continue. Пример программы не очень удачный, так как цикл будет работать даже если мы стерем команду continue, но я надеюсь, что суть вы уловили.
Экспериментируйте и всё получится. Жду комментов 😉

Задание на закрепление: напишите программу, которая вычислит сумму двухзначных чисел и выведет ее в Label.

Ну вот и всё! Удачи!
Встретимся в следующем уроке!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 12 Июля 2012
Просмотров:

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.

Ссылка на основную публикацию
Формула частота в excel
При анализе данных периодически возникает задача подсчитать количество значений, попадающих в заданные интервалы "от и до" (в статистике их называют...
Уравнение плоскости по двум пересекающимся прямым
УСЛОВИЕ: Составить уравнение плоскости, проходящей через две параллельные прямые x-2/3=y+1/2=z-3/-2 x-1/3=y-2/2=z+3/-2 Добавил yelymcheav , просмотры: ☺ 1976 ⌚ 2019-05-14 15:35:56....
Уравнение баланса мощностей формула
При решений электротехнических задач, часто нужно проверить правильность найденных значений. Для этого в науке ТОЭ, существует так называемый баланс мощностей....
Формула тейлора с остатком в форме пеано
Формулировка: Если существует , то представима в следующем виде: Это выражение называется формулой Тейлора с остаточным членом в форме Пеано...
Adblock detector