Управляющие структуры

Оператор повторений

В языке Турбо Паскаль есть три различных оператора, с помощью которых можно запрограммировать повторяющиеся фрагменты программ (циклы):

1. Цикл For

   Оператор цикла с параметром используют, когда известно число повторений одного и того же действия.

   Он имеет такую структуру:

   for <параметр> := <нач_знач> to <кон_знач> do <оператор>;

   for, to, do – зарезервированные слова (для , до, выполнить)
   <параметр> - переменная порядкового типа;
   <нач_знач> - начальное значение параметра – выражение того же типа
   <кон_знач> - конечное значение параметра - выражение того же типа
   <оператор> - произвольный оператор Турбо Паскаля.

   При выполнении оператора For вначале вычисляется выражение <нач_знач> и осуществляется присваивание <параметр>:=<нач_знач>. После этого циклически повторяется:

   • Проверка условия <параметр> <= <кон_знач>; если условие не выполнено, оператор for завершает свою работу; (если условие не выполняется в самом начале работы оператора For, исполняемый оператор не будет выполнен ни разу)
   • Выполнение оператора <оператор>;
   • Наращивание переменной <параметр> на единицу.

   Пример 5. Составить программу, подсчитывающую сумму всех натуральных чисел от 1 до N.

   Program ex_5;
   Uses crt;
   Var I, n, S: integer;
   Begin Clrscr;
       Write(‘ Введите натуральное число n’); read (n);
       S:=0;                                  {начальное значение суммы}
           For I:=1 to n do             {цикл подсчета суммы}
       S:=S+I;
       Writeln (‘Сумма =’ , S);     {вывод результата}
       Readkey;
   End.

   Существует другая форма оператора For:

   for <параметр> := <нач_знач> downto <кон_знач> do <оператор>;

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

   Модифицированный фрагмент программы из примера 5.

   ……..
   For I:=n downto 1 do {цикл подсчета суммы}
   S:=s+I;
   ……..

2. Цикл While

   Оператор цикла While с предпроверкой условия:

   While <условие> do <оператор>;

   While, do –зарезервированные слова (пока [выполняется условие], делать);
   <условие> - выражение логического типа;
   <оператор> - произвольный оператор Турбо Паскаля;

   Если выражение <условие> имеет значение true (истина), то выполняется <оператор>, после чего вычисление выражения <условия> и его проверка повторяются. Если <условие> имеет значение false (ложь), оператор While прекращает свою работу.

   Пример 6. Составить программу, подсчитывающую сумму всех натуральных чисел от 1 до N.

   Program ex_6;
   Uses crt;
   Var I, n, S: integer;
   Begin Clrscr;
       Write(‘ Введите натуральное число n’); read (n);
       S:=0; I:=1;                         {начальное значение суммы}
           While I<=n do               {цикл подсчета суммы}
               begin
                   S:=S+I;
                   I:=I+1;
               End;
           Writeln (‘Сумма =’ , S); {вывод результата}
   Readkey;
   End.

1. Цикл Repeat…Until

   Оператор цикла Repeat …Until с постпроверкой условия:

   Repeat <тело цикла> until <условие>;

   Repeat, Until - зарезервированные слова (повторять до тех пор, пока не будет выполнено условие);
   <Тело цикла> – произвольная последовательность операторов Турбо Паскаля;
   <условие> - выражение логического типа;

   Операторы <тело цикла> выполняются хотя бы один раз, после чего вычисляется выражение <условие>: если его значение есть false (ложь), операторы <тело цикла> повторяются, в противном случае оператор Repeat … Until завершает свою работу

   Пример 7. Составить программу, подсчитывающую сумму всех натуральных чисел от 1 до N.

   Program ex_7;
   Uses crt;
   Var I, n, S: integer;
   Begin Clrscr;
       Write(‘ Введите натуральное число n’); read (n);
       S:=0; I:=1;                         {начальное значение суммы}
           Repeat                           {цикл подсчета суммы}
       S:=S+I;
       I:=I+1;
           Until i>n;
       Writeln (‘Сумма =’ , S);    {вывод результата}
       Readkey;
   End.

   Для гибкого управления циклическими операторами For, While, Repeat в состав Турбо Паскаля включены две процедуры:
   BREAK – реализует немедленный выход из цикла; действие процедуры заключается в передаче управления оператору, стоящему сразу за концом циклического оператора;
   CONTINUE – обеспечивает досрочное завершение очередного прохода цикла; эквивалент передачи управления в самый конец циклического оператора;
   Введение в язык этих процедур практически исключает необходимость использования оператора безусловного перехода goto (см. далее).

Назад

Далее

X