Тема.Операторы повторения

      Цикл - главное средство заставить компьютер много раз сделать одно и то же действие.

            Счетный оператор цикла  FOR  (для - цикл по параметру).

     Вид команды в виде блок-схемы следующий:

Общий вид конструкции следующий:

Первый вариант.

FOR <пар_цикла> := <нач_знач> TO <кон_знач> DO <оператор>;.

                        PS!!! ( <нач_знач> меньше <кон_знач>)

Выполнение оператора FOR в первом варианте происходит по следующей схеме:

1. Вычисляются значения <нач_знач> и <кон_знач>. Это делается только один раз при входе в цикл.

2. Параметру цикла (<пар_цикл>) присваивается значение <нач_знач>.

            3. Значение параметра цикла сравнивается со значение <кон_знач>. Если параметр цикла меньше или равен этому значению, то выполняется тело цикла, в противном случае выполнение цикла заканчивается.

4. Значение параметра изменяется на следующее значение в его типе (для целых - увеличивается на единицу); происходит возврат к пункту 3.

Второй вариант.

FOR <пар_цикла> := <нач_знач> DOWNTO <кон_знач> DO <оператор>;.

                   PS!!! ( <нач_знач> больше <кон_знач>)

Слово DOWNTO буквально можно перевести как "вниз до". В таком случае параметр цикла изменяется по убыванию.

      Пример 7. Составить программу вычисления факториала целого положительного числа.
 

program pr7_factorial_for;          var i: word; n: integer; factorial: longint;          begin              writeln('введите число N');                readln(n);              factorial:=1;              for i:=1 to n do               begin               writeln('i= ',i,'    ',factorial,' * ',i,' = ',factorial*i);              factorial:=factorial*i;              end;             writeln('факториал числа N=',factorial );           end.

Оператор цикла WHILE (с предпроверкой условия)

   
  Выполнение серии команд (тела цикла) повторяется, пока условие цикла истинно. Когда условие становится ложным, цикл заканчивает выполнение.
              Общий вид команды в блок-схеме следующий:

На языке Паскаль структура имеет следующий вид:

  WHILE <условие> DO <оператор>;, где

  <условие> - произвольное выражение логического типа,

 <оператор> - произвольный оператор языка Паскаль.

Пример 8. Задачу примера 7 решить с помощью оператора While...Do.

program pr8_factorial_while;          var i: word; n: integer; factorial: longint;          begin              writeln('введите число N');                readln(n);              factorial:=1; i:=0;              while i<n  do                        begin                          i := i + 1;                        writeln('i= ',i,'    ',factorial,' * ',i,' = ',factorial*i);                        factorial:=factorial*i;                     end;             writeln('факториал числа N=',factorial );           end.

Оператор цикла REPEAT...UNTIL (с постпроверкой условия)

     В цикле с постпроверкой условия используется условие окончания цикла. Когда оно становится истинным, цикл заканчивает работу.

                 Общий вид команды в блок-схеме следующий:

На языке Паскаль структура имеет следующий вид:

REPEAT <оператор> UNTIL <условие> , где

• <оператор> - произвольный оператор языка Паскаль
• <условие> - произвольное выражение логического типа.

 

Пример 9. Составить программу. которая запрашивает пароль (например, четырехзначное число) до тех пор, пока пароль введен правильно, затем появляется текст: "Пароль введен верно".

program pr9_repeat;      var p: string;      const parol = '1234';  begin     repeat            begin              writeln('введите пароль');              read(p);              readln;            end     until p = parol;     writeln('Пароль введен верно');      readln;  end.