Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 67 стр.

     Для каждого из девяти значений параметра внешнего цикла i (множимо-
го) исполнится внутренний цикл, в котором его параметр j (множитель) меня-
ется от 1 до 9.
     Циклы могут быть вложены один в другой. При их использовании про-
грамму составляем таким образом, чтобы внутренний цикл полностью укла-
дывался во внешний цикл (матрешка).

    6.1. Структура вложенных циклов

    НАЧАЛО ЦИКЛА I;
        НАЧАЛО ЦИКЛА J;
              Начало цикла M
              Конец цикла M
        КОНЕЦ ЦИКЛА J;
    КОНЕЦ ЦИКЛА I;

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

     Задача 6
     Вычислить значение функции Y = 2K + I. При этом I меняется от едини-
цы до трех с шагом, равным единице, а К меняется от трех до девяти с ша-
гом, равным двум.
     Program Lab5_6;
     Var
     I, K, Y: integer;
     BEGIN {1}
           For N = 1 to 3 Do                    Внешний цикл по N
           Begin {2}
               K : = 3;
               While K < = 9 Do
                    Begin {3}                   Внутренний цикл по К
                    Y : = 2 * K + I;
                    WriteLn (I : 4, K : 4, Y : 4);
                    K : = K + 2;
                    End; {3}
           End;{2}
     END. {1}

    Пояснения к задаче 6
    Блок-схема программы представлена на рис. 24. Согласно условию зада-
чи мы должны сделать вычисления по формуле: Y : = 2 * K + I.
    Поскольку в формуле две переменные I и K меняют свои значения, орга-
низовано два цикла :
    – внешний цикл по I (с шагом 1);
    – внутренний цикл по K (с шагом 2).
                                   67