В этом уроке мы с Вами познакомимся с операторами, которые помогают организовать циклы в программе, так как очень многие алгаритмы циклические. Цикл — это последовательность операторов, которые могут повторяться определённое кол-во раз.
Давайте рассмотрим на примере цикл в программе:
Цикл рассмотренные в следующем примере — будет выполняться пока условие, заданное в нём не будет ложью — 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.