Pascal. Оператор цикла WHILE-DO.

В этом уроке мы с Вами познакомимся с операторами, которые помогают организовать циклы в программе, так как очень многие алгаритмы циклические. Цикл – это последовательность операторов, которые могут повторяться определённое кол-во раз.

Давайте рассмотрим на примере цикл в программе:

Цикл рассмотренные в следующем примере – будет выполняться пока условие, заданное в нём не будет ложью – false, а пока условие будет true(истина), то операции внутри цикла будут повторяться.

Но прежде чем рассмотреть наш пример, разберёмся в строении нашего цикла:

while (условие) do
begin
оператор(группа операторов)
end;

Цикл начинается со слова while(пока), потом пишем наше условие, и если это условие будет истино, то начало выполнение каких-то операторов и конец.

Давайте рассмотрим это всё в более читательном виде:

пока (выполняется это условие) делай

от начала

оператор(группа операторов)

до конца;

Program while_do;
uses crt;
var num, i, sum: Integer;
begin
clrscr;
write('Введите число - '); { Считываем число }
readln(num);
sum := 0;
if (num>0) then { Если считанное число больше нуля, то }
begin
 i := 1;
 while (i<=num) do { Пока i меньше или равно считанному числу, то }
 begin
   sum := sum + i; { Складываем числа от 1 до считанного числа }
   i := i + 1;
 end;
end
else{}
begin
 i := -1;
 while (i>=num) do{Если i больше или равно считанному числу, то}
 begin
   sum := sum + i; { Складываем числа от -1 до считанного числа }
   i := i - 1;
 end;
end;
write('Сумма чисел равна - ', sum);
readln;
end.

В этом примере присутствуют описания для лучшего понимания.

Но всё же рассмотрим его как следует:

Сначала считываем число, которое будет конечным числом, в сложении чисел от 1 до введённого числа, потом проверяем больше ли оно нуля, если да, то складываем все числа от 1 до N, то есть записываем в переменную i еденицу, и с каждым повтором цикла увеличиваем её на еденицу, пока число не станет таким же как введённое число.

Если число меньше нуля, то складываем числа от -1 до N.

Таким образом работает цикл while.