4.6. Оператор цикла while

Оператор цикла WHILE, аналогично циклу REPEAT, организует выполнение операторов тела цикла неизвестное заранее число раз. В начале каждой итерации осуществляется проверка заданного логического выражения (условия выполнения цикла), и если оно выполняется (равноTrue), то осуществляется переход к операторам тела цикла, в противном случае (False) работа цикла прекращается и осуществляется переход к операторам, расположенным после цикла. Структура оператора WHILE:

while<Условие выполнения цикла>do

begin

<Оператор 1>;

<Оператор 2>;

...

<Оператор N>;

end;

Следует отметить, что при наличии в теле цикла WHILE нескольких операторов, все они должны находиться внутри операторных скобок BEGIN..END.

Схема работы цикла WHILEприведена на рисунке 4.3:

Рисунок 4.3 – Схема работы цикла while

Цикл WHILEудобно применять в качестве замены циклаFORв тех случаях, когда переменная (счетчик) цикла должна быть дробной (Real), либо требуется осуществлять модификацию переменной в теле цикла, либо значение переменной цикла должно изменяться с некоторым заданным шагом, что позволяет обойти ограничение циклаFOR, в котором переменная цикла всегда изменяется с шагом «1». В приведенном ниже примере вычисляется сумма всех чисел от 1 доN, с шагомK:

programWhileDemo;

var

N, K, I, Sum: Integer;

begin

Write('Введите N, K: ');

Readln(N, K);

Sum:= 0; {Начальное значение суммы}

I:= 1;{Начальное значение счетчика цикла}

whileI<=Ndo {Условие выполнения тела цикла}

begin

Sum := Sum + I; {Вычисляем сумму}

I:=I+K;{Изменяем счетчик цикла с заданным шагом}

end;

Writeln('Сумма: ',Sum);

end.

Очень часто программисты используют WHILEдля организации «бесконечных» циклов: в качестве условия выполнения цикла явно указывают «True», а прерывание цикла реализуют с помощьюBreakс использованием одного либо нескольких дополнительных условий:

whileTruedo

begin

Readln(N);

if N = 0 then Break;

{Прочие операторы цикла}

end;

Следующий пример демонстрирует вывод на экран последовательности чисел Фибоначчи, а также результат деления каждой пары полученных чисел. Последовательность этих чисел следующая: 1, 2, 3, 5, 8, 13, 21, 34, и т.д. Каждое очередное число получается как сумма двух предыдущих. При делении двух соседних чисел получается значение, которое стремится к 1,618 (34/21=1,619) или 0,618 (21/34=0,6176). Значение 1,618 называют пропорцией «золотого сечения», это «оптимальное» соотношение сторон, признак гармонии в природе. Ниже приведен текст программы:

programGoldenRatio;

var

N: Integer;

NewF, OldF: Integer; {Текущее и предыдущее числа}

Tmp: Integer; {Временная переменная}

begin

Write('Введите N: ');

Readln(N);

OldF := 1; {Предыдущее число = 1}

NewF := 2; {Текущее число = 2}

while NewF <= N do

begin

{Выводим текущее число Фибоначчи и "Золотое сечение"}

Writeln('F=', NewF, '; Golden ratio=', NewF/OldF:8:5);

Tmp := OldF; {Запоминаем предыдущее число}

OldF := NewF; {Запоминаем текущее число}

NewF := NewF + Tmp; {Вычисляем очередное число}

end;

Readln;

end.

4.7. Варианты заданий

№ варианта	Общий член ряда	Точность
1		=0,01
2		=0,001
3		=0,01
4		=0,1
5		=0,01
6		=0,001
7		=0,0001
8		=0,1
9		=0,01
10		=0,001
11		=0,01
12		=0,1
13		=0,0001
14		=0,001
15		=0,001
16		=0,001
17		=0,001
18		=0,001
19		=0,01
20		=0,01