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

    WriteLn ('Bведите значение n');
    Read (n);
    Summa (n, Sum, Pr); {Вызов процедуры по имени с указа-
нием фактических параметров}
    WriteLn ('Sum =', Sum: 5);
    WriteLn ('Pr =', Pr: 5);
    End. {3}
    Протокол работы программы. Введите значение n: 5
    Sum = 15
    Pr = 120
    Пояснения к программе. Сумму и произведение можно вы-
числить, используя формулы арифметической и геометриче-
ской прогрессии. Однако мы воспользуемся циклом, чтобы
лучше продемонстрировать назначение различных параметров.
    Имеем следующие переменные в головной программе:
n – количество суммируемых элементов, Sum – переменная,
где копим сумму, Pr – переменная, где копим произведение.
Это фактические параметры при обращении к процедуре
Summa (n, Sum, Pr).
    В заголовке процедуры Procedure Summa (k: Integer;
Var x, y: Real); в скобках имеем формальные значения:
k – это параметр-значение типа Integer (количество сумми-
руемых элементов); x, y – это параметры-переменные типа
Real (для накопления суммы и произведения).
    Имеем следующее соответствие формальных и фактиче-
ских параметров:
    – Формальный параметр k (процедура) Æ фактический
параметр n.
    – Формальный параметр x (процедура) Æ фактический
параметр Sum.
    – Формальный параметр y (процедура) Æ фактический
параметр Pr.

    3.1. Массив в процедуре
    Если в процедуру нужно передать в качестве параметра
не просто одно значение, а массив, то фактическим парамет-
ром должно быть имя массива. При этом формальный пара-
метр указывается после слова Var вместе с типом массива.
                           82