Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Бип из системно... 65535
Пример работы с... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
21 ошибка прогр... 65535
Гостевая книга ... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Содержание сайт... 65535
Invision Power ... 65535
Программируемая... 65535
Оператор выбора... 65535
Модуль Forms 65535
Реклама
Сейчас на сайте
Гостей: 5
На сайте нет зарегистрированных пользователей

Пользователей: 13,179
новичок: PowerBlack
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Выбор наилучших альтернатив с использованием методов оптимизации на Delp...
Поиск пути в графе заданном списками инцедентности на Turbo Pascal
Моделирование работы перекрёстка по регулированию движения на GPSS + Поя...

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Оператор while


Оператор while (пока) часто называют оператором цикла с предусловием за то, что проверка условия выполнения тела цикла производится в самом начале оператора.
Формат записи:
while <условие продолжения повторений> do
<тело цикла>;



Условие — булевское выражение, тело цикла — простой или составной оператор. Перед каждым выполнением тела цикла вычисляется значение выражения условия. Если результат равен True, тело цикла выполняется и снова вычисляется выражение условия. Если результат равен False, происходят выход из цикла и переход к первому после while оператору.
Примером работы while может служить программа, которая производит суммирование 10 произвольно введенных целых чисел.
program DemoWhile;
const
Limit = 10; {Ограничение на количество вводимых чисел}
var
Count, Item, Sum: integer;
begin
Count:= 0; {Счетчик чисел}
Sum:= 0; {Сумма чисел}
while (Count < Limit) do {Условие выполнения цикла}
begin
Count:= Count+1;
Write ('Введите ', Count, ' — e целое число: ');
Readln (Item); {Ввод очередного числа с клавиатуры}
Sum:= Sum+Item;
end;
Writeln ('Сумма введенных чисел равна ', Sum);
end.



В данном примере в разделе описания констант описана константа Limit=10, задающая ограничение на количество вводимых чисел. В разделе описания переменных описаны переменные Count, Item, Sum целочисленного типа.
В начале выполнения программы обнуляются значения счетчика введенных чисел Count и их суммы.
Затем выполняются цикл ввода 10 чисел и их суммирование. Вначале оператор условия while проверяет условие Count < Limit. Если условие верно, то выполняется составной оператор в теле цикла:
begin
Count:= Count+1;
Write ('Введите ', Count, '— e целое число: ');
Readln (Item);
Sum:= Sum+Item;
end



в котором вводится значение очередного числа, и на это значение увеличивается значение суммы. После этого управление в программе вновь передается оператору цикла while, опять проверяется условие Count < Limit. Если условие верно, то выполняется составной оператор и т. д., пока значение переменной Count будет меньше 10.
Как только значение Count станет равно 10 и условие Count < Limit не будет соблюдено, выполнение цикла завершится, а управление в программе будет передано на оператор, находящийся за словом end, т. e. первый оператор за границей while. Это вызов процедуры Writeln, которая выведет сообщение 'Сумма введенных чисел равна' и напечатает значение переменной Sum.
Опубликовал Kest Апрель 03 2010 21:27:39 · 0 Комментариев · 10510 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
PHP, MySQL и Drea...
Delphi 2005 для .NET
KOL & MCK v1.69
Report
Современное проек...
Text effect
XPATComponents
Java Server Pages...
Реализация ЭЦП по...
Еext Editor
CaptionButton
Игра PackMan
PrevInst
WAP версия сайта
Популярные загрузки
ATComponents
Анимированное поя...
Dnavigator
Pro-Download Sys...
Info

Топ загрузок
Приложение Клие... 100727
Delphi 7 Enterp... 96579
Converter AMR<-... 20216
GPSS World Stud... 16904
Borland C++Buil... 14089
Borland Delphi ... 9947
Turbo Pascal fo... 7303
Калькулятор [Ис... 5792
Visual Studio 2... 5172
FreeSMS v1.3.1 3645
Случайные статьи
Два миниатюрных ин...
Числовые SQL-функц...
Алгоритм расширени...
Если поискать в Ин...
Search Promotion: ...
Вызов хранимых про...
Раскрутка - Seo се...
РЕЖИМ "КОНСУЛЬТАЦИЯ"
Сборка приставки G...
Предисловие
Прочие «примочки»:...
Определение виртуа...
Блок конца изображ...
Решения к главе 12
Этапы подбора ключ...
Расширение
6.4. Работа с утв...
Программирование с...
Модемы для сжатия ...
Стандарты кодирования
Глава 6. Приложения
Свойства языка C++...
Доверяй, но проверяй
DsAuthors. Компьют...
Основы поисковой о...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?