Система программирования Турбо Паскаль. Воробьева А.П - 39 стр.

                               Решение                                                    6.4. Кратные циклы
     Для реализации алгоритма выделяется ячейка памяти min, в             Тело цикла может содержать любой оператор, в том числе и
которую сначала заносится первый член последовательности. За-        другой оператор цикла. Структура цикла, содержащая вло-
тем, начиная со второго, производится сравнение вычисленных
членов последовательности с содержимым ячейки min. Если те-          женный цикл, называется кратным циклом. Число вложений
кущий член последовательности меньше содержимого ячейки              может быть произвольным. Если цикл содержит один вложенный
min, то он переписывается в эту ячейку. В противном случае со-       цикл, то он называется двойным циклом, если содержит два
держимое ячейки min сохраняет прежнее значение. При заверше-         вложенных цикла, то является тройным циклом, и т.д. Цикл, ко-
нии сравнения всех членов последовательности в ячейке min за-        торый содержит вложенный цикл, называется внешним. Вло-
поминается минимальное значение.                                     женный цикл называется внутренним.
     Замечание 1. Алгоритм поиска максимального члена после-
довательности отличается от поиска минимального члена лишь                Переменная внутреннего цикла всегда меняется быстрее, чем
тем, что в ячейке (ей можно дать, например, имя max) запомина-       внешнего. Это означает, что для каждого значения внешней пе-
ется больший из сравниваемых членов последовательности.              ременной цикла меняются все значения внутренней переменной.
     Замечание 2. В начальный момент в ячейку min можно зане-             Внешний и внутренний циклы могут использовать любой вид
сти не первый член последовательности, а достаточно боль-            операторов цикла (while, repeat…until, for).
шое число, которое превышало бы область определения сравни-               Пример. Алгоритм табулирования функции с двумя пе-
ваемых чисел (например, min:=+1E6;). Тогда при сравнении с со-
                                                                     ременными
держимым ячейки min первый член последовательности обяза-
тельно окажется меньше и переписывается в ячейку min. При по-             Вычислить значение функции:
иске максимального члена последовательности в ячейку max в                                     z(x, y) = sinx + cosy
начальный момент заносится, наоборот, достаточно малое число,        при всех x, изменяющихся на интервале [–1, 1] с шагом ∆x = 0.2, и
которое должно быть меньше всех сравниваемых членов после-           y, изменяющихся на интервале [0, 1] с шагом ∆y = 0.1.
довательности (например, max:= –1E6;). В этом случае первый               Данный алгоритм реализуется с использованием двойного
из сравниваемых членов последовательности окажется больше            цикла, в котором x примем за внешнюю переменную цикла, y – за
содержимого ячейки max и переписывается в эту ячейку.
                                                                     внутреннюю переменную цикла.
                  Program Z_4;
                  Var                                                                 Program TAB_2;
                     a, min: real;                                                    Var
                     k: integer;                                                         x, y, z: real;
                  Begin                                                               Begin
                     min := +1E6;
                     for k := 1 to 10 do                                                 writeln(‘x y z(x,y)’);
                         begin                                                           x := –1;
                            a := exp(k)∗sin(2∗k + 1)/cos(2∗k + 1);                       while x<=1 do
                            if a