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

Оператор цикла while используется в программе, если надо провести некоторые повторные вычисления (цикл), однако число повторов заранее неизвестно и определяется самим ходом вычисления.

В общем виде оператор выглядит так:

while условие do

    begin

        {последовательность операторов};

     end;

где условие – выражение логического типа.

Оператор цикла while работает следующим образом:

1.      Вычисляется условие.

2.      Если условие ложно, то вход в цикл не выполняется и управление передается оператору, следующему непосредственно за операторами тела цикла.

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

Примечание:

1.      Для того чтобы последовательность инструкций между begin и end была выполнена хотя бы один раз, необходимо, чтобы перед выполнением инструкции  while условие было истинно;

2.      Для того чтобы цикл завершился, необходимо чтобы последовательность инструкций между begin и end изменяла значения переменных, входящих в выражение условие.

Примеры: 

Вычислить сумму четных чисел от 2 до некоторого числа n. (n>2).

program sum_thet;

var

   n, s, i: integer;

begin

  s:=0; i:=2;

  writeln (‘Введите натуральное число n’);  readln(n);

      while i<=n do

           begin

              s:=s+i;

              i:=i+2;

            end;

    writeln (‘сумма четных чисел от 2 до ’, n, ‘=’,s);

end.

Используя алгоритм Евклида, найти НОД двух чисел.

             program NOD;  

            var 

                M, N: integer;

            begin

               write('Введите М и N ');

               readln(M, N);

     while M<>N do

       begin

        if M>N then

          M:=M-N

        else

          N:=N-M

       end;

     write('Н0Д = ',М)

            end.