Поиск по этому блогу

четверг, 26 января 2017 г.

Оператор цикла с предусловием 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.

Комментариев нет:

Отправить комментарий