Паскаль в примерах. Иринчеев А.А - 48 стр.

     Если выражение булевского типа было ложным при первом входе в цикл, то оператор
А не выполняется ни разу. Очевидно, что один из операторов, находящийся внутри цикла,
должен влиять на значение логического выражения, поскольку иначе цикл будет повторяться
бесконечно. Функциональная схема итерационного процесса с предусловием представлена
на рис. 2.8.
                         начальное присваивание

                         условие


                         тело цикла



Рис. 2.8. Функциональная схема итерационного процесса

Проиллюстрируем использование операторы цикла с предусловием.
    Пример 24. Вывести на экран все четные числа до 10.
PROGRAM PR24;
 VAR
      K:INTEGER;

   BEGIN
     K:=0;
      WHILE K<=10 DO
       BEGIN
        K:=K+2;
         WRITE(K:3);
       END
   END.
В результате выводятся числа 2 4 6 8 10 12,

      Рассмотрим этот же пример с другим выводом:
      Пример 24а.
      PROGRAM PR24;
  VAR
  K:INTEGER;
   BEGIN
    K:=0;
      WHILE K<=10 DO
        BEGIN
        WRITE(K:3);
         K:=K+2;
        END
   END.
В результате выводятся числа 0 2 4 6 8 10,
Пример 25. Пусть даны числа a и b (a> 1), и надо получить все члены бесконечной последо-
вательности a, a2, a3,.. меньше числа b.

PROGRAM PR25;
 VAR
  A,B,C: REAL;
   BEGIN
                                                                                      48