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

шее из двух чисел. Тип возвращаемого значения Integer ука-
зан в заголовке функции.
    В 1-м случае мы находим большее из четырех чисел, ис-
пользуя промежуточные переменные х и у: х – большее среди
чисел al и а2, у – большее среди чисел аЗ и а4. Третий вызов
функции Мах2 (х, у) содержится в операторе WriteLn. – ре-
зультат работы функции – максимальное из четырех чисел.
    Во 2-м случае используются только обращения к функ-
ции. Обратим внимание на то, что аргументы функции Мах2
являются обращениями к этой же функции. Подобные алго-
ритмы, называющиеся рекурсивными.
    3-ий случай – это пример использования имени функции
в качестве операнда в операторе вывода.

    4. Рекурсия
    Рекурсия широко применяется в математике. Рекурсия –
это такой способ организации вычислительного процесса,
при котором процедура или функция в ходе выполнения об-
ращается сама к себе.
    В качестве примера дадим рекурсивное определение суммы
первых п натуральных чисел. Сумма первых п натуральных
чисел равна сумме первых (п – 1) натуральных чисел плюс п,
а сумма первого числа равна 1. Или: Sn = Sn-1 + n; S1 = 1.

    Задача 7
    Вычислить сумму первых n натуральных чисел, исполь-
зуя рекурсию.
    Program Lab11_7;
    Uses Crt;
    Var n: Integer;
    S: Integer;
    {Описание функции вычисления суммы ряда}
    Function Sum (k: Integer): Integer;
    Begin
    If k = 1
    Then Sum: = 1 {Стоп-условие}
    Else Sum: = Sum (k – 1) + k;
    End;
                            89