Студопедия
Главная страница | Контакты | Случайная страница

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

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

Читайте также:
  1. A. Цикл с предусловием
  2. Begin IF умова 2 THEN оператор 1 end
  3. Begin оператори; end.
  4. While <булево выражение> do
  5. Анализ динамики рынка, модель жизненного цикла
  6. Арифметические операторы
  7. Арифметические операторы и операторы присваивания
  8. Влияние жизненного цикла туристского продукта на оценку туристских ресурсов
  9. Возврат заявок на участие в электронном аукционе оператором электронной площадки.
  10. Действия оператора поста централизации при отравлении работника.

На рис. изображена блок-схема алгоритма цикла с предусловием.

Рисунок Алгоритм циклической структуры с предусловием.

Оператор, реализующий этот алгоритм в языке Free Pascal, имеет вид:

while выражение do оператор;

здесь while.. do – зарезервированные слова языка Free Pascal, выражение – логическая константа, переменная или логическое выражение, оператор – любой допустимый оператор языка.

Работает оператор while следующим образом. Вычисляется значение выражения. Если оно истинно (True), выполняется оператор. В противном случае цикл заканчивается, и управление передается оператору, следующему за телом цикла. Выражение вычисляется перед каждой итерацией цикла. Если при первой проверке выражение ложно (False), цикл не выполнится ни разу.

Если в цикле надо выполнить более одного оператора, необходимо использовать составной оператор:

while условие do

begin

оператор_1;

оператор_2;

оператор_n;

end;

Рассмотрим пример.

Пусть необходимо вывести на экран значения функции y = e sin(x) cos(x) на отрезке [0;π] с шагом 0.1. Применим цикл с предусловием:

var x,y:real;

begin

{Присваивание параметру цикла стартового значения.}

x:=0;

{Цикл с предусловием.}

while x<=pi do {Пока параметр цикла не превышает конечное значение, выполнять тело цикла.}

begin

{Вычислить значение y.}

y:=exp(sin(x))*cos(x);

{Вывод на экран пары х и y.}

writeln('x=', x,' y=', y);

{Изменение параметра цикла - переход к следующему значению x.}

x:=x+0.1;

end; {Конец цикла.}

end.

В результате работы данного фрагмента программы на экран последовательно будут выводиться сообщения со значениями переменных x и y:

x= 0; y=1

x= 0.1; y=1.0995

x= 3.1; y=-1.0415

 




Дата добавления: 2014-12-19; просмотров: 95 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2025 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав