Таким образом, каждый цикл for можно заменить эквивалентным ему циклом while или repeat, но не наоборот

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

На рисунке приведена блок-схема цикла while. Синтаксис цикла while имеет вид:

while Условие do Оператор;

где while, do – ключевые слова;

Условие – этоконстанта, переменная или выражение логического типа;

Оператор – это оператор, который выполняется в цикле и определяет тело цикла.

Фраза от слова while до слова do является заголовком цикла

Согласно синтаксису оператора While тело цикла есть одним оператором.

Если в цикле выполняется группа операторов, ее следует превратить в один составной оператор с помощью операторных скобок begin... end.

Конструкция while Условие do Оператор; переводится как «пока условие истинное, выполнять операторы тела цикла».

Действие оператору. Сначала, при входе в цикл вычисляется Условие, которое записано в его заголовке. Если оно истинно, то происходит вход в цикл и одноразовое выполнение операторов его тела. После этого управление снова передается на его заголовок, где снова вычисляется Условие. Если значение Условия все еще истинное, то тело цикла выполняется еще один раз, и так далее. Как только очередное вычисление Условия цикла дает ложное значение, работа цикла завершается и управление передается оператору, который следует непосредственно за оператором тела цикла. Если при первом вычислении значение Условия окажется ошибочным, то Оператор не выполнится ни разу.

Следует помнить:

1. Содержимое тела цикла должно обязательно влиять на условие цикла для избежания за цикливания (в середине тела цикла должено быть изменение параметра цикла);

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

Решим задачу. Нужно написать программу для перевода значения температуры, заданной по шкале Цельсия, в значение по шкале Кельвина. В шкале Кельвина за точку отсчета принятый абсолютный нуль, это –273,15 °С, а цена деления совпадает с ценой деления шкалы Цельсия. Используем для решения этой задачи цикл while .. do. В случае этого цикла нет ограничений на тип параметра цикла и шаг его увеличения. Поэтому построим таблицу с шагом 0,5 градуса.

Обозначим начальное значение температуры (first temperature) в Цельсии - C_F, а конечное значение (last temperature) - C_L. Температуру в Кельвинах - K. Параметр цикла обозначим сменной T. Шаг цикла - переменная shag.

Обратите внимание на присваивание T:=C_f перед циклом. Без него значение T может быть любым, и условие в заголовке цикла может быть некорректным. Значение T изменяется внутри цикла. При этом безопаснее так писать тело цикла, чтобы оператор, который влияет на условие, был последним в теле.

program Celsius_While;

var C_f,C_L,T,K,shag:real;

i:integer;

begin

writeln('Enter first temperature');

readln(C_f);

writeln('Enter last temperature');

readln(C_L);

writeln('Enter shag');

readln(shag);

//Заголовок таблицы

For i:=1 to 20 do write('*');

writeln;

writeln('* Celcius *','Kelvin':7,'*':2);

For i:=1 to 20 do write('*');

writeln;

{Должна быть начальная установка переменной, которая находится в заголовке цикла. Если этого не будет сделано, то T может быть любым, и условие может быть некорректным}

T:=C_f;

While T<=C_L do

begin

K:=T+273.15;

writeln('*',T:6:1,'*':4,K:7:2,'*':2); //Печать строки таблицы

T:=Shag+T;; //Изменение параметра цикла

end;

//Завершение таблицы

For i:=1 to 20 do write('*');

writeln;

readln

end.

Дата добавления: 2014-01-05